1、計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-25第三章第三章 順序結(jié)構(gòu)的程序設(shè)計(jì)順序結(jié)構(gòu)的程序設(shè)計(jì) PPT模板下載： 行業(yè)PPT模板： 節(jié)日PPT模板： PPT素材下載： PPT圖表下載： 優(yōu)秀PPT下載： PPT教程： Word教程： Excel教程： 資料下載： PPT課件下載： 范文下載： 試卷下載： 教案下載： 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-252Contents算法及其描述算法及其描述 1Visual Basic語(yǔ)句書寫規(guī)則語(yǔ)句書寫規(guī)則 2賦值語(yǔ)句賦值語(yǔ)句 3其他常用語(yǔ)句和函數(shù)其他常用語(yǔ)句和函數(shù) 4計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-253本章重點(diǎn)：本章重點(diǎn)： 賦值語(yǔ)句、注釋語(yǔ)句

2、、賦值語(yǔ)句、注釋語(yǔ)句、PrintPrint方法、方法、inputBoxinputBox函數(shù)、函數(shù)、MsgBoxMsgBox函數(shù)和過(guò)程的使用。函數(shù)和過(guò)程的使用。本章難點(diǎn)：本章難點(diǎn)： Print方法與其相關(guān)函數(shù)方法與其相關(guān)函數(shù)Tab等的使用。等的使用。 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2543.1 算法及其描述算法及其描述3.1.1 3.1.1 算法的概念算法的概念1.1.算法及其特征：算法及其特征：所謂所謂算法算法，就是指計(jì)算機(jī)解決問題的，就是指計(jì)算機(jī)解決問題的有序步驟有序步驟。對(duì)于同一問題，可以有多種不同的算法。對(duì)于同一問題，可以有多種不同的算法。計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2

3、55例：求例：求N N！步驟步驟1：輸入：輸入N的值。的值。步驟步驟2：設(shè)兩個(gè)變量：設(shè)兩個(gè)變量R、I， I為大于等于零的整數(shù)，為大于等于零的整數(shù)，RI！。令！。令I(lǐng)0，R1。步驟步驟3：I=I+1，R=RI。步驟步驟4：判斷：判斷IN是否成立。如果成立返回到第三步，如果是否成立。如果成立返回到第三步，如果不成立向下執(zhí)行。不成立向下執(zhí)行。步驟步驟5：輸出：輸出R，即，即N！計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-256一個(gè)正確有效的算法應(yīng)具備如下一個(gè)正確有效的算法應(yīng)具備如下特征特征：（1 1）有窮性有窮性：算法應(yīng)該在有限步內(nèi)結(jié)束。：算法應(yīng)該在有限步內(nèi)結(jié)束。（2 2）確定性確定性（唯一性）：只要初始

4、條件相同，（唯一性）：只要初始條件相同， 算法應(yīng)該得到確定相同的結(jié)果。算法應(yīng)該得到確定相同的結(jié)果。（3 3）有效性：有效性：算法的每一步必須是可執(zhí)行的。算法的每一步必須是可執(zhí)行的。（4 4）有零個(gè)或多個(gè)輸入：有零個(gè)或多個(gè)輸入：算法可以有或者沒有算法可以有或者沒有 輸入數(shù)據(jù)。輸入數(shù)據(jù)。（5 5）至少有一個(gè)輸出：至少有一個(gè)輸出：算法的目的就是求解問算法的目的就是求解問 題，必須向用戶輸出。題，必須向用戶輸出。計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2572. 2. 算法的描述：算法的描述：目前計(jì)算機(jī)程序設(shè)計(jì)中常用以下方式來(lái)描述算法：目前計(jì)算機(jī)程序設(shè)計(jì)中常用以下方式來(lái)描述算法： 自然語(yǔ)言、流程圖、自然

