VB條件與循環(huán)語(yǔ)句示例VIP

1、VB條件與循環(huán)語(yǔ)句例如 實(shí)驗(yàn)R的1）掌握條件語(yǔ)句的使用。2） 了解并掌握Msgbox （）消息函數(shù)的用法。3）初步建立循環(huán)概念。 實(shí)驗(yàn)題目1）設(shè)計(jì)一個(gè)窗體，隨機(jī)給出100以內(nèi)的兩個(gè)整數(shù)，列成加式，由用戶輸入答案，計(jì)算 機(jī)自動(dòng)判斷正誤，并返回相應(yīng)消息。程序運(yùn)行界面如圖實(shí)驗(yàn)四01所示。圖實(shí)驗(yàn)四012）設(shè)計(jì)一個(gè)工程，通過(guò)“計(jì)算”按鈕，求出100以內(nèi)的素?cái)?shù)。程序運(yùn)行界面如圖實(shí)驗(yàn) 四02所示。圖實(shí)驗(yàn)四02實(shí)驗(yàn)背景及準(zhǔn)備1)已學(xué)習(xí)VB基本函數(shù)，了解Int ()取整與Rnd ()產(chǎn)生隨機(jī)數(shù)。2)已學(xué)習(xí)順序程序、條件分支程序，掌握條件語(yǔ)句的基本形式。3)預(yù)習(xí)了循環(huán)命令。實(shí)驗(yàn)過(guò)程與主要步驟1)題目1：進(jìn)入VB,

2、窗體中放入2個(gè)標(biāo)簽、3個(gè)文本框、2個(gè)命令按鈕，修改各控件標(biāo)題使之與 圖實(shí)驗(yàn)四01一致。文本框1、2用來(lái)放兩個(gè)整數(shù)，由Int (100*Rnd)自動(dòng)產(chǎn)生。用戶將答案 填入文本框3后，“評(píng)分”按鈕單擊進(jìn)行判斷處理，處理時(shí)返回Msgbox ()消息框。題目1程序代碼如下：Private Sub Command 1 _Click()If Val(Text3.Text) = Val(Textl.Text) + Val(Text2.Text) ThenMsgBox(正確！ ”)Elsep = MsgBox(重做嗎？ ”, 3 + 32 J錯(cuò)誤！ )msgbox。返回值賦予變量p。End IfEnd Sub

3、Private Sub Command2_Click() RandomizeText 1.Text = Int(100 * Rnd(l)Text2.Text = Int(100 * Rnd(l)Text3.Text =”End SubPrivate Sub Form_Load()RandomizeText 1.Text = Int(100 * Rnd(l)Text2.Text = Int(100 * Rnd(l)Text3.Text 廿”End Sub2)題目二：進(jìn)入VB,窗體中放置兩個(gè)命令按鈕，修改相應(yīng)Caption屬性。此題用篩法選100以內(nèi) 的素?cái)?shù)。在“計(jì)算”過(guò)程中循環(huán)給出X, X等于1

4、到lOO.o對(duì)于X=l、2、3,因?yàn)槭撬財(cái)?shù)，故直 接打印。假設(shè)X是偶數(shù),即X Mod 2為?；騃nt (X/2) =X/2,那么直接考慮下一個(gè)數(shù)。每個(gè) X,判斷其是否不被3至X-1除盡，假設(shè)是，那么內(nèi)層循環(huán)完后任保存標(biāo)志字Flagel=0,不是那么 Flage=lo“退出”過(guò)程可用Unload me一句。題目二程序代碼如下：Private Sub Command l_Click()CisFor x = 1 To 100Ifx=3 Then*=1,2,3 為素?cái)?shù)。Print xElseIf x Mod 2 = 0 Then GoTo 100 Else flage = 0For y = 3 To

5、x - 1If x Mod y = 0 Then flage = 1 Exit For End IfNextIf flage = 0 Then Print xEnd If End If End If 100 NextElseIf x Mod 2 = 0 Then GoTo 100 Else flage = 0For y = 3 To x - 1If x Mod y = 0 Then flage = 1 Exit For End IfNextIf flage = 0 Then Print xEnd If End If End If 100 Nextx為偶數(shù)時(shí)。直接跳出本次循環(huán)，轉(zhuǎn)到100標(biāo)記處。標(biāo)志字初值。判斷x是否素?cái)?shù)，用x除以3,4,到x-1。標(biāo)志字改變，表示非素?cái)?shù)。標(biāo)志字未改變，表示素?cái)?shù)。End SubPrivate Sub Command2_Click()Unload MeEnd Sub實(shí)驗(yàn)小結(jié)VB函數(shù)很多，主要通過(guò)程序應(yīng)用、掌握最基本的。當(dāng)一個(gè)函數(shù)不太理解時(shí)，可通 過(guò)幫助文件學(xué)習(xí)。Msgbox ()是一個(gè)功能強(qiáng)大的函數(shù)，調(diào)用后它有一個(gè)返回值，程序中可根據(jù)其值 再做相應(yīng)處理。循環(huán)前加標(biāo)志字，循環(huán)后再判斷處理，這是一種常見(jiàn)的處理方法。4)