第4章 設(shè)計基礎(chǔ)

1、V i s u a l B A S I C 程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)1第第4章章 Visual Basic程序設(shè)計程序設(shè)計基礎(chǔ)基礎(chǔ)第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)2本章要點(diǎn)本章要點(diǎn): VB代碼的書寫規(guī)則代碼的書寫規(guī)則賦值語句、注釋語句、結(jié)束語句、暫停語句賦值語句、注釋語句、結(jié)束語句、暫停語句VB數(shù)據(jù)的輸入數(shù)據(jù)的輸入/輸出方法輸出方法順序結(jié)構(gòu)程序設(shè)計方法順序結(jié)構(gòu)程序設(shè)計方法IF語句、語句、Select Case語句語句While/Wend、Do/Loop、For/Next語句，語句，Exit Do、Exit For語句語句分支分支/循環(huán)的嵌套循環(huán)的嵌套常見算法程序設(shè)

2、計常見算法程序設(shè)計第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)34.1 VB程序代碼的書寫規(guī)則程序代碼的書寫規(guī)則1、VB可以按照一定的格式化規(guī)則對所輸入的語可以按照一定的格式化規(guī)則對所輸入的語句進(jìn)行處理。句進(jìn)行處理。例如：例如：關(guān)鍵字會格式化為首字母大寫，其余字母小寫；關(guān)鍵字會格式化為首字母大寫，其余字母小寫；運(yùn)算符前后自動加空格等。運(yùn)算符前后自動加空格等。所以輸入關(guān)鍵字、函數(shù)名等時，可以不必區(qū)分大所以輸入關(guān)鍵字、函數(shù)名等時，可以不必區(qū)分大小寫；小寫；第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)42.語句的續(xù)行符一個語句行的最大長度為一個語句行的最大長度為1

3、023個字符；個字符；VB規(guī)定一行語句最多可寫規(guī)定一行語句最多可寫255個字符。如果超出這個字符。如果超出這個范圍，可采用多行書寫個范圍，可采用多行書寫(一個空格加一個下劃線一個空格加一個下劃線“_”)。注意：在續(xù)行符后邊不允許使用注釋，也不可將變注意：在續(xù)行符后邊不允許使用注釋，也不可將變量名、屬性名分寫到兩行。量名、屬性名分寫到兩行。3.同一行上可書寫多個語句同一行上可書寫多個語句 在一行上可以書寫多個語句，但每個語句間在一行上可以書寫多個語句，但每個語句間必須有必須有冒號冒號“：”進(jìn)行分隔。進(jìn)行分隔。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)54.不同進(jìn)制的數(shù)據(jù)區(qū)分不

4、同進(jìn)制的數(shù)據(jù)區(qū)分 二進(jìn)制前面加前綴二進(jìn)制前面加前綴 “&B” 八進(jìn)制前面加前綴八進(jìn)制前面加前綴 “&O” 十六進(jìn)制前面加前綴十六進(jìn)制前面加前綴 “&H” 十進(jìn)制前面不需要加前綴十進(jìn)制前面不需要加前綴5.行號與標(biāo)號行號與標(biāo)號 VB中一般不需要加行號或標(biāo)號，但是也允許中一般不需要加行號或標(biāo)號，但是也允許在語句前面加行號或標(biāo)號。在語句前面加行號或標(biāo)號。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)64.2 基本語句介紹基本語句介紹4.2.1 賦值語句賦值語句 4.2.2 注釋語句注釋語句4.2.3 結(jié)束語句結(jié)束語句4.2.4 暫停語句暫停語句第四章第四章 Vi

5、sual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)7不同進(jìn)制的數(shù)據(jù)區(qū)分 二進(jìn)制前面加前綴 “&B” 八進(jìn)制前面加前綴 “&O” 十六進(jìn)制前面加前綴 “&H” 十進(jìn)制前面不需要加前綴行號與標(biāo)號 VB中一般不需要加行號或標(biāo)號，但是也允許在語句前面加行號或標(biāo)號。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)84.2.1 賦值語句賦值語句【格式格式】 let 變量名變量名=表達(dá)式表達(dá)式 let 對象名對象名.屬性名屬性名=表達(dá)式表達(dá)式【功能功能】先計算先計算“=”右邊的表達(dá)式的值，然后將該值賦右邊的表達(dá)式的值，然后將該值賦給給“=”左邊的變量或?qū)傩?。左邊的變量或?qū)傩浴?/p>

6、 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)9（1）變量在被第一次賦值之前，具有系統(tǒng)）變量在被第一次賦值之前，具有系統(tǒng)默認(rèn)的初始值默認(rèn)的初始值，不同類型的變量，其默認(rèn)的初始值不同。變量被賦值不同類型的變量，其默認(rèn)的初始值不同。變量被賦值后，則變量原來的值被覆蓋掉。所以某個變量被多次后，則變量原來的值被覆蓋掉。所以某個變量被多次賦值后，只保留最后一次賦的值。賦值后，只保留最后一次賦的值。（2）如果程序中有變量強(qiáng)制聲明語句）如果程序中有變量強(qiáng)制聲明語句“Option Explicit”，而被賦值的變量未聲明，則該賦值語句被執(zhí)行時，會而被賦值的變量未聲明，則該賦值語句被執(zhí)行時，會

