Visual Basic基本控件結(jié)構(gòu)教程

1、 4.1 順序結(jié)構(gòu) 4.2 選擇結(jié)構(gòu) 4.3 循環(huán)結(jié)構(gòu) 4.4 其他輔助控制語句 4.5 常用算法（一） 4.6 常見錯誤 （順序、條件、循環(huán)） VB采用事件驅(qū)動編程機(jī)制，但仍需要結(jié)構(gòu)化程序設(shè)計方法，采用事件驅(qū)動編程機(jī)制，但仍需要結(jié)構(gòu)化程序設(shè)計方法，用控制結(jié)構(gòu)控制程序執(zhí)行的流程。用控制結(jié)構(gòu)控制程序執(zhí)行的流程。程序設(shè)計三種基本結(jié)構(gòu)：程序設(shè)計三種基本結(jié)構(gòu)： 順序、選擇、循環(huán)順序、選擇、循環(huán) 一個計算機(jī)程序通?？煞譃槿糠?，即一個計算機(jī)程序通常可分為三部分，即輸入輸入、處理處理和和輸出輸出。 VB的輸入輸出有著十分豐富的內(nèi)容和形式，它提供的輸入輸出有著十分豐富的內(nèi)容和形式，它提供了多種手段，并可通過

2、各種控件實(shí)現(xiàn)輸入輸出操作，使了多種手段，并可通過各種控件實(shí)現(xiàn)輸入輸出操作，使輸入輸出更加靈活、多樣、方便、直觀。輸入輸出更加靈活、多樣、方便、直觀。4.1順序結(jié)構(gòu)功能: 先計算“=”號(稱為賦值號)右邊的表達(dá)式的值,然后將此值賦給賦值號左邊的變量或?qū)ο髮傩?說明: 應(yīng)符合VB的變量命名約定?？梢允浅Ａ?、變量、表達(dá)式及帶有屬性的對象。 格式:Let =1.賦值語句1) “=”賦值號與數(shù)學(xué)中的等號意義不同。例如：語句X=X+1表示將變量X的值加1后的結(jié)果值再賦給變量X,而不是表示兩邊的值相等.2) 賦值號左邊必須是變量或?qū)ο髮傩?例: X=1MyStr = “Good Morning”Comman

3、d1.Caption=“確定”X+1=X (錯誤) 3)等號與賦值號的區(qū)別Dim a%,b%,c%a=b=c=1Print a 注意事項(xiàng) ：在對話框內(nèi)，提示用戶輸入的數(shù)據(jù)的范圍、作用等在對話框內(nèi)，提示用戶輸入的數(shù)據(jù)的范圍、作用等 。如果要顯示多行信息，則可在各行行末用回車符。如果要顯示多行信息，則可在各行行末用回車符Chr(13)Chr(13)、換、換行符行符Chr(10)Chr(10)、回車換行符的組合、回車換行符的組合, ,或系統(tǒng)常量或系統(tǒng)常量vbCrLfvbCrLf來換行。來換行。 ：可選項(xiàng)可選項(xiàng), ,運(yùn)行時該參數(shù)顯示在對話框的標(biāo)題欄中運(yùn)行時該參數(shù)顯示在對話框的標(biāo)題欄中 如果省略，則在標(biāo)

4、題欄中顯示當(dāng)前的應(yīng)用程序名如果省略，則在標(biāo)題欄中顯示當(dāng)前的應(yīng)用程序名 ：字符串表達(dá)式，可選項(xiàng)。顯示在對話框上的文本框字符串表達(dá)式，可選項(xiàng)。顯示在對話框上的文本框中，在沒有其他輸入時作為缺省值。如果省略，則文本框?yàn)榭?。中，在沒有其他輸入時作為缺省值。如果省略，則文本框?yàn)榭铡?InputBox函數(shù)產(chǎn)生一個對話框，作為輸入數(shù)據(jù)的界面，等待用戶輸入正文或按下按鈕，并返回所輸入的內(nèi)容。格式:InputBox(,)1 輸入框函數(shù)(InputBox) 例要在屏幕上顯示如下的對話框: Dim i As String * 40， s1 As String * 40 i= InputBox( “請輸入你的姓名”

5、+ vbCrLf + “然后 單擊確定” , “輸入框” ) 或: S1 = “請輸入你的姓名” + Chr(13) + Chr(10) + “然后單擊確定” i= InputBox(S1， “輸入框”， ， 100，100) 當(dāng)鍵盤輸入“王曉明” 后,變量i獲得鍵盤輸入的值.4.1.3 舉例 使用文本框輸入圓的半徑，計算圓的面積并用標(biāo)簽輸出。運(yùn)行界面如下圖所示。Private Sub Command1_Click() Dim r As Double,s As Double Const pi = 3.1415926 r = Val(Text1.Text) s=pi * r * r Label2