5、語(yǔ)言、流程圖、N-SN-S圖圖（1 1）自然語(yǔ)言：是指人類在日常生活中進(jìn)行交流的）自然語(yǔ)言：是指人類在日常生活中進(jìn)行交流的語(yǔ)言。自然語(yǔ)言也可用于描述問題求解的算法，比較通語(yǔ)言。自然語(yǔ)言也可用于描述問題求解的算法，比較通俗，但存在如下的缺點(diǎn)：俗，但存在如下的缺點(diǎn)：文字冗長(zhǎng)、有文字冗長(zhǎng)、有二義性二義性、表達(dá)不確切，、表達(dá)不確切， 所以這種描述所以這種描述方法不推薦。方法不推薦。計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-258（2 2）流程圖：）流程圖：是描述算法過(guò)程的一種圖形方法。直觀、形象、易于是描述算法過(guò)程的一種圖形方法。直觀、形象、易于理解，理解，美國(guó)國(guó)家標(biāo)準(zhǔn)化協(xié)會(huì)美國(guó)國(guó)家標(biāo)準(zhǔn)化協(xié)會(huì)規(guī)定的流程圖

6、表示的基本圖規(guī)定的流程圖表示的基本圖形符號(hào)如下：形符號(hào)如下： （3 3）N-SN-S圖：圖： 是流程圖的發(fā)展，它去掉了流程圖中的流程線，全部是流程圖的發(fā)展，它去掉了流程圖中的流程線，全部算法都表示在一個(gè)矩形框內(nèi)。算法都表示在一個(gè)矩形框內(nèi)。開始或結(jié)束開始或結(jié)束 輸入輸出輸入輸出 條件判斷條件判斷 處理過(guò)程處理過(guò)程 流程線流程線計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-259開始輸入NI=0R=1I=I+1R=R*II=4 GOTO ENDIF N=4 GOTO ENDINPUT rINPUT rPRINT 3.14159PRINT 3.14159* *r r* *r r N=N+1N=N+1GOTO

7、 REDOGOTO REDOENDEND10 LET N=110 LET N=12020 IF N=4 GOTO 70 IF N=4 GOTO 7030 INPUT r30 INPUT r40 PRINT 3.1415940 PRINT 3.14159* *r r* *r r 50 N=N+150 N=N+160 60 GOTO 20GOTO 2070 END 70 END 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-25203.3 3.3 賦值語(yǔ)句賦值語(yǔ)句1 1、賦值語(yǔ)句的格式：、賦值語(yǔ)句的格式：格式格式1 1： 變量名變量名= =表達(dá)式表達(dá)式格式格式2 2： 對(duì)象名對(duì)象名.屬性名屬性名= =表達(dá)

8、式表達(dá)式其基本格式為：其基本格式為：LET LET 變量名變量名= =表達(dá)式表達(dá)式在實(shí)際應(yīng)用時(shí)，在實(shí)際應(yīng)用時(shí)，LETLET通常可被省略通?？杀皇÷?變量名變量名: :是我們定義的變量是我們定義的變量 表達(dá)式表達(dá)式: :可以是變量、常量、算術(shù)表達(dá)式和邏輯表可以是變量、常量、算術(shù)表達(dá)式和邏輯表達(dá)式。達(dá)式。 例如：例如：LET X=1234LET X=1234：LET Y= “LET Y= “中華人民共和國(guó)中華人民共和國(guó)” X=1234X=1234：Y=“Y=“中華人民共和國(guó)中華人民共和國(guó)”計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2521 賦值語(yǔ)句的作用是：賦值語(yǔ)句的作用是： 首先首先計(jì)算計(jì)算“=”=