7、出現(xiàn)編譯錯誤出現(xiàn)編譯錯誤“變量未定義變量未定義”。（3）如果程序中沒有變量強(qiáng)制聲明語句）如果程序中沒有變量強(qiáng)制聲明語句“Option Explicit”，而被賦值的變量未聲明，則該賦值語句被，而被賦值的變量未聲明，則該賦值語句被執(zhí)行時，系統(tǒng)將創(chuàng)建該變量，并將表達(dá)式的值賦給它。執(zhí)行時，系統(tǒng)將創(chuàng)建該變量，并將表達(dá)式的值賦給它。 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)10（4）如果為對象的屬性賦值，則對象必須存在且具有該屬）如果為對象的屬性賦值，則對象必須存在且具有該屬性。輸入語句時，只要鍵入已存在的對象名和圓點(diǎn)，系統(tǒng)性。輸入語句時，只要鍵入已存在的對象名和圓點(diǎn)，系統(tǒng)就會自動

8、顯示屬性列表供選擇，所以先建立對象，再輸入就會自動顯示屬性列表供選擇，所以先建立對象，再輸入程序，可以防止命名上的不一致或輸入錯誤。如果缺省對程序，可以防止命名上的不一致或輸入錯誤。如果缺省對象名，只給出屬性名，則默認(rèn)對象是指當(dāng)前窗體。象名，只給出屬性名，則默認(rèn)對象是指當(dāng)前窗體。（5）在實(shí)際應(yīng)用中，也可以只給出對象名，不給出屬性名，）在實(shí)際應(yīng)用中，也可以只給出對象名，不給出屬性名，這時將為該對象的這時將為該對象的“缺省屬性缺省屬性”賦值。賦值?！叭笔傩匀笔傩浴钡暮暮x即在語句中不給出屬性名時，默認(rèn)的操作屬性。不同種義即在語句中不給出屬性名時，默認(rèn)的操作屬性。不同種類的對象，其缺省屬性也不

9、同，類的對象，其缺省屬性也不同， 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)11（6）在使用賦值語句時，要特別注意被賦值的變量（或）在使用賦值語句時，要特別注意被賦值的變量（或?qū)傩裕┡c賦值號右邊表達(dá)式的類型。可以將任意類型的屬性）與賦值號右邊表達(dá)式的類型?？梢詫⑷我忸愋偷谋磉_(dá)式賦給表達(dá)式賦給Variant類型變量；除此以外，我們通常要類型變量；除此以外，我們通常要求二者類型一致，這樣可以使程序更加清晰規(guī)范；但在求二者類型一致，這樣可以使程序更加清晰規(guī)范；但在很多情況下，很多情況下，VB都可以自動將表達(dá)式轉(zhuǎn)換為被賦值變都可以自動將表達(dá)式轉(zhuǎn)換為被賦值變量的類型進(jìn)行賦值，使用起來

10、靈活方便，但一定要搞清量的類型進(jìn)行賦值，使用起來靈活方便，但一定要搞清楚常用數(shù)據(jù)類型的自動轉(zhuǎn)換規(guī)則。楚常用數(shù)據(jù)類型的自動轉(zhuǎn)換規(guī)則。 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)12例例 交換兩個數(shù)交換兩個數(shù)重要的是學(xué)會兩個數(shù)的交換，若上述語句次序變一下，結(jié)果如重要的是學(xué)會兩個數(shù)的交換，若上述語句次序變一下，結(jié)果如何？何？ t=x x=y y=t第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)13文本框中內(nèi)容的交換：文本框中內(nèi)容的交換： Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Tex

11、t = t第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)144.2.2 注釋語句注釋語句【格式格式1】Rem 注釋內(nèi)容注釋內(nèi)容【格式格式2】注釋內(nèi)容注釋內(nèi)容注釋語句是一個非執(zhí)行語句，它的主要作用是為程序加注釋語句是一個非執(zhí)行語句，它的主要作用是為程序加上必要的注解，增加程序的可讀性。注釋內(nèi)容可以是上必要的注解，增加程序的可讀性。注釋內(nèi)容可以是任意可顯示的字符，在執(zhí)行程序時，注釋將被過濾掉。任意可顯示的字符，在執(zhí)行程序時，注釋將被過濾掉。注釋語句還有一個作用，在調(diào)試程序時，為了找出錯誤注釋語句還有一個作用，在調(diào)試程序時，為了找出錯誤的位置，可以先將部分語句加上注釋符號，暫不執(zhí)行，

12、的位置，可以先將部分語句加上注釋符號，暫不執(zhí)行，僅執(zhí)行另一部分語句。需要時，去掉注釋符號，即可僅執(zhí)行另一部分語句。需要時，去掉注釋符號，即可執(zhí)行。執(zhí)行。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)15（1）格式）格式1中，關(guān)鍵字中，關(guān)鍵字Rem與注釋內(nèi)容之間需要有與注釋內(nèi)容之間需要有空格空格；格式格式2中，單引號中，單引號“”與注釋內(nèi)容之間則不需要空格。與注釋內(nèi)容之間則不需要空格。輸入程序時，注釋內(nèi)容被自動格式化為綠色字體。輸入程序時，注釋內(nèi)容被自動格式化為綠色字體。（2）格式）格式1必須獨(dú)立形成一個語句行，不能直接出現(xiàn)在必須獨(dú)立形成一個語句行，不能直接出現(xiàn)在其它代碼的后面；