6、.Caption = “圓的面積：” & s End Sub示例在windOWS中，如果操作有誤，通常會在屏幕上顯示一個對話框，提示用戶進(jìn)行選擇，然后系統(tǒng)根據(jù)選擇確定其后的操作。 VB提供的MsgBox函數(shù)可以實(shí)現(xiàn)此功能，它可以向用戶傳送信息，并可以接收用戶在對話框上的選擇，以此作為程序繼續(xù)執(zhí)行的依據(jù)。2、消息框函數(shù)MsgBox（）和Msgbox過程格式： 變量%=MsgBox(,)功能：在對話框中顯示消息，等待用戶單擊按鈕，并返回一 個整數(shù)告訴用戶單擊了哪個按鈕。 說明: ：字符串，指定顯示在對話框中的信息，字符串，指定顯示在對話框中的信息，要在提示信息中對文本信息進(jìn)行換行，可以使用

7、回車符要在提示信息中對文本信息進(jìn)行換行，可以使用回車符Chr(13)、換行符、換行符Chr(10)或是回車與換行符的組合或是回車與換行符的組合Chr(13)&Chr(10)。 ：數(shù)值型數(shù)據(jù)，是可選項(xiàng)，用來指定對話數(shù)值型數(shù)據(jù)，是可選項(xiàng)，用來指定對話框中出現(xiàn)的按鈕和圖標(biāo)的種類及數(shù)量，該參數(shù)的值由三框中出現(xiàn)的按鈕和圖標(biāo)的種類及數(shù)量，該參數(shù)的值由三類數(shù)值相加產(chǎn)生，這三類數(shù)值分別表示按鈕的類型、顯類數(shù)值相加產(chǎn)生，這三類數(shù)值分別表示按鈕的類型、顯示圖標(biāo)的種類及默認(rèn)按鈕的位置示圖標(biāo)的種類及默認(rèn)按鈕的位置 ：字符串表達(dá)式，是可選項(xiàng)，它顯示在字符串表達(dá)式，是可選項(xiàng)，它顯示在對話框的標(biāo)題欄中，如果省略，則

8、在標(biāo)題欄中顯示應(yīng)用對話框的標(biāo)題欄中，如果省略，則在標(biāo)題欄中顯示應(yīng)用程序名。程序名。分類按鈕值系統(tǒng)定義符號常量含義按鈕類型0vbOKOnly只顯示“確定”按鈕1vbOKCancel顯示“確定”、“取消”按鈕 2vbAbortRetryIgnore顯示“終止”、“重試”、“忽略”按鈕 3vbYesNoCancel顯示“是”、“否”、“取消”按鈕 4vbYesNo顯示“是”、“否”按鈕 5vbRetryCancel顯示“重試”、“取消”按鈕 圖標(biāo)類型16vbCritical顯示停止圖標(biāo) x 32vbQuestion顯示詢問圖標(biāo) ? 48vbExclamation顯示警告圖標(biāo) ！64vbInforma

9、tion顯示信息圖標(biāo)i 默認(rèn)按鈕0vbDefaultButton1第一個按鈕是默認(rèn)按鈕 256vbDefaultButton2第二個按鈕是默認(rèn)按鈕 512vbDefaultButton3第三個按鈕是默認(rèn)按鈕 “按鈕類型”的設(shè)置值及含義例:Private Sub Command1_Click( ) a= MsgBox(“提示信息”)End SubPrivate Sub Command1_Click( ) a= MsgBox(“提示信息” & Chr(13) & “換行顯示”)End Sub只顯示“提示信息”提示信息換行Private Sub Command1_Click( ) a

10、= MsgBox(“提示信息” , ,“標(biāo)題”)End Sub省略第二個參數(shù)“按鈕類型”,但逗號不能省略Private Sub Command1_Click( ) a= MsgBox(“提示信息” ,1,“標(biāo)題”)End Sub顯示“確定”、“取消”按鈕Private Sub Command1_Click( ) a= MsgBox(“提示信息” ,1+16,“標(biāo)題”)End SubPrivate Sub Command1_Click( ) a= MsgBox(“提示信息” ,2+32+0,“標(biāo)題”)End Sub顯示停止圖標(biāo)設(shè)第一按鈕是默認(rèn)按鈕MsgBox函數(shù)的返回值系統(tǒng)符號常量返回值按鍵vb

