學(xué)習(xí)vb課件第五章

第5章循環(huán)結(jié)構(gòu)程序設(shè)計5.1

循環(huán)結(jié)構(gòu)程序設(shè)計的概念5.2Do…Loop語句5.2.1前測型Do…Loop循環(huán)5.2.2后測型Do…Loop循環(huán)5.3For...Next語句5.4

列表框與組合框5.4.1列表框

5.4.2組合框5.5

算法舉例習(xí)題五

5.1循環(huán)結(jié)構(gòu)程序設(shè)計的概念5.2Do…Loop語句5.2.1前測型Do…Loop循環(huán)

其語法為Do[{While|Until}〈條件〉][〈語句列1〉][ExitDo][〈語句列2〉]Loop【例5-1】求累加和1+2+3+…+100（如圖5-2）。圖5-2求累加和

設(shè)計步驟如下：窗體界面的設(shè)計參見前面章節(jié)，這里僅給出命令按鈕的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循環(huán)其語法為Do[〈語句列1〉][ExitDo][〈語句列2〉]Loop[{While|Until}〈條件〉]【例5-3】輸入有效數(shù)字的位數(shù)，利用下述公式計算圓周率π的近似值：設(shè)計步驟如下：

(1)建立應(yīng)用程序用戶界面與設(shè)置對象屬性。

(2)編寫程序代碼。根據(jù)流程圖，可以寫出命令按鈕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〈循環(huán)變量〉=〈初值〉To〈終值〉[Step〈步長〉][〈語句列1〉][ExitFor][〈語句列2〉]Next[〈循環(huán)變量〉]【例5-5】利用For循環(huán)結(jié)構(gòu)顯示1000以內(nèi)的所有能被37整除的自然數(shù)（如圖5-13所示）。設(shè)計步驟如下：

(1)窗體界面的設(shè)計與屬性設(shè)置。

(2)編寫代碼。編寫命令按鈕的Click事件代碼：PrivateSubCommand1_Click()a=""Forn=1To1000IfnMod37=0Thena=a&Str(n)&vbCrLfEndIfNextText1.Text=aEndSub圖5-13能被37整除的自然數(shù)5.4列表框與組合框5.4.1列表框2.使用列表框顯示數(shù)據(jù)【例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求素數(shù)3.選擇和移動數(shù)據(jù)【例5-10】利用循環(huán)結(jié)構(gòu)和列表框控件，設(shè)計的“選項移動”窗體。所謂“選項移動”窗體是指由兩個列表框和4個命令按鈕所構(gòu)成的界面，在Windows程序中常見到此類窗口（如圖5-21所示）。

圖5-21“選項移動”表單

設(shè)計步驟如下：

(1)建立應(yīng)用程序用戶界面與設(shè)置對象屬性。

(2)編寫事件代碼。編寫窗體的讀入（Load）事件代碼：PrivateSubForm_Load()List1.AddItem"電冰箱"List1.AddItem"洗衣機(jī)"List1.AddItem"彩色電視機(jī)"List1.AddItem"組合音響"List1.AddItem"影碟機(jī)"List1.AddItem"電水壺"List1.AddItem"飲水機(jī)"List1.AddItem"微波爐"List1.AddItem"照相機(jī)"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算術(shù)練習(xí)中的列表框改為組合框（下拉列表框），如圖5-22所示。

圖5-22使用下拉列表框

設(shè)計步驟如下：

(1)建立應(yīng)用程序用戶界面與設(shè)置對象屬性。

(2)編寫程序代碼修改文本框Text1的按?。↘eyPress）事件代碼：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中使用下拉組合框，可以更加節(jié)省空間（如圖5-25所示）。

圖5-25使用下拉組合框

設(shè)計步驟如下：

(1)建立應(yīng)用程序用戶界面與設(shè)置對象屬性。

(2)編寫事件代碼。編寫組合框Combo1的按?。↘eyPress）事件代碼：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事件代碼，使之可以隨機(jī)地抽取獎號：PrivateSubCommand1_Click()Randomizen=Combo1.ListCounta=Int(Rnd*n)Combo1.ListIndex=aLabel1.Caption="中獎的號碼是:"&Combo1.TextEndSub5.5算法舉例【例5-14】“水仙花數(shù)”是指一個3位數(shù)，其各位數(shù)的立方和等于該數(shù)，如：153=13+53+33圖5-26水仙花數(shù)

窗體界面的設(shè)計參見前面例子，這里給出命令按鈕的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習(xí)題五

5.1

輸出101～500之間的所有奇數(shù)，奇數(shù)之和。

5.2

輸出100～200之間不能被3整除的數(shù)。

5.3

輸入初始值，輸出100個不能被3整除的數(shù)。

5.4

設(shè)計程序，求s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值。

5.5

設(shè)s=1×2×3×…×n，求s不大于400000時最大的n。

5.6

設(shè)s=11×22×33×…×nn，求s不大于400000時最大的n。

5.7

找出1～1000之間的全部“同構(gòu)數(shù)”。

5.8“完備數(shù)”是指一個數(shù)恰好等于它的因子之和，如6的因子為1、2、3，而6=1+2+3，因而6就是完數(shù)。編制程序，找出1～1000之間的全部“完備數(shù)”。