13、若想用于其他代碼后面，必需用冒其它代碼的后面；若想用于其他代碼后面，必需用冒號號(：) 把把Rem關(guān)鍵字與代碼隔開。關(guān)鍵字與代碼隔開。 格式格式2既可以放在語句行的開始處，為一段程序做注釋，既可以放在語句行的開始處，為一段程序做注釋，也可以放在語句的后面，為一條語句做注釋。也可以放在語句的后面，為一條語句做注釋。（3）如果注釋內(nèi)容有很多行，則每行前都要有注釋符）如果注釋內(nèi)容有很多行，則每行前都要有注釋符（Rem或單引號），這叫做或單引號），這叫做“塊注釋塊注釋”。 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)164.2.3 結(jié)束語句結(jié)束語句【格式格式】End【功能功能】可放在

14、程序中的任何位置，用來終止整可放在程序中的任何位置，用來終止整個程序的執(zhí)行，并關(guān)閉已打開的文件并清除變個程序的執(zhí)行，并關(guān)閉已打開的文件并清除變量。量。 End Sub語句用來終止一個語句用來終止一個Sub過程的執(zhí)行，對過程的執(zhí)行，對每個每個Sub過程只能有一個，過程只能有一個，End語句用來終止語句用來終止整個應(yīng)用程序的執(zhí)行，必須放在過程體內(nèi)，可整個應(yīng)用程序的執(zhí)行，必須放在過程體內(nèi)，可以有多個。以有多個。 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)174.2.4 暫停語句暫停語句【格式格式】Stop【功能功能】在程序解釋執(zhí)行時，在程序解釋執(zhí)行時，Stop語句使程序進(jìn)語句使程

15、序進(jìn)入中斷模式，以便對程序進(jìn)行檢查和調(diào)試。入中斷模式，以便對程序進(jìn)行檢查和調(diào)試。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)18 4.3.1 InputBox函數(shù)函數(shù)1.格式格式InputBox(prompt, title , default , xpos , ypos , helpfile, context)最常用的格式：最常用的格式： InputBoxInputBox( , , )2. 功能功能 提示一對話框，等待用戶輸入正文或按下按鈕，提示一對話框，等待用戶輸入正文或按下按鈕， 并返回所輸入的內(nèi)容。并返回所輸入的內(nèi)容。 : 字符串表達(dá)式。用于提示用戶輸入。在對話框字符串

16、表達(dá)式。用于提示用戶輸入。在對話框內(nèi)顯示時可自動換行，若想按自己要求格式換行，可插內(nèi)顯示時可自動換行，若想按自己要求格式換行，可插入回車換行符：入回車換行符：用用Chr(13)、Chr(10)、Chr(13) & Chr(10)、vbCrLf。數(shù)據(jù)輸入輸出對話框數(shù)據(jù)輸入輸出對話框InputBoxMsgBox4.3 數(shù)據(jù)的輸入與輸出數(shù)據(jù)的輸入與輸出第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)19單擊單擊“確定確定”，返回文本框中的文本到變量，返回文本框中的文本到變量R中中單擊單擊“取消取消”，返回一個零長度的字符串，返回一個零長度的字符串例例: Private Sub

17、Form_Activate() Dim R As String, AREA As Single R = InputBox(請輸入半徑請輸入半徑, 計算面積計算面積, 1) AREA = 3. 14 * Val(R) 2 Print Val(R), AREA End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)20注意事項注意事項1.執(zhí)行執(zhí)行InputBox函數(shù)后，產(chǎn)生一個對話框，提示輸函數(shù)后，產(chǎn)生一個對話框，提示輸入數(shù)據(jù)，光標(biāo)位于輸入框中，若入數(shù)據(jù)，光標(biāo)位于輸入框中，若“default”不省不省略，則輸入?yún)^(qū)顯示該值，可按確定將該值賦給一略，則輸入?yún)^(qū)顯示該值，可按確定將該

18、值賦給一個變量，也可以重新輸入。個變量，也可以重新輸入。2.默認(rèn)情況下，默認(rèn)情況下，InputBox函數(shù)的返回值是一個字符函數(shù)的返回值是一個字符串，故需要將其返回值作為數(shù)值參加運(yùn)算時，需串，故需要將其返回值作為數(shù)值參加運(yùn)算時，需事先用事先用Val函數(shù)函數(shù)（或其他轉(zhuǎn)換函數(shù)）轉(zhuǎn)換為相應(yīng)類（或其他轉(zhuǎn)換函數(shù)）轉(zhuǎn)換為相應(yīng)類型的數(shù)值，但轉(zhuǎn)換有時不準(zhǔn)確，最好事先顯式定型的數(shù)值，但轉(zhuǎn)換有時不準(zhǔn)確，最好事先顯式定義每個變量。義每個變量。3.InputBox函數(shù)和函數(shù)和InputBox $函數(shù)完全等價。函數(shù)完全等價。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)214.3.2 Print方法方法

19、Print方法可以在窗體上顯示文本字符串和表達(dá)式的值，方法可以在窗體上顯示文本字符串和表達(dá)式的值，并可以在其他圖形對象和打印機(jī)上輸出信息。并可以在其他圖形對象和打印機(jī)上輸出信息。 格式格式: .Print;|,;|, : 窗體窗體 如如 Form1.Print Hello 圖片框圖片框 如如 Picture1.Print Hello 打印機(jī)打印機(jī) 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug .Print Hello 省略省略: 默認(rèn)為當(dāng)前窗體。默認(rèn)為當(dāng)前窗體。 : 多個表達(dá)式多個表達(dá)式使用逗號或分號隔開。使用逗號或分號隔開。 逗號逗號: 以以14個字符位置