11、OK1確定vbCancel2取消vbAbort3終止vbRetry4重試vbIgnore5忽略vbYes6是vbNo7否若不需要返回值,則可以使用MsgBox語句, 其格式為: MsgBox ,示例4.2選擇結(jié)構(gòu) 1. IfThen1. IfThen語句語句( (單分支結(jié)構(gòu)單分支結(jié)構(gòu)) ) If Then 語句塊語句塊 End If 或或 If Then 例: 求一個數(shù)的絕對值 if x0 then x=-x表達(dá)式 語句塊TF圖1-3-7 單分支結(jié)構(gòu)引入引入:兩數(shù)交換兩數(shù)交換已知兩個數(shù)已知兩個數(shù)x和和y，比較它們，比較它們的大小，的大小， 使得使得x大于大于y. If xy then t=x

12、x=y y=t end if x y t123 x y t123或或 If (xy) then t=y: y=x: x=t示例2. IfThenElse2. IfThenElse語句語句( (雙分支結(jié)構(gòu)雙分支結(jié)構(gòu)) ) If Then Else End If 例：密碼識別例：密碼識別If Text2.Text = 12345 Then MsgBox 密碼正確, vbInformation, 歡迎 Else MsgBox “密碼錯誤，請重新輸入密碼錯誤，請重新輸入”, vbOKOnly + vbQuestion, “哈哈我懷疑你是小哈哈我懷疑你是小偷偷!” End If 表達(dá)式F圖1-3-9 雙

13、分支結(jié)構(gòu) 語句塊1T 語句塊2示例3. IfThenElseIf3. IfThenElseIf語句語句( (多分支結(jié)構(gòu)多分支結(jié)構(gòu)) ) 形式: If Then ElseIf Then else End If ElseIf不能寫成 Else If。條件1語句組1條件2語句組2條件n語句組n其他語句組 1、寫出三種選擇結(jié)構(gòu)單分支、雙分支、多分支。 2、請用inputbox輸入兩數(shù)，在屏幕上輸出其中較大的數(shù)。 3、 4、編寫一個可以為成績分等的程序，將某門課的成績分60以下不及格，60-70及格，70-80中，80-90良，90-100優(yōu)秀，并輸出。Y=-110X0X=0 5、以知x,y,z三個數(shù)，

14、使得xyz分段數(shù)學(xué)函數(shù)的分段數(shù)學(xué)函數(shù)的IF表示表示Y=-110X0X=0If x y then max=xElse max=yendif二、求三個數(shù)中的最大數(shù)，并輸出。二、求三個數(shù)中的最大數(shù)，并輸出。Dim x%,y%,z%,max% If x y then max=xElse max=yEnd ifIf cmax then max=c上機(jī)題目：上機(jī)題目： 1、做個聊天室簡單的要求用到做個聊天室簡單的要求用到 inputbox msgbox 選擇結(jié)構(gòu)選擇結(jié)構(gòu) 2、蝴蝶飛出去可以飛回來蝴蝶飛出去可以飛回來 練習(xí)練習(xí): 課本后面及實(shí)訓(xùn)的所有題目課本后面及實(shí)訓(xùn)的所有題目 4 4、三個數(shù)排序、三個數(shù)排

15、序IfIf語句的嵌套語句的嵌套 If語句的嵌套是指If或Else后面的語句塊中又包含If語句。 形式如下： If Then If Then End If End If 例：已知已知x,y,z三個數(shù)，使得三個數(shù)，使得xyz。 If xy Then t=x: x=y: y=t If yz Then t=y: y=z: z=t If xy Then t=x: x=y: y=t End If End IfIf語句的嵌套注意事項(xiàng) If 與End If配對。5. Select Case5. Select Case語句語句( (情況語句情況語句) )形式：Select Case 總變量或表達(dá)式總變量或表達(dá)式

16、Case 表達(dá)式列表表達(dá)式列表1語句塊語句塊1Case 表達(dá)式列表表達(dá)式列表2語句塊語句塊2Case Else語句塊語句塊n+1End Select P20：與同類型的下面四種形式之一 一組枚舉表達(dá)式(用逗號分隔) 2,4,6,8 表達(dá)式1 To 表達(dá)式2 “A” To “Z” Is 關(guān)系運(yùn)算符表達(dá)式 Is = A And Ucase (strC) = 0 And strC = 95 Print 一等獎 Case mark1 = 100 And mark2 = 100 And mark2 = 80 End Select錯誤注意：注意：Select Case 后不能出現(xiàn)多個變量；后不能出現(xiàn)多個變

