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

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

2、窗體中放入2個標簽、3個文本框、2個命令按鈕，修改各控件標題使之與 圖實驗四01一致。文本框1、2用來放兩個整數(shù)，由Int (100*Rnd)自動產(chǎn)生。用戶將答案 填入文本框3后，“評分”按鈕單擊進行判斷處理，處理時返回Msgbox ()消息框。題目1程序代碼如下：Private Sub Command 1 _Click()If Val(Text3.Text) = Val(Textl.Text) + Val(Text2.Text) ThenMsgBox(正確！ ”)Elsep = MsgBox(重做嗎？ ”, 3 + 32 J錯誤！ )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)題目二：進入VB,窗體中放置兩個命令按鈕，修改相應(yīng)Caption屬性。此題用篩法選100以內(nèi) 的素數(shù)。在“計算”過程中循環(huán)給出X, X等于1

4、到lOO.o對于X=l、2、3,因為是素數(shù)，故直 接打印。假設(shè)X是偶數(shù),即X Mod 2為?；騃nt (X/2) =X/2,那么直接考慮下一個數(shù)。每個 X,判斷其是否不被3至X-1除盡，假設(shè)是，那么內(nèi)層循環(huán)完后任保存標志字Flagel=0,不是那么 Flage=lo“退出”過程可用Unload me一句。題目二程序代碼如下：Private Sub Command l_Click()CisFor x = 1 To 100Ifx=3 Then*=1,2,3 為素數(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ù)時。直接跳出本次循環(huán)，轉(zhuǎn)到100標記處。標志字初值。判斷x是否素數(shù)，用x除以3,4,到x-1。標志字改變，表示非素數(shù)。標志字未改變，表示素數(shù)。End SubPrivate Sub Command2_Click()Unload MeEnd Sub實驗小結(jié)VB函數(shù)很多，主要通過程序應(yīng)用、掌握最基本的。當(dāng)一個函數(shù)不太理解時，可通 過幫助文件學(xué)習(xí)。Msgbox ()是一個功能強大的函數(shù)，調(diào)用后它有一個返回值，程序中可根據(jù)其值 再做相應(yīng)處理。循環(huán)前加標志字，循環(huán)后再判斷處理，這是一種常見的處理方法。4)