20、為單位把一個輸出行分成若個字符位置為單位把一個輸出行分成若干區(qū)段。干區(qū)段。 分號分號: 后一項緊跟前一項輸出。后一項緊跟前一項輸出。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)22 輸出時，數(shù)值型數(shù)據(jù)前有一個符號位輸出時，數(shù)值型數(shù)據(jù)前有一個符號位(正號正號不顯示不顯示)，前面留一個空格位；字符串原樣輸出，前面留一個空格位；字符串原樣輸出，前后無空格。前后無空格。例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 第四章第四章

21、 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)23 例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)24例例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 產(chǎn)生空行產(chǎn)生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗號的作用取消上面一句末尾逗號的作

22、用 Print 2-4=; Print 2 - 4 End Sub輸入輸入Print時可用時可用?代替，代替，VB將其自動轉(zhuǎn)換成將其自動轉(zhuǎn)換成Print第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)25與與Print方法有關(guān)的函數(shù)和方法方法有關(guān)的函數(shù)和方法1. Tab函數(shù)函數(shù) 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n個位置上輸出數(shù)據(jù)。個位置上輸出數(shù)據(jù)。 參數(shù)參數(shù)n: n當(dāng)前位置當(dāng)前位置: 打印位置為下一行的第打印位置為下一行的第n列列 n輸出行寬度輸出行寬度: 打印位置為打印位置為 n Mod 行寬行寬 省略省略: 打印位置為下一個打印區(qū)的起點(diǎn)打印位置為下一

23、個打印區(qū)的起點(diǎn) (每每14個字符個字符為一個打印區(qū)為一個打印區(qū))第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)26例例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)272. Spc函數(shù)函數(shù) 格式格式: Spc(n) 功能功能: 跳過跳過n個

24、空格。個空格。 例例: Print HOW; Spc(3); ABOUT 結(jié)果結(jié)果: HOWABOUT注意注意: Spc函數(shù)與函數(shù)與Space函數(shù)、函數(shù)、Tab函數(shù)的區(qū)別函數(shù)的區(qū)別3. Space$函數(shù)函數(shù) 格式格式: Space$(n) 功能功能: 返回返回n個空格。個空格。 例例: Print HOW + Space$(3)+ABOUT Print HOW & Space$(3) &ABOUT 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)284.Cls方法方法格式：格式：對象名對象名.ClsCls方法清除由方法清除由Print方法顯示的文本或在方法顯示的文

25、本或在圖片框中顯示的圖形圖片框中顯示的圖形,并把光標(biāo)移到對象并把光標(biāo)移到對象的左上角的左上角(0,0)。對象：窗體、圖片框。對象：窗體、圖片框。當(dāng)窗體或圖片框中使用當(dāng)窗體或圖片框中使用Picture屬性裝入的圖形時，屬性裝入的圖形時，不能用不能用Cls方法清除，需用方法清除，需用LoadPicture函數(shù)。函數(shù)。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)295.Move方法方法對象對象.Move 左邊邊距左邊邊距，上邊邊距，上邊邊距，寬度寬度，高度，高度Move方法用來移動窗體和控件，并可以方法用來移動窗體和控件，并可以改變窗體和控件的大小改變窗體和控件的大小。Privat

26、e Sub Form_Click() Move 800,800,3990,2600 Text1.Move 200,200,1500,1000 Picture1.Move 1800,200,1500,1000 Picture1.Print “Picture1”End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)304.3.3 MsgBox函數(shù)和函數(shù)和MsgBox語句語句格式格式: MsgBox( , , )功能功能: 在對話框中顯示消息，等待用戶單擊按鈕，并在對話框中顯示消息，等待用戶單擊按鈕，并返回一個整數(shù)告訴用戶單擊了哪個按鈕。返回一個整數(shù)告訴用戶單擊了哪個按鈕。 :

27、 字符串表達(dá)式。字符串表達(dá)式。 用用Chr(13)、Chr(10)、 Chr(13) & Chr(10)、vbCrLf可換行。可換行。 : 數(shù)值型數(shù)據(jù)。數(shù)值型數(shù)據(jù)。 按鈕類型按鈕類型+圖標(biāo)類型圖標(biāo)類型+默認(rèn)按鈕。默認(rèn)按鈕。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)31MsgBox按鈕設(shè)置 第第3個按鈕為默認(rèn)個按鈕為默認(rèn)512vbDefaultButton3第第2個按鈕為默認(rèn)個按鈕為默認(rèn) 256vbDefaultButton2第第1個按鈕為默認(rèn)個按鈕為默認(rèn) 0vbDefaultButton1默認(rèn)默認(rèn)按鈕按鈕 信息圖標(biāo)信息圖標(biāo) 64vbInformation警告信息圖標(biāo)

28、警告信息圖標(biāo) 48vbExclamation詢問信息圖標(biāo)詢問信息圖標(biāo) 32vbQuestion關(guān)鍵信息圖標(biāo)關(guān)鍵信息圖標(biāo) 16vbCritical圖標(biāo)圖標(biāo)類型類型 重試、取消按鈕重試、取消按鈕 5vbRetryCancel是、否按鈕是、否按鈕 4vbYesNo是、否、取消按鈕是、否、取消按鈕 3vbYesNoCancel終止、重試、忽略按鈕終止、重試、忽略按鈕 2vbAboutRetryIgnore確定、取消按鈕確定、取消按鈕 1vbOkCancel確定按鈕確定按鈕 0vbOkOnly按鈕按鈕數(shù)目數(shù)目 描描 述述值值內(nèi)內(nèi) 部部 常常 數(shù)數(shù)分組分組 第四章第四章 Visual Basic程序設(shè)計基