17、量；Case后不能出現(xiàn)邏輯運(yùn)算符。后不能出現(xiàn)邏輯運(yùn)算符。6.條件函數(shù)條件函數(shù) （1）IIf函數(shù)形式是： IIf（表達(dá)式，當(dāng)表達(dá)式為（表達(dá)式，當(dāng)表達(dá)式為True時的值，當(dāng)表達(dá)式為時的值，當(dāng)表達(dá)式為False時的值）時的值） 例如，求x,y中大的數(shù)，放入Tmax變量中，語句如下： Tmax=IIf（x y，x，y） （2）Choose函數(shù)形式是： Choose（數(shù)字類型變量，值為（數(shù)字類型變量，值為1的返回值，值為的返回值，值為2的返回值的返回值） 例如，Nop是1-4的值，轉(zhuǎn)換成 + 、-、運(yùn)算符的語句如下： Op= Choose（Nop，+，-，） 當(dāng)值為1，返回字符串“+”，然后放入Op變量

18、中，值為2，返回字符 串“-”，依次類推；當(dāng)Nop是1-4的非整數(shù)，系統(tǒng)自動取Nop的整數(shù)辦法在判斷；若Nop不在1-4之間，函數(shù)返回Null值。思考:1+2+3+4+5+100 任何實(shí)現(xiàn)任何實(shí)現(xiàn)? 循環(huán)結(jié)構(gòu)是結(jié)構(gòu)化程序中的三種基本程序結(jié)構(gòu)之一。在程序中，凡是需要重復(fù)相同或相似的操作步驟，都可以用循環(huán)結(jié)構(gòu)來實(shí)現(xiàn)。 循環(huán)結(jié)構(gòu)由兩部分組成： 循環(huán)體，即要重復(fù)執(zhí)行的語句序列； 循環(huán)控制部分，即用于規(guī)定循環(huán)的重復(fù)條件或重復(fù)次數(shù)，同時確定循環(huán)范圍的語句。 要使計算機(jī)能夠正常執(zhí)行某循環(huán)，由循環(huán)控制部分所規(guī)定的循環(huán)次數(shù)必須是有限的，即循環(huán)體可以重復(fù)0次到若干次。 在已知循環(huán)要執(zhí)行多少次時，最好使用ForNe

