欢迎来到天天文库
浏览记录
ID:9015395
大小:162.00 KB
页数:43页
时间:2018-04-15
《学习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
此文档下载收益归作者所有