29、礎(chǔ)程序設(shè)計基礎(chǔ)32 按鈕類型詳解按鈕類型詳解數(shù)值數(shù)值0-5，對話框內(nèi)，對話框內(nèi)命令按鈕的類型和數(shù)量命令按鈕的類型和數(shù)量，共，共6種。種。數(shù)值數(shù)值16-64，指定對話框，指定對話框顯示的圖標(biāo)顯示的圖標(biāo)，4種，種，16-暫停，暫停，32-疑問，疑問，48-警告！，警告！，64-忽略忽略I數(shù)值數(shù)值0，256，512指定指定默認(rèn)活動按鈕默認(rèn)活動按鈕按鈕類型按鈕類型參數(shù)就是：每一類選一個值，加在一起就參數(shù)就是：每一類選一個值，加在一起就是參數(shù)的值是參數(shù)的值16=0+16+0，顯示確定按鈕、暫停圖標(biāo)，默認(rèn)是確定，顯示確定按鈕、暫停圖標(biāo)，默認(rèn)是確定50=2+48+0，顯示終止、重試、忽略按鈕，顯示終止、重試

30、、忽略按鈕(2)、！圖標(biāo)、！圖標(biāo)(48),默認(rèn)是終止默認(rèn)是終止第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)33chr(10),chr(13), chr(10)&chr(13)chr(10)表示換行，表示換行，chr(13)表示回車表示回車回車回車Chr（13）與）與換行換行Chr（10）的區(qū)別：）的區(qū)別：回車回車代代表上一句終了，再輸入或輸出就是下一句了。而表上一句終了，再輸入或輸出就是下一句了。而換行換行時前一句并沒有結(jié)束，前后還是一句話，僅僅是從形式上時前一句并沒有結(jié)束，前后還是一句話，僅僅是從形式上換行換行后的部分放到下一行，看起來跟回車的形式一樣。后的部分放到

31、下一行，看起來跟回車的形式一樣。 a & vbCrLf & b不同于不同于a & Chr(10) + Chr(13) & b Print 1 & vbCrLf & 2的輸出結(jié)果是（的輸出結(jié)果是（ vbCrLf只是換行的只是換行的意思）意思）12Print 1 & Chr(10) + Chr(13) & 2的輸出結(jié)果是的輸出結(jié)果是12 因?yàn)橄葥Q行，再回車（其實(shí)回車包括換行，我們按鍵盤上因?yàn)橄葥Q行，再回車（其實(shí)回車包括換行，我們按鍵盤上的回車鍵的回車鍵Enter不是會換行么？），所以就等于兩行了。不是會換行么？），所以就等于兩行了。

32、第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)34MsgBox參數(shù)參數(shù) : 字符串表達(dá)式，顯示標(biāo)題。字符串表達(dá)式，顯示標(biāo)題。說明：說明：所有參數(shù)中只有所有參數(shù)中只有“提示信息提示信息”（第一個參數(shù)）是必（第一個參數(shù)）是必需的，若省略需的，若省略“按鈕類型按鈕類型”（第二個參數(shù)）（第二個參數(shù)） ，則，則對話框只顯示一個對話框只顯示一個“確定確定”命令，并顯示為活動命令，并顯示為活動按鈕，若省略按鈕，若省略“對話框標(biāo)題對話框標(biāo)題”（第三個參數(shù)）（第三個參數(shù)） ，則對話框標(biāo)題為當(dāng)前工程名稱，若希望不顯示，則對話框標(biāo)題為當(dāng)前工程名稱，若希望不顯示，則把其置為則把其置為”返回值返回值:

33、由在對話框中按下哪種按鈕決定。由在對話框中按下哪種按鈕決定。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)35MsgBox所選按鈕返回值 內(nèi)部常數(shù)返回值被單擊的按鈕vbOk1確定vbCancel2取消vbAbort3終止vbRetry4重試vbIgnore5忽略vbYes6是vbNo7否第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)36例例: Private Sub Command1_Click() A = MsgBox(提示信息提示信息) End Sub例例: 換行換行 Private Sub Command1_Click() A=MsgBox(第一行第一行

34、& Chr(13) & 第二行第二行) End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)37例例: Private Sub Command1_Click() A = MsgBox(提示信息提示信息, , 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 按鈕類型按鈕類型0到到5或符號常量或符號常量 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 1, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)38例例: 圖標(biāo)類型圖標(biāo)類型16、32、48、64或符號常量或

35、符號常量 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 16, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) End Sub例例: 默認(rèn)按鈕默認(rèn)按鈕0，256，512 Private Sub Command1_Click() a = MsgBox(提示信息提示信息, 2 + 256, 標(biāo)題內(nèi)容標(biāo)題內(nèi)容) Print a End Sub按回車打印按回車打印4第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)39Msgbox語句語句Msgbox也可以寫成語句的形式也可以寫成語句的形式,但是它沒有返回值但是它沒有返回值.格式：格式：MsgBox 提示信息提示信

36、息 ,Private Sub Form_click() msg$ = 請確認(rèn)此數(shù)據(jù)是否正確請確認(rèn)此數(shù)據(jù)是否正確 Title$ = 數(shù)據(jù)檢查對話框數(shù)據(jù)檢查對話框 MsgBox msg$, 19, Title$End Sub這是一條獨(dú)立的語句，所以各參數(shù)與MsgBox以空格隔開，而不是放在小括號內(nèi)。各參數(shù)的含義與MsgBox函數(shù)完全一樣，只是沒有返回值。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)404.4 順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)程序設(shè)計順序結(jié)構(gòu)是程序設(shè)計中最簡單、最常用的基順序結(jié)構(gòu)是程序設(shè)計中最簡單、最常用的基本結(jié)構(gòu)，是所有程序的主體結(jié)構(gòu)，順序結(jié)本結(jié)構(gòu)，是所有程序的主體結(jié)構(gòu)，