9、”右邊表達(dá)式的值，然后將該值右邊表達(dá)式的值，然后將該值賦給賦給“=”=”左邊的變量或?qū)ο蟮膶傩?。左邊的變量或?qū)ο蟮膶傩?。在格式在格? 2中，若對(duì)象名省略，則中，若對(duì)象名省略，則默認(rèn)對(duì)象為當(dāng)前窗體默認(rèn)對(duì)象為當(dāng)前窗體。例如：例如：lx=2 x=2 把把2 2賦給賦給x xly=xy=x* *3 3 計(jì)算計(jì)算x x* *3 3的值，得的值，得6 6，把，把6 6賦給賦給y ylx=x+1 x=x+1 計(jì)算計(jì)算x+1x+1的值，得的值，得3 3，把，把3 3賦給賦給x xla$= Hello a$= Hello 把把“Hello”Hello”賦給賦給a$a$lText1.Text=Text1.Tex

10、t=你好！你好！ 把把“你好！你好！”賦給賦給Text1Text1的的TextText屬性屬性計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2522賦值語(yǔ)句使用時(shí)主要注意如下事項(xiàng)：賦值語(yǔ)句使用時(shí)主要注意如下事項(xiàng)： 1)1)數(shù)值變量的數(shù)值變量的初始值一律為初始值一律為0 0。即程序中如果出現(xiàn)一。即程序中如果出現(xiàn)一個(gè)沒有賦值的變量個(gè)沒有賦值的變量a a，它自動(dòng)有一個(gè)初始值，它自動(dòng)有一個(gè)初始值0 0。 如果有：如果有：PRINT aPRINT a 輸出的值為輸出的值為0 0。 字符串變量的隱含初始值為字符串變量的隱含初始值為“空串空串”，即不含任何，即不含任何字符，長(zhǎng)度為字符，長(zhǎng)度為0 0 。 2 2）一個(gè)

11、變量在程序執(zhí)行期間可以先后有多個(gè)不同的）一個(gè)變量在程序執(zhí)行期間可以先后有多個(gè)不同的值，但在每一個(gè)值，但在每一個(gè)瞬時(shí)瞬時(shí)一個(gè)變量只能有一個(gè)變量只能有一個(gè)唯一的值一個(gè)唯一的值。 3)3)若將一個(gè)變量的值賦給另一個(gè)變量，前一變量的若將一個(gè)變量的值賦給另一個(gè)變量，前一變量的值保持值保持不變不變。（如。（如a=2: a=2: b=ab=a ）計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2523 4 4）賦值語(yǔ)句的雙重功能）賦值語(yǔ)句的雙重功能 計(jì)算后賦值，計(jì)算后賦值， 存在賦值號(hào)兩邊的數(shù)據(jù)類型不同的情況：存在賦值號(hào)兩邊的數(shù)據(jù)類型不同的情況： Dim A as integerDim A as integer A=

12、3.5A=3.5 Print A Print A 賦值號(hào)賦值號(hào)左邊左邊為為整型變量整型變量只能存放整型數(shù)據(jù)只能存放整型數(shù)據(jù) 而賦值號(hào)而賦值號(hào)右邊右邊為浮點(diǎn)數(shù)，兩邊的數(shù)據(jù)類型不同，為浮點(diǎn)數(shù)，兩邊的數(shù)據(jù)類型不同，必須要進(jìn)行類型轉(zhuǎn)換必須要進(jìn)行類型轉(zhuǎn)換。 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2524注意：賦值語(yǔ)句的類型轉(zhuǎn)換！注意：賦值語(yǔ)句的類型轉(zhuǎn)換！數(shù)值數(shù)值變量變量= =數(shù)值數(shù)值表達(dá)式表達(dá)式 如如 A% = 10 / 3 AA% = 10 / 3 A中的結(jié)果為中的結(jié)果為3 3數(shù)值數(shù)值變量變量字符串字符串表達(dá)式表達(dá)式 當(dāng)右邊表達(dá)式為數(shù)字字符串，當(dāng)右邊表達(dá)式為數(shù)字字符串，自動(dòng)轉(zhuǎn)換成數(shù)值。自動(dòng)轉(zhuǎn)換成數(shù)值。

