Visual Basic程序设计教程

《Visual Basic程序设计教程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计教程机械工业出版社同名教材配套电子教案2003年6月第5章循环结构程序设计5.1循环结构程序设计的概念5.2Do…Loop语句5.2.1前测型Do…Loop循环5.2.2后测型Do…Loop循环5.3For...Next语句5.4列表框与组合框5.4.1列表框5.4.2组合框5.4算法举例习题五5.2.1前测型Do…Loop循环其语法为Do[{While

2、Until}〈条件〉][〈语句列1〉][ExitDo][〈语句列2〉]Loop【例5-1】求累加和1+2+3+…+100

3、（如图5-2）。设计步骤如下：窗体界面的设计参见前面章节，这里仅给出命令按钮的Click事件代码：PrivateSubCommand1_Click()DimsAsInteger,nAsIntegers=0:n=1DoWhilen<=100s=s+nn=n+1LoopLabel2.Caption="1+2+3+…+100="&sEndSub还可以改为直到型：PrivateSubCommand1_Click()DimsAsInteger,nAsIntegers=0:n=1DoUntiln>100s=s+nn=

4、n+1LoopLabel2.Caption="1+2+3+…+100="&sEndSub【例5-2】输入一个正整数，利用“当型”循环判断是否素数。设计步骤如下：窗体界面的设计参见前面章节，这里给出命令按钮的Click事件代码：PrivateSubCommand1_Click()DimnAsLongSelectCaseVal(Text1.Text)CaseIs<3MsgBox"请输入一个大于2的整数!",vbInformation+vbOKOnly,"注意"CaseIs>2147483647MsgBox"此

5、数太大!",vbInformation+vbOKOnly,"注意"CaseElsen=Val(Text1.Text)s=0:i=2DoWhilei<=Sqr(n)Ands=0IfnModi=0Thens=1Elsei=i+1EndIfLoopIfs=0Thena="是一个素数"Elsea="不是素数"EndIfLabel1.Caption=Str(n)&aEndSelectText1.SetFocusEndSub另外，为了使用文本框得到焦点后，文本立即被选中，编写Text1的GotFocus事件代码如下：

6、PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub5.2.2后测型Do…Loop循环其语法为Do[〈语句列1〉][ExitDo][〈语句列2〉]Loop[{While

7、Until}〈条件〉]【例5-3】输入有效数字的位数，利用下述公式计算圆周率π的近似值：设计步骤如下：(1)建立应用程序用户界面与设置对象属性。(2)编写程序代码。根据流程图，可以写出命令按钮Command1的Click事件代码为Pr

8、ivateSubCommand1_Click()DimmAsIntegerm=Val(Text1.Text)p=0#:s=2#:e=0.1^mDot=s:p=Sqr(2+p):s=s*2/pLoopUntilAbs(t–s)<0.1^mf=String(m–1,"#")Text2.Text=Format(s,"0."&f)Text1.SetFocusEndSub文本框Text1的GotFocus事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.Sel

9、Length=Len(Text1.Text)EndSub【例5-4】输入两个正整数，求它们的最大公约数。设计步骤如下。窗体界面的设计如图5-10所示，这里给出命令按钮的Click事件代码：PrivateSubCommand1_Click()m=Val(Text1.Text)n=Val(Text2.Text)Ifn*m=0ThenMsgBox"两数都不能为0!"ExitSubEndIfIfm0Text3.Tex

10、t=mEndSub5.3For...Next语句其语法为For〈循环变量〉=〈初值〉To〈终值〉[Step〈步长〉][〈语句列1〉][ExitFor][〈语句列2〉]Next[〈循环变量〉]【例5-5】利用For循环结构显示1000以内的所有能被37整除的自然数（如图5-13所示）。设计步骤如下：(1)窗体界面的设计与属性设置。(2)编写代码。编写命令按钮的Click事件代码：PrivateSubCommand1_Click(