37、順序結(jié)構(gòu)程序是按照語句的書寫順序依次執(zhí)行。構(gòu)程序是按照語句的書寫順序依次執(zhí)行。一般的程序設(shè)計語言中，順序結(jié)構(gòu)的語句主一般的程序設(shè)計語言中，順序結(jié)構(gòu)的語句主要是要是賦值語句、輸入賦值語句、輸入/輸出語句輸出語句等。在等。在VB中也有賦值語句；而輸入中也有賦值語句；而輸入/輸出可以通過輸出可以通過文本框控件、標(biāo)簽控件、文本框控件、標(biāo)簽控件、InputBox函數(shù)、函數(shù)、MsgBox函數(shù)或過程及函數(shù)或過程及Print方法等來實(shí)現(xiàn)。方法等來實(shí)現(xiàn)。 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)414.5 4.5 選擇結(jié)構(gòu)選擇結(jié)構(gòu) 計算機(jī)要處理的問題往往是復(fù)雜多變計算機(jī)要處理的問題往往是復(fù)

38、雜多變的，僅采用順序結(jié)構(gòu)是不夠的。必須利用的，僅采用順序結(jié)構(gòu)是不夠的。必須利用選擇結(jié)構(gòu)等來解決實(shí)際應(yīng)用中的各種問題。選擇結(jié)構(gòu)等來解決實(shí)際應(yīng)用中的各種問題。VB中提供了多種形式的條件語句來實(shí)現(xiàn)選中提供了多種形式的條件語句來實(shí)現(xiàn)選擇結(jié)構(gòu)，有擇結(jié)構(gòu)，有IfIf條件語句和條件語句和SelectSelect情況語句情況語句等。它們都是對條件進(jìn)行判斷，根據(jù)判斷等。它們都是對條件進(jìn)行判斷，根據(jù)判斷結(jié)果，選擇執(zhí)行不同的分支。結(jié)果，選擇執(zhí)行不同的分支。 本章目錄本章目錄第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)42 1. If1. IfThenThen語句語句( (單分支結(jié)構(gòu)單分支結(jié)構(gòu)) )

39、 If Then 語句塊語句塊 End If 或或 If Then 例例 已知兩個數(shù)已知兩個數(shù)x和和y，比較它們的，比較它們的大小，使得大小，使得x大于大于y. If xy Then t=x x=y y=t End If 或或 If xy Then t=x: x=y: y=t重要的是學(xué)會兩個數(shù)的交換，若上述語句次序變一下，結(jié)果如何？重要的是學(xué)會兩個數(shù)的交換，若上述語句次序變一下，結(jié)果如何？If條件語句 塊結(jié)構(gòu)塊結(jié)構(gòu)行結(jié)構(gòu)行結(jié)構(gòu)第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)43注意：注意：If語句中的表達(dá)式一般為關(guān)系表達(dá)式、邏輯表達(dá)式，語句中的表達(dá)式一般為關(guān)系表達(dá)式、邏輯表達(dá)式，

40、也可以是算術(shù)表達(dá)式。表達(dá)式值按非零為也可以是算術(shù)表達(dá)式。表達(dá)式值按非零為True，零為零為False判斷。判斷。語句塊中的語句可以是一條或多條語句。若是用行結(jié)語句塊中的語句可以是一條或多條語句。若是用行結(jié)構(gòu)的形式，則多條語句必須寫在同一行上，且語構(gòu)的形式，則多條語句必須寫在同一行上，且語句之間用冒號隔開。句之間用冒號隔開。一般來說，一般來說，只有一條語句時用行結(jié)構(gòu)，多條語句時用只有一條語句時用行結(jié)構(gòu)，多條語句時用塊結(jié)構(gòu)。塊結(jié)構(gòu)。塊結(jié)構(gòu)與行結(jié)構(gòu)的區(qū)別：塊結(jié)構(gòu)與行結(jié)構(gòu)的區(qū)別：看看Then后面的語句是否在同后面的語句是否在同一行上，若在同一行就是單行結(jié)構(gòu)，否則為塊結(jié)一行上，若在同一行就是單行結(jié)構(gòu)，否

41、則為塊結(jié)構(gòu)，構(gòu)，塊結(jié)構(gòu)必須以塊結(jié)構(gòu)必須以End if結(jié)束結(jié)束。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)442. If2. IfThenThenElseElse語句語句( (雙分支結(jié)構(gòu)雙分支結(jié)構(gòu)) ) If Then Else End If If Then Else 例例 計算分段函數(shù)：計算分段函數(shù)：yxxxxxxxsincos231030單分支結(jié)構(gòu)實(shí)現(xiàn)： y=cos(x)x3+3*x If x0 Then y=sin(x)+sqr (x*x+1) 雙分支結(jié)構(gòu)實(shí)現(xiàn)： If x0 Then y=sin(x)+sqr (x*x+1) Else y=cos(x)x3+3*x En