13、 n%=“123” n%=“123” n n中的結(jié)果是中的結(jié)果是123123，它與，它與n%=Val(“123”)n%=Val(“123”)等效等效 但當(dāng)表達(dá)式有但當(dāng)表達(dá)式有非數(shù)字字符非數(shù)字字符或空串時(shí)，則或空串時(shí)，則出錯(cuò)！出錯(cuò)！ n%=”AB123”n%=”AB123” 出現(xiàn)出現(xiàn)“類型不匹配類型不匹配”的錯(cuò)誤的錯(cuò)誤 n%=” n%=” 出現(xiàn)出現(xiàn)“類型不匹配類型不匹配”的錯(cuò)誤的錯(cuò)誤計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2525數(shù)值數(shù)值變量變量= =邏輯型邏輯型表達(dá)式表達(dá)式 當(dāng)當(dāng)邏輯型邏輯型表達(dá)式賦值給數(shù)值型變量：表達(dá)式賦值給數(shù)值型變量： 邏輯型常量邏輯型常量True-True- -1-1，邏輯

14、型常量，邏輯型常量False-False- 0 0 Dim A As Boolean, B As Single Dim A As Boolean, B As Single A = True A = True ：B = AB = A Print B Print B邏輯型邏輯型變量變量= =數(shù)值數(shù)值表達(dá)式表達(dá)式反之當(dāng)反之當(dāng)數(shù)值型數(shù)值型表達(dá)式賦值給表達(dá)式賦值給邏輯型邏輯型時(shí)時(shí), ,非非0 0數(shù)值轉(zhuǎn)數(shù)值轉(zhuǎn)化為化為TrueTrue，0 0值時(shí)轉(zhuǎn)化為值時(shí)轉(zhuǎn)化為FalseFalse Dim A As Boolean, B As Boolean Dim A As Boolean, B As Boolean A

15、 = 1990 A = 1990 ：B = 0B = 0 Print A, B Print A, B計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2526任何任何非字符串非字符串類型的表達(dá)式賦值給類型的表達(dá)式賦值給字符串型字符串型時(shí)，時(shí)，自動(dòng)轉(zhuǎn)換為字符型自動(dòng)轉(zhuǎn)換為字符型。 Dim A As String, B As Single Dim A As String, B As Single A A 是字符串，而是字符串，而B B是單精度的數(shù)是單精度的數(shù) B = 3.1415926B = 3.1415926 A = B A = B 此時(shí)此時(shí)A A是字符串是字符串“3.14159263.1415926 Pri

16、nt B Print B Print A Print A計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-25275)5)賦值號(hào)賦值號(hào)與與關(guān)系運(yùn)算符關(guān)系運(yùn)算符的等于號(hào)都用的等于號(hào)都用“= =”表示，表示，VBVB系統(tǒng)會(huì)根據(jù)所處的位置自動(dòng)判斷。系統(tǒng)會(huì)根據(jù)所處的位置自動(dòng)判斷。6)6)賦值號(hào)賦值號(hào)左邊左邊只能是只能是變量變量，右邊右邊可以為可以為變量、常量變量、常量或其它的表達(dá)式或其它的表達(dá)式。 如：如：x=y x=y ： x=x+1 x=x+1 ：X+1=y X+1=y 錯(cuò)誤錯(cuò)誤7)7)不能在一個(gè)語(yǔ)句中同時(shí)給不能在一個(gè)語(yǔ)句中同時(shí)給多個(gè)多個(gè)變量賦值。變量賦值。如：如： x=y=z=1x=y=z=1 ( (錯(cuò)錯(cuò))

17、 ) x=y=1 ( x=y=1 (錯(cuò)錯(cuò)) )計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-25283.4 3.4 其他常用語(yǔ)句其他常用語(yǔ)句1. 1. 注釋語(yǔ)句注釋語(yǔ)句 格式：格式： RemRem 注釋內(nèi)容注釋內(nèi)容 或或 注釋內(nèi)容注釋內(nèi)容 (1)(1)注釋語(yǔ)句是注釋語(yǔ)句是非執(zhí)行語(yǔ)句非執(zhí)行語(yǔ)句。 (2)(2)任何字符均可放在注釋語(yǔ)句中作為任何字符均可放在注釋語(yǔ)句中作為注釋內(nèi)容注釋內(nèi)容。2. 2. 暫停語(yǔ)句暫停語(yǔ)句 格式：格式：Stop Stop 3. 3. 結(jié)束語(yǔ)句結(jié)束語(yǔ)句 格式：格式：EndEnd 通常用來(lái)結(jié)束一個(gè)程序的執(zhí)行通常用來(lái)結(jié)束一個(gè)程序的執(zhí)行. .計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2529

