学习vb课件第五章

第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.5

算法举例习题五

5.1循环结构程序设计的概念5.2Do…Loop语句5.2.1前测型Do…Loop循环

其语法为Do[{While|Until}〈条件〉][〈语句列1〉][ExitDo][〈语句列2〉]Loop【例5-1】求累加和1+2+3+…+100（如图5-2）。图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=n+1LoopLabel2.Caption="1+2+3+…+100="&sEndSub5.2.2后测型Do…Loop循环其语法为Do[〈语句列1〉][ExitDo][〈语句列2〉]Loop[{While|Until}〈条件〉]【例5-3】输入有效数字的位数，利用下述公式计算圆周率π的近似值：设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。

(2)编写程序代码。根据流程图，可以写出命令按钮Command1的Click事件代码为PrivateSubCommand1_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

图5-8计算圆周率π

文本框Text1的GotFocus事件代码：PrivateSubText1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)EndSub5.3For...Next语句

其语法为For〈循环变量〉=〈初值〉To〈终值〉[Step〈步长〉][〈语句列1〉][ExitFor][〈语句列2〉]Next[〈循环变量〉]【例5-5】利用For循环结构显示1000以内的所有能被37整除的自然数（如图5-13所示）。设计步骤如下：

(1)窗体界面的设计与属性设置。

(2)编写代码。编写命令按钮的Click事件代码：PrivateSubCommand1_Click()a=""Forn=1To1000IfnMod37=0Thena=a&Str(n)&vbCrLfEndIfNextText1.Text=aEndSub图5-13能被37整除的自然数5.4列表框与组合框5.4.1列表框2.使用列表框显示数据【例5-7】将例5-6中的文本框改为列表框（如图5-16所示）。将窗体中的文本框换为列表框，无需修改列表框的属性，只修改命令按钮的Click事件代码：PrivateSubCommand1_Click()List1.ClearForn=1001To1100Step2s=0Fori=2ToInt(Sqr(n))IfnModi=0Thens=1:ExitForEndIfNextIfs=0ThenList1.AddItemn '使用列表框的Add方法增加列表项

NextEndSub图5-16求素数3.选择和移动数据【例5-10】利用循环结构和列表框控件，设计的“选项移动”窗体。所谓“选项移动”窗体是指由两个列表框和4个命令按钮所构成的界面，在Windows程序中常见到此类窗口（如图5-21所示）。

图5-21“选项移动”表单

设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。

(2)编写事件代码。编写窗体的读入（Load）事件代码：PrivateSubForm_Load()List1.AddItem"电冰箱"List1.AddItem"洗衣机"List1.AddItem"彩色电视机"List1.AddItem"组合音响"List1.AddItem"影碟机"List1.AddItem"电水壶"List1.AddItem"饮水机"List1.AddItem"微波炉"List1.AddItem"照相机"EndSub

编写命令按钮的Click事件代码：PrivateSubCommand1_Click()i=0DoWhilei<List1.ListCountIfList1.Selected(i)=TrueThenList2.AddItemList1.List(i)List1.RemoveItemiElsei=i+1EndIfLoopEndSubPrivateSubCommand2_Click()Fori=0ToList1.ListCount-1List2.AddItemList1.List(i)NextList1.ClearEndSubPrivateSubCommand3_Click()i=0DoWhilei<List2.ListCountIfList2.Selected(i)=TrueThenList1.AddItemList2.List(i)List2.RemoveItemiElsei=i+1EndIfLoopEndSubPrivateSubCommand4_Click()Fori=0ToList2.ListCount-1List1.AddItemList2.List(i)NextList2.ClearEndSub5.4.2组合框

下拉列表框【例5-11】将例5-9算术练习中的列表框改为组合框（下拉列表框），如图5-22所示。

图5-22使用下拉列表框

设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。

(2)编写程序代码修改文本框Text1的按健（KeyPress）事件代码：PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFm="!@@@@@@@@@@@@@@"IfText1.Text=Text1.TagThenItem=Format(Label1.Caption&Text1.Text,Fm)&"√"Combo1.Tag=Combo1.Tag+1ElseItem=Format(Label1.Caption&Text1.Text,Fm)&"×"EndIfCombo1.AddItemItem,0Combo1.ListIndex=0Label3.Caption="共"&Form1.Tag&"题，正确率为:"Label2.Caption=Format(Combo1.Tag/Form1.Tag,"#0.0#%")Form_ActivateEndIfEndSub

编写命令按钮Command2的Click事件代码：PrivateSubCommand2_Click()Form1.Tag=0#Combo1.Tag=0#Combo1.ClearLabel3.Caption="欢迎重新开始!"Label2.Caption=""Form_ActivateText1.SetFocusEndSub3.下拉组合框【例5-13】在例5-12中使用下拉组合框，可以更加节省空间（如图5-25所示）。

图5-25使用下拉组合框

设计步骤如下：

(1)建立应用程序用户界面与设置对象属性。

(2)编写事件代码。编写组合框Combo1的按健（KeyPress）事件代码：PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then '按回车键后，接收输入的选项

Combo1.AddItemCombo1.Text,0Combo1.SelStart=0Combo1.SelLength=Len(Combo1.Text)Text1.Text=Combo1.ListCountEndIfIfKeyAscii=27Then '按〈Esc〉键后，移去选项IfCombo1.ListIndex<>-1ThenCombo1.RemoveItemCombo1.ListIndexText1.Text=Combo1.ListCountEndIfEndIfEndSub

编写命令按钮Command1的Click事件代码，使之可以随机地抽取奖号：PrivateSubCommand1_Click()Randomizen=Combo1.ListCounta=Int(Rnd*n)Combo1.ListIndex=aLabel1.Caption="中奖的号码是:"&Combo1.TextEndSub5.5算法举例【例5-14】“水仙花数”是指一个3位数，其各位数的立方和等于该数，如：153=13+53+33图5-26水仙花数

窗体界面的设计参见前面例子，这里给出命令按钮的Click事件代码：PrivateSubCommand1_Click()DimpAsIntegerList1.ClearForn=100To999a=Int(n/100)b=Int((n–a*100)/10)c=n-(a*100+b*10)p=a^3+b^3+c^3Ifp=nThenList1.AddItempNextEndSub习题五

5.1

输出101～500之间的所有奇数，奇数之和。

5.2

输出100～200之间不能被3整除的数。

5.3

输入初始值，输出100个不能被3整除的数。

5.4

设计程序，求s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值。

5.5

设s=1×2×3×…×n，求s不大于400000时最大的n。

5.6

设s=11×22×33×…×nn，求s不大于400000时最大的n。

5.7

找出1～1000之间的全部“同构数”。

5.8“完备数”是指一个数恰好等于它的因子之和，如6的因子为1、2、3，而6=1+2+3，因而6就是完数。编制程序，找出1～1000之间的全部“完备数”。