42、d If第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)453. If3. IfThenThenElseIfElseIf語句語句( (多分支結(jié)構(gòu)多分支結(jié)構(gòu)) ) 形式：形式： If Then ElseIf Then ElseIf Then Else 語句塊語句塊 n+1 End If注意注意:1) 此處此處Else和和If之間不能有空格，否則程序出錯。之間不能有空格，否則程序出錯。2)“表達(dá)式表達(dá)式1-n”都是邏輯表達(dá)式。都是邏輯表達(dá)式。3)不管有幾個分支不管有幾個分支,程序執(zhí)行了滿足條件的一個分支后程序執(zhí)行了滿足條件的一個分支后,其余分支不再執(zhí)行。其余分支不再執(zhí)行。 4) 一個

43、多分支結(jié)構(gòu)中只有一個一個多分支結(jié)構(gòu)中只有一個End If語句。語句。 5)當(dāng)多分支中有多個表達(dá)式同時滿足時，只執(zhí)行第一個與之匹配的語句塊。注當(dāng)多分支中有多個表達(dá)式同時滿足時，只執(zhí)行第一個與之匹配的語句塊。注意多分支中表達(dá)式的書寫順序。意多分支中表達(dá)式的書寫順序。6) 塊結(jié)構(gòu)的條件語句可以嵌套塊結(jié)構(gòu)的條件語句可以嵌套 。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)46例例 已知變量已知變量strC中存放了一個字符，判斷該字符是字母字符、數(shù)字字中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。符還是其他字符。用多分支結(jié)構(gòu)實(shí)現(xiàn)用多分支結(jié)構(gòu)實(shí)現(xiàn): strc=InputBo

44、x(input) If Ucase(strC) =A And Ucase (strC) =0 And strC =9 Then Print strC + 是數(shù)字字符是數(shù)字字符 Else Print strC + 其他字符其他字符 End If 不管有幾個分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其不管有幾個分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其余分支不再執(zhí)行；若條件都不滿足，且有余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。否則什么也不執(zhí)行。ElseIf不能寫成不能寫成 Else If。第四章第四章 Visual Bas

45、ic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)47例例 已知百分制成績已知百分制成績mark，顯示對應(yīng)的五級制成績，顯示對應(yīng)的五級制成績 哪些正確，哪些錯誤？哪些正確，哪些錯誤？第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)484 4IfIf語句的嵌套語句的嵌套 If語句的嵌套是指語句的嵌套是指If或或Else后面的語句塊中又包含后面的語句塊中又包含If語句。語句。 形式如下：形式如下： If Then If Then End If End If T x yT z 為最小數(shù)T 使得 x yFFF x yzx y x 與 y 交換y z y 與 z 交換xyz用一個用一個IF語句和一個嵌套的語句和

46、一個嵌套的IF語句實(shí)現(xiàn)語句實(shí)現(xiàn) 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語句的嵌套注意事項：書寫鋸齒型；語句的嵌套注意事項：書寫鋸齒型； If 與與End If配對。配對。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)49：與：與同類型的下面四種形式之一：同類型的下面四種形式之一： (1) 表達(dá)式表達(dá)式 例例: A (2)一組枚舉表達(dá)式一組枚舉表達(dá)式(用逗號分隔用逗號分隔) 2,4,6,8 (3) 表達(dá)式表達(dá)式1 To 表達(dá)式表達(dá)式2 60

47、 To 100 (4) Is 關(guān)系運(yùn)算符表達(dá)式關(guān)系運(yùn)算符表達(dá)式 Is =A And Ucase (strC) =0 And strC 0 And y 0 ThenIf x 0 And y 0 Then Print Print 在第一象限在第一象限 ElseIf x 0 ThenElseIf x 0 Then Print Print 在第二象限在第二象限 ElseIf x 0 And y 0 ThenElseIf x 0 And y 0 And y 0 And y 0 And y 0 x 0 And y 0Print Print 在第一象限在第一象限 Case x 0 Case x 0Print

48、 Print 在第二象限在第二象限 Case x 0 And y 0 Case x 0 And y 0 And y 0 And y y，x，y） 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)4.6.1whilewend循環(huán)語句只要給定的條件表達(dá)式的值為真，程序就重復(fù)執(zhí)行whilewend 之間的語句。4.6 循循 環(huán)環(huán) 結(jié)結(jié) 構(gòu)構(gòu)條件表達(dá)式語句塊FalseTrue圖5-16 WhileWend語句流程圖 第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)55例 求1+2+3+100的值。源程序代碼：源程序代碼：Private Sub Form_click()Dim

49、 s As long, i As Integers = 0i = 1While i=100 s=s+i i=i+1WendPrint “1+2+3+100=; sEnd Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)56Private Sub Form_click()Dim n As IntegerDim x As Doublex = 13: n = 0While x 0 Print (n Mod 10); n = n 10WendEnd Sub例: 編寫一程序,將一正整數(shù)按逆序形式輸出.第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)584.6.2 DoL

50、oop循環(huán)語句循環(huán)語句(用于控制循環(huán)次數(shù)未知)【格式格式1】Do While 條件條件 語句組語句組1 Eixt Do 語句組語句組2 Loop 條件表達(dá)式 F T F T Exit Do 語句塊 語句塊 Exit Do 語句塊 語句塊 條件表達(dá)式 圖 Do Loop While 圖 Do WhileLoop 【格式格式2】Do 語句組語句組1 Eixt Do 語句組語句組2 Loop While 條件條件第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)59例例 輸入一組學(xué)生的成績，輸出成績總和，當(dāng)輸入一個負(fù)數(shù)輸入一組學(xué)生的成績，輸出成績總和，當(dāng)輸入一個負(fù)數(shù)時，結(jié)束程序的執(zhí)行。時

