【正文】 用戶輸入的整數(shù)除以 3以后的結(jié)果： Private Sub Command1_Click() Dim x As Integer x = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù) , 輸入 , 32)) Select Case x Mod 3 Case 0 MsgBox Str(x) + 整除 3 Case 1 MsgBox Str(x) + 除以 3余 1 Case 2 MsgBox Str(x) + 除以 3余 2 End Select End Sub IIf函數(shù) ? 用途：作為函數(shù)，根據(jù)測試表達(dá)式得到的邏輯值，從兩個(gè)表達(dá)式選擇一個(gè)作為返回值，其用途類似于 If…… Then…… Else語句，只不過 IIf函數(shù)是一個(gè)用來返回值的選擇結(jié)構(gòu)。 塊結(jié)構(gòu)條件語句 ? 例 代碼 Private Sub Command1_Click() Dim X As Single, Y As Single X = Val(InputBox(―X=‖)) If X = 0 Then Y = X * X Else Y = 2 * X End If MsgBox Y = + Str(Y) End Sub 塊結(jié)構(gòu)條件語句 ? 3．多分支的 If…… Then…… ElseIF ? 用途：可判斷多重條件，執(zhí)行多行語句。 塊結(jié)構(gòu)條件語句 ? 例 代碼 Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim D As Single 39。 單行結(jié)構(gòu)條件語句 ? 1．單行形式的 If…… Then ? 用途：通過對(duì)條件的判斷有選擇的執(zhí)行一條語句 ? 語法： If 條件 Then 語句 ? 條件：是供判斷的關(guān)系表達(dá)式或邏輯表達(dá)式 ? 語句：是條件成立的時(shí)候要執(zhí)行的語句 單行結(jié)構(gòu)條件語句 ? 例 ：找出用戶輸入的兩個(gè)數(shù)的大數(shù) Private Sub Command1_Click() Dim A As Integer, B As Integer Dim Max As Integer A = Int(InputBox(請(qǐng)輸入第一個(gè)整數(shù) , 輸入 , 3)) B = Int(InputBox(第輸入第二個(gè)整數(shù) , 輸入 , 6)) Max = A If Max B Then Max = B MsgBox Str(A) + 與 + Str(B) + 之中的大數(shù)為 + vbCrLf + Str(Max) End Sub 單行結(jié)構(gòu)條件語句 ? 2．單行形式的 If…… Then…… Else ? 用途：根據(jù)條件是否成立從兩條語句中選擇一條執(zhí)行 ? 語法： If 條件 Then 語句 1 Else 語句 2 ? 說明： Visual Basic在遇到 If…… Then…… Else語句時(shí)首先計(jì)算出條件的邏輯值 若為 True（即條件成立），則執(zhí)行語句 1 若為 False(即條件不成立 )，則執(zhí)行語句 2 單行結(jié)構(gòu)條件語句 ? 例 ：驗(yàn)證用戶輸入的整數(shù)的奇偶性 Private Sub cmd1_Click() Dim int1 As Integer, int2 As Integer int1 = CInt() int2 = int1 Mod 2 If int2 = 0 Then MsgBox 是一個(gè)偶數(shù) _ Else MsgBox 是一個(gè)奇數(shù) End Sub 塊結(jié)構(gòu)條件語句 ? 1．多行形式的 If…… Then…… End IF ? 用途：多行形式的 If…… Then…… End IF可用來判斷單一條件來執(zhí)行一組語句 ? 語法： If 條件 Then 語句組 End IF ? 說明：這是 If…… Then語句的多行形式，使用這種形式的選擇結(jié)構(gòu)，在條件成立時(shí)要執(zhí)行的語句不再直接跟在 Then后面，而是另外自成一個(gè)語句塊，并且在最后一定要加上 End IF。所有的這些結(jié)構(gòu)方式都是通過相應(yīng)的語句實(shí)現(xiàn)的，它們是： ? 條件結(jié)構(gòu) If語句； ? 選擇結(jié)構(gòu) Select Case 語句； ? 循環(huán)結(jié)構(gòu) Do...Loop語句、 For....Next語句和 While...Wend語句； ? 跳轉(zhuǎn)結(jié)構(gòu) GoTo語句和 GoSub語句。Visual Basic程序設(shè)計(jì) (等級(jí)考試版 ) 史春聯(lián) 主 編 高等院校應(yīng)用型特色規(guī)劃教材 ? 第 1章 Visual Basic程序開發(fā)環(huán)境 ? 第 2章 對(duì)象及其操作 ? 第 3章 簡單程序設(shè)計(jì) ? 第 4章 Visual Basic 程序設(shè)計(jì)基礎(chǔ) ? 第 5章 數(shù)據(jù)的輸入輸出 ? 第 6章 控制結(jié)構(gòu) ? 第 7章 數(shù)組 ? 第 8章 常用標(biāo)準(zhǔn)控件 ? 第 9章 過程 ? 第 10章 鍵盤與鼠標(biāo)事件過程 ? 第 11章 菜單程序設(shè)計(jì) ? 第 12章 Visual Basic程序開發(fā)環(huán)境 ? 第 13章 多重窗體程序設(shè)計(jì)環(huán)境應(yīng)用 ? 第 14章 文件處理 ? 第 15章 多媒體應(yīng)用開發(fā) ? 第 16章 數(shù)據(jù)庫編程初步 第 6章 控制結(jié)構(gòu) ? 程序的結(jié)構(gòu)與流程圖 ? 選擇控制結(jié)構(gòu) ? 循環(huán)控制結(jié)構(gòu) ? Goto 型控制 ? 小型案例 文本統(tǒng)計(jì) 程序的結(jié)構(gòu)與流程圖 ? 結(jié)構(gòu)化程序設(shè)計(jì)的基本控制結(jié)構(gòu)有 3種：即順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。 程序的結(jié)構(gòu)與流程圖 ? 在研究算法時(shí)，人們習(xí)慣使用流程圖來描述算法的結(jié)構(gòu)。 塊結(jié)構(gòu)條件語句 ? 例 ：三數(shù)排序，構(gòu)造如圖的界面，用戶在 3個(gè)文本框中輸入 3個(gè)數(shù)，單擊按鈕完成從大到小的排序，把結(jié)構(gòu)顯示在第 4個(gè)文本框中。中間變量 A = Val() : B = Val() : C = Val() If A B Then D = A : A = B : B = D End If If A C Then D = A : A = C : C = D End If If B C Then D = B : B = C : C = D End If = Str(A) + Str(B) + Str(C) End Sub 塊結(jié)構(gòu)條件語句 ? 2．多行形式的 If…… Then…… Else ? 用途：根據(jù)條件是否成立，選擇執(zhí)行不同的語句組 ? 語法： If 條件 Then 語句組 1 Else 語句組 2 End IF ? 說明：是單行 If…… Then…… Else結(jié)構(gòu)的多行形式，不同之處是條件成立時(shí)執(zhí)行的語句組 1不能直接跟在 Then后面而條件不成立時(shí)要執(zhí)行的語句組 2也不能直接跟在 Else后面，兩個(gè)語句組獨(dú)立成行，可以是一條語句也可以是多條語句，而且多行形式的 If…… Then…… Else語句最后一定要有 End If。如果情況復(fù)雜，要判斷的條件不止一個(gè)時(shí)，就需用到 If…… Then…… Else結(jié)構(gòu) ? 語法： If 條件 1 Then 語句組 1 [ ElseIF 條件 2 Then 語句組 2 ] …… …… [ ElseIF 條件 n1 Then 語句組 n1 ] [ Else 語句組 n ] End If 塊結(jié)構(gòu)條件語句 ? 3．多分支的 If…… Then…… ElseIF ? 說明： 1)Visual Basic首先測試條件 1是否成立，如果成立 (值為 True)，執(zhí)行語句組 1 2)否則，繼續(xù)判斷條件 2是否成立，如果成立(值為 True)，就執(zhí)行語句組 2 3)以此類推 (條件 3至條件 n1) 4)如果所有條件都不成立，就執(zhí)行 Else之后的語句組 n。 ? 語法： IIf (測試表達(dá)式 , True部分 , False部分 ) ? 說明： 測試表達(dá)式是一個(gè)邏輯表達(dá)式， True部分與False部分可以是一個(gè)表達(dá)式或變量與常量。 For循環(huán)的重復(fù)次數(shù)可以由一個(gè)計(jì)數(shù)變量的上、下限來決定。 4．到 Next語句 ,將計(jì)數(shù)器加上增量 5．重復(fù)步驟 2至 4 For…… Next 循環(huán) ? 例 ：求 S=1+2+3+…… +N，其中， N由用戶輸入 Private Sub Command1_Click() Dim N As Integer, I As Integer, S As Long N=Int (InputBox (―N=‖)) For I = 1 To N S = S + I Next I Print S=。 For…… Next 循環(huán) ? 例 ：判斷用戶輸入的自然數(shù)是否為質(zhì)數(shù)。即對(duì)于合數(shù) N必定有小于 N的平方根的因數(shù)。 S End Sub Do…… Loop 循環(huán) ? 有些時(shí)候，我們希望循環(huán)能不限次數(shù)地重復(fù)執(zhí)行，直到某個(gè)條件被滿足為止， Do… Loop循環(huán)就可以根據(jù)循環(huán)條件是 True或 False決定是否結(jié)束循環(huán)。 Format(S) End Sub Do…… Loop 循環(huán) ? 2. 條件后置的 Do…… Loop循環(huán) ? 用途： ? 當(dāng)需要先執(zhí)行循環(huán)體，再判斷條件時(shí)使用 ? 語法： Do 循環(huán)體 Loop While|Until 條件 Do…… Loop 循環(huán) ? 2. 條件后置的 Do…… Loop循環(huán) ? 說明： ? ，再判斷 Loop后的條件是否符合，以決定要不要重復(fù)執(zhí)行循環(huán)體 ? While或 Until，兩者為互補(bǔ)關(guān)系 ? While判斷時(shí)，若條件為 True，則反復(fù)執(zhí)行循環(huán)體，直到條件為 False時(shí)為止 ? Until判斷時(shí)，若條件為 False，則反復(fù)執(zhí)行循環(huán)體，直到條件為 True時(shí)為止 Do…… Loop 循環(huán) ? 例 ：利用 Do循環(huán)完成數(shù)值計(jì)算公式求 π Do…… Loop 循環(huán) ? 例 解法 1： Private Sub Command1_Click() Dim S As Single, Pi As Single Dim A As Single Dim m As Integer, k As Long m = 1 k = 1 A = 1 S = 1 Do k = k + 2 m = m A = m / k S = S + A Loop While Abs(A) = Pi = 4 * S MsgBox ―π= ‖ amp。 While…… Wend語句是早期 Basic語言的循環(huán)語句，現(xiàn)在它的功能已完全被 Do... Loop語句所包括，所以不常使用了。 多重循環(huán) ? 例 打印 “ 九九乘法表 ” ，輸出結(jié)構(gòu)如圖所示 多重循環(huán) ? 解析：九九乘法表是一個(gè) 9行 9列的二維表，行和列都要變化且行列相互約束 (第 I行需要有 I列 )，是一個(gè)典型的二重循環(huán)問題 Private Sub Form_Load() Show Dim I As Integer, J As Integer For I = 1 To 9 For J = 1 To I Print Format(I) amp。 Format(I * J)。 ? 2）標(biāo)號(hào)的命名與變量類似，但是必須以冒號(hào)結(jié)束；行號(hào)則是由數(shù)字指定，后面不跟冒號(hào)。 （ 1）設(shè)一邏輯變量初始值為真，當(dāng)讀到第一個(gè)非空字符時(shí)，計(jì)數(shù)變量增 1，同時(shí)將該邏輯變量設(shè)為假。 操作步驟 ? ? (1) 啟動(dòng) Microsoft Visual Basic 。 ? （略，見 P138） 第 7章 數(shù)組 ? 數(shù)組的概念 ? 數(shù)組的基本操作 ? 動(dòng)態(tài)數(shù)組 ? 控件數(shù)組 數(shù)組的概念 ? 在 Visu