学习vb循环语句之我见

《学习vb循环语句之我见》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、学习VB循环语句之我见　　VB的循环语句有4大类，共8个小类，要全部掌握这些语句，可不是简单的事。　　实际上，只需要掌握其中两个小类，就足够对付任何循环的情况了。　　下面用计算1+2+3+...+100来看看这8个循环小类的特点：PrivateSubCommand1_Click()  DimIAsLong,SAsLong  '一、例子①：For...Next循环  ForI=1To100    S=S+I  Next  MsgBox"For...Next：1+2+3+...+100="&S'二、Do...Loop循环'例子②：在Do和Loop后面不

2、使用任何关键字，在循环体内加入判断语句退出循环  I=0:S=0  Do     I=I+1     IfI>100ThenExitDo     S=S+I  Loop  MsgBox"Do...Loop：1+2+3+...+100="&S'例子③：在Do后面使用While关键字'I小于100就进入循环  I=0:S=0  DoWhileI<100     I=I+1     S=S+I  Loop  MsgBox"DoWhile：1+2+3+...+100="&S'例子④：在Loop后面使用While关键字'I不是小于100就退出循环（不论I的值

3、是多少，循环体至少会执行一次）  I=0:S=0  Do     I=I+1     S=S+I  LoopWhileI<100  MsgBox"LoopWhile：1+2+3+...+100="&S'例子⑤：在Do后面使用Until关键字'I大于100就退出循环，注意S=S+I和I=I+1的位置与使用While关键字时不同不同  I=0:S=0  DoUntilI>100     S=S+I     I=I+1  Loop  MsgBox"DoUntil：1+2+3+...+100="&S'例子⑥：在Loop后面使用Until关键字'I大于100

4、就退出循环（不论I的值是多少，循环体至少会执行一次）  I=0:S=0  Do     S=S+I     I=I+1  LoopUntilI>100  MsgBox"LoopUntil：1+2+3+...+100="&S'三、While...Wend循环'例子⑦：I小于100就执行循环，与例子③DoWhileI<100完全相同  I=0:S=0  WhileI<100    I=I+1    S=S+I  Wend  MsgBox"While...Wend：1+2+3+...+100="&S'四、例子⑧：Goto语句  I=0:S=0Mark1:

5、  I=I+1  S=S+I  IfI<100ThenGoToMark1    MsgBox"GoTo语句：1+2+3+...+100="&SEndSub　　可以看出，例子②在Do和Loop后面不使用任何关键字，在循环体内的适当地方加入判断语句退出循环。这种方式可以说是万能循环语句，其他任何循环语句都可以改写为这种形式。其优点是：结构简单，灵活。　　例子①For...Next循环，对于知道了循环起始和终止值的情况来说，使用起来更方便。因此，我的结论是：学习VB循环语句，为了提高效率，做到事半功倍，只需学好For...Next和Do...Loop（后

6、面不使用任何关键字）就足够了。1.VB四舍五入的疑惑在VB中，Cint和CLng函数是四舍五入函数。但是，当小数部分恰好为0.5时，Cint和CLng函数会将它转换为最接近的偶数。例如，1.5和2.5都转换为2，3.5转换为4同样的，将一个小数赋值给Integer或Long类型变量，也会出现这种情况。我的疑惑：不知道微软为什么会把VB做成这个样子？Int是将小数部分切除，只保留整数部分因此，要想得到数学上的四舍五入，无论哪个函数都是不准确的。下面是我的四舍五入例子：PrivateSubText1_Change()  DimAAsSingle,BAs

7、Long  A=Val(Text1.Text)  B=Int(A)  IfA>=B+0.5ThenB=B+1  Text2.Text=BEndSub2.VB如何在自己的程序中弹出新网页　　用WebBrowser做的浏览器，当使用右键菜单“在新窗口中打开”，或单击网页链接弹出新网页时，不是弹出自己程序的浏览器窗口，而是一个新的IE窗口。如何在自己的程序中弹出新网页，下面的方法能解决这个问题。　　在菜单“工程→部件”中勾选：MicrosoftInternetControls，然后在控件工具栏中找到控件WebBrowser（图标像一个地球），在窗体放一个

8、控件：WebBrowser1，将下面代码复制到Form1中。方法1：PrivateWithEventsV1AsWebBro