51、，結(jié)束程序的執(zhí)行。Private Sub Form_Click() Dim score As Integer, total As Long total = 0 Do While True score = Val(InputBox(請輸入一個成績（請輸入一個成績（0-100）：）：) If score = 0 total = total + score score = Val(InputBox(請輸入一個成績（請輸入一個成績（0-100）：）：) Loop Print 總分為：總分為： & totalEnd Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)60【格式格

52、式3】Do Until 條件條件 語句組語句組1 Eixt Do 語句組語句組2 Loop【格式格式4】Do 語句組語句組1 Eixt Do 語句組語句組2 Loop Until 條件條件第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)61例例 我國有我國有1313億人口，按人口年增長億人口，按人口年增長0.8%0.8%計算，多少年計算，多少年后我國人口超過后我國人口超過2626億。億。分 析 ： 解 此 問 題 兩 種 方 法 ， 可 根 據(jù) 公 式 ：分 析 ： 解 此 問 題 兩 種 方 法 ， 可 根 據(jù) 公 式 ：26=13*(1+0.008)n 直接利用標(biāo)準(zhǔn)對數(shù)函數(shù)求

53、得；也可利用循環(huán)求得，程序如下：直接利用標(biāo)準(zhǔn)對數(shù)函數(shù)求得；也可利用循環(huán)求得，程序如下：Private Sub Command1_Click() x = 13 n = 0 Do until x = 26 x = x * 1.008 n = n + 1 Loop Print n, xEnd SubDo While x 26第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)624.6.3 For循環(huán)語句循環(huán)語句 (用于循環(huán)次數(shù)已知) 1.語句形式 For 循環(huán)變量初值循環(huán)變量初值 to 終值終值 Step 步長步長 語句塊語句塊Exit For 語句塊語句塊 Next 循環(huán)變量循環(huán)變量

54、循環(huán)變量 0 初值初值終值終值 =1 時時,可省略可省略終值終值=0 死循環(huán)死循環(huán)(3)循環(huán)次數(shù)循環(huán)次數(shù)) 1(步長初值終值Int(2)步長步長其中：其中：(1)循環(huán)變量必須為數(shù)值型。循環(huán)變量必須為數(shù)值型。2.執(zhí)行流程第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)63例例 計算計算1100的奇數(shù)和，程序段如下：的奇數(shù)和，程序段如下：Dim i %, s% s=0 For i = 1 To 100 step 2 s = s + i Next i Print s第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)64例例 求求n！，！，n的值由用戶輸入的值由用戶輸入Pri

55、vate Sub Form_Click()Dim fact As Long, i As Integer, n As Integern = Val(InputBox(“請輸入請輸入n的值：的值：”)fact = 1For i = 1 To n fact = fact * iNextPrint n & 的階乘為：的階乘為： & factEnd Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)65例例 輸入一個正整數(shù)輸入一個正整數(shù)n=3，判斷是否為素數(shù)，判斷是否為素數(shù)Private Sub Form_Click () Dim n As Long, i As Int

56、eger n = Val(InputBox(請輸入一個正請輸入一個正整數(shù)（大于等于整數(shù)（大于等于3）：）：) For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next If i n - 1 Then Print n & 是素數(shù)是素數(shù) Else Print n & 不是素數(shù)不是素數(shù) End IfEnd SubPrivate Sub Form_Click() Dim n As Long, i As Integer, f As Boolean n = Val(InputBox(請輸入一個正請輸入一個正整數(shù)（大于等于整數(shù)（大

57、于等于3）：）：) f = True For i = 2 To n - 1 If n Mod i = 0 Then f = False End If Next If f Then Print n & 是素數(shù)是素數(shù) Else Print n & 不是素數(shù)不是素數(shù) End IfEnd Sub第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)663.注意的問題注意的問題 （1） 出了循環(huán)，循環(huán)控制變量值的問題。出了循環(huán)，循環(huán)控制變量值的問題。 例程序段：例程序段： For i=2 To 13 Step 3 Print i , Next i Print : Print “i

58、=“, i4) 1(3213Int循環(huán)執(zhí)行次數(shù)循環(huán)執(zhí)行次數(shù)輸出輸出 i的值分別為的值分別為: 2 5 8 11出了循環(huán)輸出為出了循環(huán)輸出為: i=14第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)67例例 改變改變循環(huán)控制變量對循環(huán)的影響。循環(huán)控制變量對循環(huán)的影響。Private Sub Command1_Click() j = 0 For i = 1 To 20 Step 2 i = i + 3 j = j + 1 Print 第第; j; 次循環(huán)次循環(huán)i=; i Next i Print 退出循環(huán)后退出循環(huán)后i=; i End Sub正常情況：正常情況：i=1,3,5,7,9,11,13,15,17,19現(xiàn)在：現(xiàn)在：i=4,9,14,19（2）在循環(huán)體內(nèi)對循環(huán)控制變量可多次引用；但最好不要）在循環(huán)體內(nèi)對循環(huán)控制變量可多次引用；但最好不要對其賦值，否則影響原來的循環(huán)控制規(guī)律。對其賦值，否則影響原來的循環(huán)控制規(guī)律。第四章第四章 Visual Basic程序設(shè)計基礎(chǔ)程序設(shè)計基礎(chǔ)68計算下列循環(huán)語句的次數(shù)：（1）For i=-3 To 20 step 4 （2）For i=-3.5 To 5.5 step 0.5（3）For i=-3.5 To 5.5 step -0.5 （4）For