19、xt循環(huán)。在ForNext循環(huán)中使用一個起計數(shù)器作用的循環(huán)變量，每重復(fù)一次循環(huán)之后，循環(huán)變量的值就會按一定的步長增加或者減少，直到超過某規(guī)定的終值時退出循環(huán)。 格式如下： For = To Step Exit For Next For循環(huán)語句循環(huán)語句 (一般用于循環(huán)次數(shù)已知)形式 For 循環(huán)變量初值循環(huán)變量初值 to 終值終值 Step 步長步長 語句塊語句塊Exit For 語句塊語句塊 Next 循環(huán)變量循環(huán)變量 步長循環(huán)體 0 初值終值 =1 時,可省略終值=0 死循環(huán)循環(huán)次數(shù)) 1(步長初值終值Int以下面循環(huán)為例，以框圖形式說明For循環(huán)執(zhí)行過程：For I= to step 循環(huán)

20、體Next II=e1I超過終值e2?循環(huán)體I=I+e3NY例: For I=2 To 13 Step 3 循環(huán)執(zhí)行次數(shù) Print I , 輸出I的值分別為: Next I 2 5 8 11 Print : Print “I=“, I 出了循環(huán)輸出為: I=14輸出金字塔輸出金字塔程序程序:For i = 1 To 5 Print Tab(20 - i); String(2 * i - 1, *) Next I1、輸出、輸出100到到1000以內(nèi)的水仙花數(shù)以內(nèi)的水仙花數(shù).4) 1(3213Int 分離位數(shù)分離位數(shù)三位數(shù)三位數(shù) ： m百位數(shù)字：百位數(shù)字：a=m100個位數(shù)字：個位數(shù)字：c=m

21、mod 10十位數(shù)字：十位數(shù)字：b=(m-a*100)10For m=100 to 1000 a=m100 c=m%10 b=(m-a*100)10 if m=a3+b3+c3 then print m end ifNext mP120 例例6.6 輸出輸出“水仙花數(shù)水仙花數(shù)”算法是對某個問題求解過程的描述 1.1.累加、連乘累加、連乘 1100的的 和和 Sum = 0 For i = 1 To 100 Sum = Sum + i Next i Print Sum1100的乘積的乘積 t = 1 For i =1 To 100 t = t * i Next i Print t思考：思考：若把

22、循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程若把循環(huán)體前面置各變量初值的語句放在循環(huán)體內(nèi)，程序運(yùn)行時會產(chǎn)生什么情況？序運(yùn)行時會產(chǎn)生什么情況？ 1、退出循環(huán)后，循環(huán)變量的值保持退出時的值 、在循環(huán)體內(nèi)對循環(huán)變量多次賦值會影響原來的循環(huán)控制規(guī)律。 程序運(yùn)行結(jié)果。 循環(huán)的其他形式2. DoLoop循環(huán)語句循環(huán)語句(用于控制循環(huán)次數(shù)未知)形式1： Do While|Until 語句塊語句塊 Exit Do 語句塊語句塊 Loop形式2：Do 語句塊語句塊 Exit Do 語句塊語句塊Loop While|Until 表達(dá)式列表 1 F T F T Exit Do 語句塊 語句塊 Exit Do 語句塊

23、 語句塊 表達(dá)式列表 1 圖 1-3-16 Do Loop While 圖 1-3-15 Do WhileLoop 格式一 :前測式當(dāng)型循環(huán)Do While Exit Do Loop格式二:前測式直到型循環(huán)Do Until Exit Do Loop格式三 :后測式當(dāng)型循環(huán)Do Exit Do Loop While格式四：后測式直到型循環(huán)Do Exit Do Loop UntilDoLoop循環(huán)結(jié)構(gòu)的四種格式 上機(jī)題目： 1. 計算1+3+5+999并輸出結(jié)果 2. 計算1*3*7*99并輸出結(jié)果 3. 輸入三數(shù)，按從小到大順序輸出。 4 . 輸出1到100之間能被3或7整除，但不能同時被3和7

24、整除的整數(shù)，且每七個數(shù)換一行。 先判斷，后循環(huán)先判斷，后循環(huán)s = 0i = 1 Do While i =10 s = s + i i = i + 1 Loop Print i, s用用while語句求語句求1+2+3+10先循環(huán)，后判斷先循環(huán)，后判斷s = 0i = 1 Do s = s + i i = i + 1 Loop While I=10 Print i, s先判斷，后循環(huán)先判斷，后循環(huán)s = 0i = 1 Do While i 1 s = s + i i = i + 1 Loop Print i, s兩種兩種while語句比較語句比較先循環(huán)，后判斷先循環(huán)，后判斷s = 0i = 1

25、 Do s = s + i i = i + 1 Loop While In； (2) m除以除以n得余數(shù)得余數(shù)r； (3)若若r=0，則，則n為最大公約數(shù)結(jié)束；否則執(zhí)行為最大公約數(shù)結(jié)束；否則執(zhí)行(4)； (4)mn，nr，再重復(fù)執(zhí)行，再重復(fù)執(zhí)行(2)。 例例 求求 m=14 ,n=6 的最大公約數(shù)的最大公約數(shù). m n r 14 6 2 6 2 0If m n Then t = m: m = n: n = t r=m mod n Do While (r 0) m=n n=r r= m mod n Loop Print 最大公約數(shù)最大公約數(shù)=, n m=m-n mnn=n-m nm m、n為公約

26、數(shù)為公約數(shù) m=n輾轉(zhuǎn)相減法輾轉(zhuǎn)相減法 m n 14 6 8 6 2 6 2 4 2 2Do While m n If m n Then m = m - n Else n = n - m End If Loop例例2.判斷素數(shù)判斷素數(shù) 判別某數(shù)判別某數(shù)m是否為素數(shù)最簡單的方法是是否為素數(shù)最簡單的方法是: 對于對于m 從從i=2，3，m-1判別判別m能否被能否被i整除，只要整除，只要有一個能整除，有一個能整除，m不是素數(shù)，否則不是素數(shù)，否則m是素數(shù)。是素數(shù)。 flag=1 For i = 2 To m - 1 If (m Mod i) = 0 Then flag=0 Next I if flag

27、=0 then Print “m不是素數(shù)不是素數(shù)”Else print “m是素數(shù)是素數(shù)”endif 為提高運(yùn)行速度，可將為提高運(yùn)行速度，可將m-1 改為改為int(sqr(m)例：從鍵盤輸入一正整數(shù)，判斷是否是素數(shù)。輸入值K=int(sqr(n)I=2Flag=0I=k且Flag=0?N能被整除嗎？Flag=1I=I+1Flag=0？打印不是素數(shù)打印是素數(shù)結(jié)束開始程序代碼如下：n = InputBox(n=)k = Int(Sqr(n) I = 2 flag = 0 Do While I = k And flag = 0 If n Mod I = 0 Then flag = 1 Else I = I + 1 End If Loop If flag = 0 Then Print n; is a prime umber. Else Print n; is not a prime number. End If3.求素數(shù)求素數(shù) 判別某數(shù)m是否為素數(shù)最簡單的方法是