18、3.5 3.5 輸入輸出語(yǔ)句與函數(shù)輸入輸出語(yǔ)句與函數(shù) 常用的常用的輸入輸入方式有：方式有： 輸入數(shù)據(jù)的輸入數(shù)據(jù)的inputBoxinputBox函數(shù)以及函數(shù)以及文本框文本框控件?？丶?常用的常用的輸出輸出方式有：方式有： 文本框文本框控件、控件、標(biāo)簽標(biāo)簽控件、控件、PrintPrint方法、方法、MsgBoxMsgBox函數(shù)和過(guò)程等。函數(shù)和過(guò)程等。計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2530 1 1、 PrintPrint方法的一般格式：方法的一般格式： 對(duì)象名稱對(duì)象名稱. . PrintPrint SpcSpc(n) | (n) | TabTab(n) (n) 表達(dá)式列表表達(dá)式列表 對(duì)象

19、對(duì)象：窗體（窗體（FormForm）、圖形框（）、圖形框（PictureBoxPictureBox）或或 打印機(jī)打印機(jī) 。缺省對(duì)象為窗體。缺省對(duì)象為窗體。SpcSpc( (n n) )函數(shù)：函數(shù)：插入插入n n個(gè)空格個(gè)空格。TabTab(n)(n)函數(shù)：函數(shù)：左端開始右移動(dòng)左端開始右移動(dòng)n n列列。 Print tab(25);”ABC”Print tab(25);”ABC”表達(dá)式表達(dá)式列表列表：是：是一個(gè)或多個(gè)一個(gè)或多個(gè)表達(dá)式。表達(dá)式。若若為多個(gè)表達(dá)式，則各表達(dá)式之間用為多個(gè)表達(dá)式，則各表達(dá)式之間用“，”或或“；”隔開隔開。省略省略此項(xiàng)，則輸出一空行。此項(xiàng)，則輸出一空行。3.5.1 Prin

20、t3.5.1 Print方法和方法和ClsCls方法方法計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2531 分號(hào)分號(hào)：緊湊輸出緊湊輸出，直接將插入點(diǎn)定位在上一個(gè)被，直接將插入點(diǎn)定位在上一個(gè)被顯示字符顯示字符之后之后，即緊跟前面字符后輸出。，即緊跟前面字符后輸出。 逗號(hào)逗號(hào)：分區(qū)打印分區(qū)打印，定位在下一個(gè)打印區(qū)開始處，定位在下一個(gè)打印區(qū)開始處( (每每個(gè)打印區(qū)個(gè)打印區(qū)1414列）。列）。 注：注： PrintPrint語(yǔ)句句尾無(wú)分號(hào)或逗號(hào)，表示輸出后換語(yǔ)句句尾無(wú)分號(hào)或逗號(hào)，表示輸出后換行。應(yīng)用于行。應(yīng)用于ForFor循環(huán)控制，起到循環(huán)控制，起到換行換行作用。作用。計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5

21、-2532 PrintPrint方法練習(xí)：方法練習(xí)： Form1.PrintForm1.Print 歡迎使用歡迎使用Visual Basic Visual Basic Print 1; 2; 3Print 1; 2; 3 Print 4, 5, Print 4, 5, Print Print Print hello; Spc(10); world Print hello; Spc(10); world Print hello; Tab(10); world Print hello; Tab(10); world Print Tab(25); hello ; Tab(30); world Pri

22、nt Tab(25); hello ; Tab(30); world Print Tab(25); 700 Print Tab(25); 700 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2533Print 12345678901234567890 Print 12345678901234567890 輸出此串以標(biāo)識(shí)列號(hào)輸出此串以標(biāo)識(shí)列號(hào) Print Hello; Tab(20); World; Print Hello; Tab(20); World; 第第2 2個(gè)字符串從第個(gè)字符串從第2020列開始輸出列開始輸出 Print Tab(4); Hello; Tab; world;Print Tab

23、(4); Hello; Tab; world; 第第2 2個(gè)個(gè)TabTab省略了參數(shù)省略了參數(shù), , 所以第所以第2 2個(gè)字符串從下一個(gè)個(gè)字符串從下一個(gè) 輸出區(qū)輸出區(qū), , 即第即第1515列開始輸出列開始輸出計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2534在窗體上顯示圖形: Private Sub Form_Click() For i = 1 To 5 循環(huán)變量控制行數(shù) Print Tab(i); String(6 - i, ); Spc(6); String(i, ) Next i End Sub計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2535例例3-1.3-1.在窗體上輸出圖書銷售排行榜，在

24、窗體上輸出圖書銷售排行榜，主要用到主要用到TabTab函數(shù)。函數(shù)。 PrintPrint Font.Size = 14 Font.Size = 14 Font.Name = Font.Name = 楷體楷體 Print Tab(25); Year(Now) & Print Tab(25); Year(Now) & 年年 & & Month(Now) & Month(Now) & 月份圖書銷售排行月份圖書銷售排行 CurrentY = 700 CurrentY = 700 Font.Size = 9 Font.Size = 9 Font.Name

25、= Font.Name = 宋體宋體 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2536 Print Tab(15); Print Tab(15); 書名書名; Tab(55); ; Tab(55); 出版社出版社; ; Tab(75); Tab(75); 銷售數(shù)量銷售數(shù)量 Print Tab(14); String(75, _) Print Tab(14); String(75, _) 從第從第1414列列開始輸出由開始輸出由7575個(gè)個(gè)_組成的字符串組成的字符串 Print Tab(15); Print Tab(15); 內(nèi)科學(xué)內(nèi)科學(xué); Tab(55); ; Tab(55); 清華大清華大學(xué)出

26、版社學(xué)出版社; Tab(75); 5000; Tab(75); 5000 Print Tab(15); Visual BasicPrint Tab(15); Visual Basic程序程序; ; Tab(55); Tab(55); 清華大學(xué)出版社清華大學(xué)出版社; Tab(75); 4700; Tab(75); 4700 Print Tab(15); Print Tab(15); 大學(xué)計(jì)算機(jī)基礎(chǔ)大學(xué)計(jì)算機(jī)基礎(chǔ); Tab(55); ; Tab(55); 清華大學(xué)出版社清華大學(xué)出版社; Tab(75); 4500; Tab(75); 4500計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2537計(jì)算機(jī)教研

27、室計(jì)算機(jī)教研室2022-5-2538例例3-2 Print3-2 Print輸出格式控制輸出格式控制 Private Sub Form_Click()Private Sub Form_Click() Print 12345678901234567890 Print 12345678901234567890 Print Hello, World Print Hello, World Print Hello; world Print Hello; world Print Hello;Print Hello; Print world Print world End SubEnd Sub計(jì)算機(jī)教研室計(jì)

28、算機(jī)教研室2022-5-2539計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-25402. Cls2. Cls方法方法 作用：作用：清除清除FormForm或或PictureBoxPictureBox中由中由PrintPrint方法和方法和圖形方法圖形方法在運(yùn)行時(shí)所生成的在運(yùn)行時(shí)所生成的文本或圖形。文本或圖形。 格式：格式： 對(duì)象名稱對(duì)象名稱. Cls. Cls 舉例舉例：Form.clsForm.cls或或PictureBox.clsPictureBox.cls 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2541 3.5.2 InputBox3.5.2 InputBox函數(shù)函數(shù) 作用：作用：產(chǎn)生產(chǎn)生一個(gè)

29、對(duì)話框，等待用戶輸入一個(gè)對(duì)話框，等待用戶輸入數(shù)據(jù)數(shù)據(jù)，“確定確定”后函后函數(shù)返回輸入的值，為數(shù)返回輸入的值，為字符型字符型。 格式：格式： inputBoxinputBox( (提示提示 ，標(biāo)題標(biāo)題，缺省缺省，x x 坐標(biāo)位置坐標(biāo)位置，y y坐標(biāo)位置坐標(biāo)位置) 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2542 例如：有下列語(yǔ)句如下例如：有下列語(yǔ)句如下: : Dim x% Dim x% x x= = Val(InputBox(“ Val(InputBox(“請(qǐng)輸入一個(gè)數(shù)請(qǐng)輸入一個(gè)數(shù)”, “, “輸入框輸入框”, 100), 100) 語(yǔ)句執(zhí)行后打開如下對(duì)話框：語(yǔ)句執(zhí)行后打開如下對(duì)話框：缺省值缺省值

30、標(biāo)題標(biāo)題提示提示計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2543例例3-3 3-3 編寫程序，計(jì)算一個(gè)球的體積和表面積。編寫程序，計(jì)算一個(gè)球的體積和表面積。Private Sub Form_Load() AutoRedraw = True Form_Load中，只有將中，只有將AutoRedraw 設(shè)置設(shè)置為為True時(shí)，時(shí)，Print方法才能生效方法才能生效 Print 計(jì)算一個(gè)球的體積和表面積計(jì)算一個(gè)球的體積和表面積 Print 單擊窗體開始單擊窗體開始End Sub計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2544Private Sub Form_Click() Dim Pi As Singl

31、e, R As Single, S As Single, V As Single Pi = 3.14159 R = Val(InputBox$(輸入球半徑輸入球半徑, 球的體積和球的體積和表面積表面積) S = 4 * Pi * R * R V = 4 / 3 * Pi * R 3 Print 球的體積球的體積; V Print 球的面積球的面積; S End Sub 計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2545 3.5.3 MsgBox3.5.3 MsgBox函數(shù)和過(guò)程函數(shù)和過(guò)程 作用：作用： 彈出信息框，向用戶提示錯(cuò)誤或警告信息，彈出信息框，向用戶提示錯(cuò)誤或警告信息， 并并等待等待用戶選

32、擇信息框中的某一按鈕用戶選擇信息框中的某一按鈕 函數(shù)函數(shù)形式形式： 變量變量% = = MsgBox MsgBox( (提示提示,按鈕按鈕，標(biāo)題，標(biāo)題) 過(guò)程過(guò)程形式形式： MsgBoxMsgBox 提示提示,按鈕類型按鈕類型,標(biāo)題標(biāo)題 區(qū)別區(qū)別： MsgBoxMsgBox函數(shù)函數(shù) 返回返回整形值整形值 MsgBoxMsgBox過(guò)程過(guò)程 無(wú)返回值無(wú)返回值計(jì)算機(jī)教研室計(jì)算機(jī)教研室2022-5-2546 MsgBoxMsgBox函數(shù)函數(shù)舉例：舉例：Private SubPrivate Sub Form_Click()Form_Click() msg1=“ msg1=“繼續(xù)執(zhí)行嗎？繼續(xù)執(zhí)行嗎？” msg