1、第5章 數(shù)據(jù)的輸入輸出指導(dǎo)老師：李賽紅1引入VB三種控制結(jié)構(gòu)順序結(jié)構(gòu)選擇結(jié)構(gòu)循環(huán)結(jié)構(gòu)25.1 順序結(jié)構(gòu)InputBox函數(shù)MsgBox函數(shù)Print方法3InputBox函數(shù)格式：InputBox(“提示字符串” , ”對話框的標(biāo)題”，”輸入框中的默認(rèn)值”，對話框的屏幕左邊距，上邊距 )功能：產(chǎn)生一個(gè)對話框，等待用戶在對話框中輸入數(shù)據(jù)。必選參數(shù)4舉例如：str = InputBox(你好，請您輸入你想要的商品名稱！, 商品名輸入框, TV, 200, 300)5InputBox注意事項(xiàng)注意事項(xiàng)：（1）如果在提示框中想輸入多行文字，則可以加上chr$(13)+chr$(10)來換行， chr$(

2、13)+chr$(10)是回車換行的ASCLL轉(zhuǎn)換字符。舉例：Str1$ = InputBox(尊敬的用戶，您好！ + Chr(13) + Chr(10) + 請輸入您的姓名？, 姓名)6InputBox注意事項(xiàng)（2）InputBox返回值的類型為字符串型，按“確定”按鈕，則返回值為輸入的內(nèi)容。如果在輸入過程中你按了“取消”則返回一個(gè)空字符串。舉例：Str1$ = InputBox(請輸入您的姓名？, 姓名)單擊確定按鈕，則Str1變量的值為“李四”，單擊取消銨鈕，則為空串。7InputBox注意事項(xiàng)（3） InputBox返回值的類型為字符串型，所以需要輸入的內(nèi)容為數(shù)值并參與算術(shù)運(yùn)算的話，必

3、須加上VAL（）將字符串轉(zhuǎn)換成數(shù)字。舉例： x = val(InputBox(求兩數(shù)之和，輸入第一個(gè)數(shù), 求和) ) y = val(InputBox(求兩數(shù)之和，輸入第二個(gè)數(shù), 求和) ) Print x + y8上機(jī)實(shí)驗(yàn)9（2012年9月第18題）窗體上有一個(gè)名稱為Labe11 的標(biāo)簽和一個(gè)名稱為Command1 的命令按鈕，命令按鈕的單擊事件過程如下：Private Sub Command1_Click()x = InputBox(輸入x：, , 0)y = InputBox(輸入y：, , 0)Label1.Caption = x + yEnd Sub運(yùn)行程序，單擊命令按鈕，在輸入對話

4、框中分別輸入2、3，運(yùn)行的結(jié)果是A）程序運(yùn)行有錯(cuò)誤，數(shù)據(jù)類型不匹配B）程序運(yùn)行有錯(cuò)誤，InputBox 函數(shù)的格式不對C）在Labe11 中顯示5D）在Labe11 中顯示23答案：D102012年3月第20題設(shè)程序中有如下語句：x=InputBox(輸入,數(shù)據(jù),100)Print x運(yùn)行程序，執(zhí)行上述語句，輸入5 并單擊輸入對話框上的“取消”按鈕，則窗體上輸出A）0 B）5 C）100 D）空白答案：D11（2010年9月第24題）如果執(zhí)行一個(gè)語句后彈出如圖所示的窗口，則這個(gè)語句是（）A）InputBox（輸入框”，”請輸入VB數(shù)據(jù)”）B）x=InputBox（輸入框”，”請輸入VB數(shù)據(jù)”）

5、C）InputB ox（請輸入VB數(shù)據(jù)”，”輸入框”）D）x=InputBox（請輸入VB數(shù)據(jù)”，”輸入框”）答案：D12（2010年3月第30題）下面程序運(yùn)行時(shí)，若輸入395，則輸出結(jié)果是Private Sub Comand1_Click()Dim x%x=InputBox(請輸入一個(gè)3位整數(shù))Print x Mod 10,x100,(x Mod 100)10End SubA)3 9 5B)5 3 9C)5 9 3 D)3 5 9答案：B13（2008年9月第20題）執(zhí)行下列語句strInput=InputBox (請輸入字符串，字符串對話框，字符串)將顯示輸入對話框。此時(shí)如果直接單擊“確定

6、”按鈕，則變量strInput 的內(nèi)容是（ ）。A）請輸入字符串 B）字符串對話框 C）字符串“ D）空字符串答案：C142005年9月第17題在窗體上有一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為Command1 和Text1，把文本框的Text 屬性設(shè)置為空白，然后編寫下列事件過程：Private Sub Command1_Click( )a=InputBox(Enter an integer)b=InputBox(Enter an integer)Text1.Text=b+aEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中分別輸入8 和10，則文本框中顯示的內(nèi)容是（ ）。A）108

7、B）18 C）810 D）出錯(cuò)答案：A15MsgBox函數(shù)格式：msgbox(提示信息內(nèi)容 ，type，對話框標(biāo)題)功能：向用戶傳送信息，并接收用戶的響應(yīng)。必選參數(shù)16MsgBox函數(shù)P77注意事項(xiàng)：（1）如果輸入多行文字，用 chr(13)+chr(10)換行。（2）type的默認(rèn)值為0，即只有“確定”按鈕。（3）msgbox函數(shù)的返回值為1-7之間的整數(shù)。這個(gè)整數(shù)與你選擇的命令按鈕有關(guān)。P7817符號常量值作用按鈕類型設(shè)置vbOKOnly0只顯示“確定”按鈕vbOKCancel1顯示“確定”及“取消”按鈕vbAbortRetryIgnore2顯示“終止”、“重試”及“忽略”按鈕vbYesN

8、oCancel3顯示“是”、“否”及“取消”按鈕vbYesNo4顯示“是”及“否”按鈕vbRetryCancel5顯示“重試”及“取消”按鈕圖標(biāo)類型設(shè)置vbCritical16顯示Critical Message圖標(biāo) vbQuestion32顯示W(wǎng)arning Query圖標(biāo) vbExclamation48顯示W(wǎng)arning Message圖標(biāo) vbInformation64顯示Information Message圖標(biāo) 標(biāo)識默認(rèn)按鈕vbDefaultButton10第一按鈕是默認(rèn)值vbDefaultButton2256第二按鈕是默認(rèn)值vbDefaultButton3512第三按鈕是默認(rèn)值vb

9、DefaultButton4768第四按鈕是默認(rèn)值應(yīng)用程序和系統(tǒng)強(qiáng)制返回vbApplicationModal0應(yīng)用程序強(qiáng)制返回；應(yīng)用程序一直被掛起，直到用戶對消息框作出響應(yīng)才繼續(xù)工作。vbSystemModal4096系統(tǒng)強(qiáng)制返回；全部應(yīng)用程序都被掛起，直到用戶對消息框作出響應(yīng)才繼續(xù)工作。18Type參數(shù)type參數(shù)由上面的4類數(shù)值組成，其組成原則為：從每一類中選擇一個(gè)值，把這幾個(gè)值加在一起就是type參數(shù)的值。35=3+32+0顯示“是”、“否”及“取消”按鈕，顯示W(wǎng)arning Query圖標(biāo) ，默認(rèn)按鈕為“是”65=1+64+0顯示“確定”及“取消”按鈕，顯示Information Me

10、ssage圖標(biāo) ，默認(rèn)按鈕為“確定”306=2+48+256顯示“終止”、“重試”及“忽略”按鈕，顯示W(wǎng)arning Message圖標(biāo) ，默認(rèn)按鈕為第二個(gè)按鈕“重試”19舉例20Msgbox返回值符號常量值選擇的按鈕vbOK1“確定”按鈕vbCancel2“取消”按鈕vbAbort3“終止”按鈕vbRetry4“重試”按鈕vbIgnore5“忽略”按鈕vbYes6“是”按鈕vbNo7“否”按鈕21舉例Private Sub Form_Click() Dim msg As String, msgtitle As String msg = 請確認(rèn)您的注冊信息是否正確？ msgtitle = 注冊

11、確認(rèn) button = MsgBox(msg, 3+16, msgtitle) If button = 6 Then Print 輸入正確！ Else Print 輸入有誤，請重新輸入！ End IfEnd Sub22Msgbox語句格式： msgbox 提示信息內(nèi)容功能：沒有返回值，只起到提示的作用。例如：msgbox “歡迎你登陸本系統(tǒng)！”沒有圓括號23（2011年9月第16題）在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程；Private Sub Command1_Click()MsgBox Str(123 + 321)End Sub程序運(yùn)行后，單擊命令按鈕，則在信息框中顯示的提示信息為（

12、 ）。A）字符串“123+321” B）字符串“444” C）數(shù)值“444” D）空白答案：B24（2009年3月第14題）下列敘述中正確的是A)MsgBox語句的返回值是一個(gè)整數(shù)B)執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作C)MsgBox語句的第一個(gè)參數(shù)不能省略D)如果省略MsgBox語句的第三個(gè)參數(shù)(Title),則信息框的標(biāo)題為空答案：C25（2008年4月第24題）窗體上有一個(gè)名稱為Command1 的命令按鈕，其事件過程如下：Private Sub Command1. Click()x = VisualBasicProgramminga = Right(x,

13、 11)b = Mid(x,7,5)c = MsgBox(a, ,b)End Sub運(yùn)行程序后單擊命令按鈕，以下敘述中錯(cuò)誤的是（ ）。A）信息框的標(biāo)題是BasicB）信息框中的提示信息是ProgrammingC）c 的值是函數(shù)的返回值D）MsgBox 的使用格式有錯(cuò)答案：D26（2006年4月第19題）有下列的命令按鈕（名稱為Command1）事件過程：Private Sub Command1_Click( )x=InputBox(輸入:,輸入整數(shù))MsgBox 輸入的數(shù)據(jù)是:，輸入數(shù)據(jù):+xEnd Sub程序運(yùn)行后，單擊命令按鈕，如果從鍵盤上輸入整數(shù)10，則下列敘述中錯(cuò)誤的是（ ）。A）x

14、的值是數(shù)值10B）輸入對話框的標(biāo)題是“輸入整數(shù)”C）消息框的標(biāo)題是“輸入數(shù)據(jù)：10”D）消息框中顯示的是“輸入的數(shù)據(jù)是：”答案：A27數(shù)據(jù)輸出print方法格式：對象名稱.print 要輸出的表達(dá)式表,|；例如：Form1.print “窗體上顯示的文字信息”picture1.print “圖片框上顯示的文字信息”28數(shù)據(jù)輸出print方法注意事項(xiàng)： （1）對象名稱可為窗體名、圖片框、打印機(jī)，也可以在立即窗口中使用，默認(rèn)為窗體。Form1.print “顯示信息”picture1.print“顯示信息”printer.print“顯示信息”debug.print“顯示信息”29數(shù)據(jù)輸出prin

15、t方法注意事項(xiàng)： (2)單個(gè)print輸出一個(gè)空行。(3)print可以輸出多個(gè)表達(dá)式，可以用分號和逗號分開，分號是緊密輸出，逗 號是分區(qū)段輸出。Print 1,2,3 print 1;2;330數(shù)據(jù)輸出print方法注意事項(xiàng)： (4)print在輸出表達(dá)式時(shí)，是輸出的其表達(dá)式的值。(5)print在輸出完所有表達(dá)式的值之后會換行，如果不想換行，在后面一定要加上分號或逗號。31print上機(jī)實(shí)例print 4+12 form1.print “I love my parents”printprint 45,54,65print 45;54;65print 45;54;print 65print

16、“23+54=”;77print : print在當(dāng)前窗體輸出16在窗體form1中輸出輸出空行以分區(qū)方式輸出45 54 65以緊密方式輸出 45 54 65 注意以分號結(jié)尾不會換行以緊密方式輸出45 54 65 輸出：23+54= 77 輸出兩個(gè)空行。32與print方法有關(guān)的函數(shù)tab spcspaceformat格式:tab(n)eg.print tab(10);45功能：把光標(biāo)移動到參數(shù)n指定的位置，從這個(gè)位置開始輸出數(shù)據(jù)。注意事項(xiàng)：(1）其中的n總是參照行首位置。（2）如果n超過了當(dāng)前位置，則在下一行的對應(yīng)位置顯示。（3）一般tab與其它項(xiàng)用分號分隔。33與print方法有關(guān)的函數(shù)t

17、ab spcspaceformat格式：spc(n)功能：跳過n個(gè)空格位置繼續(xù)輸出。注意事項(xiàng)：(1)與其它輸出項(xiàng)之間用分號隔開。（2）spc與tab不同，spc表示輸出項(xiàng)的間隔，而tab表示相對于行首的位置。34與print方法有關(guān)的函數(shù)tab spcspaceformatspace(n)返回n個(gè)空格。注意事項(xiàng)：與spc基本一致。但是spc不能參與字符串的連間操作，而space可以。Print Spc(9)+ “happy”會自動轉(zhuǎn)換成Print Spc(9); “happy35與print方法有關(guān)的函數(shù)tab spcspaceformat格式：format(數(shù)值表達(dá)式， 格式字符 )功能：以

18、指定格式顯示數(shù)值結(jié)果。注意事項(xiàng)：(1)#(2)0000(3).,顯示小數(shù)點(diǎn)(4)，逗 號，顯示千分位(5)%百分號(6)$美元符(7)+正號(8)-負(fù)號(9)指數(shù)形式。表示一個(gè)數(shù)字，決定顯示長度,多余的#號不會顯示，少余數(shù)字個(gè)數(shù)時(shí)顯示數(shù)字。表示一個(gè)數(shù)字，決定顯示長度,多余的0號會在前面或后面補(bǔ)0，少余數(shù)字個(gè)數(shù)時(shí)顯示數(shù)字。多余的小數(shù)會四舍五入不管放在哪里，都是三位一分。36上機(jī)實(shí)驗(yàn)print tab(6);45print tab(6),45print tab(6);45;tab(7);54print 45; spc(5);54print 45,spc(5),54print 45;space(5)

19、;45Print 45 + Space(5) + 45 Print 45 + Spc (5) + 45 print 45+space(5)+45在第6個(gè)位置輸出45在第2個(gè)分區(qū)輸出45在第1行的第個(gè)位置輸入45，在第二行的第7個(gè)位置輸出54.45與54之間空了5個(gè)空格。在第1個(gè)分區(qū)輸出45，第二個(gè)分區(qū)輸出空格在第三個(gè)分區(qū)輸出54.45與54之間空了5個(gè)空格。 45 與 54 之間空了5個(gè)空格。有錯(cuò)有錯(cuò)37上機(jī)實(shí)驗(yàn)print format (123, # )print format (123, # )print format (123, 00000 )print format (123, “00

20、 )Print Format(123.12, 000 .000)Print Format(123.127, 000 .00)print format(123432.567, #,#.#)print format(0.1234, 0.0%)print format(0.1234, 0.00E+00)print format(23.54, $#00.00)print format(-23.54, +#.#)12312300123123123.120123.13123,432.5712.3%1.23E+01$23.54+-23.5438真題解析設(shè)x=4，y=6，則下列不能在窗體上顯示出“A=10”的

21、語句是（ ）。A）Print A=x+yB）PrintA=;x+yC）PrintA=+Str(x+y)D）PrintA=&x+y答案：A39其它方法和屬性格式：對象.cls功能：清除對象內(nèi)顯示的內(nèi)容。格式： 對象.move 左邊距，上邊距，寬度，高功能：將對象移動到指定位置，并改變其大小。40上機(jī)實(shí)驗(yàn)415.2 選擇結(jié)構(gòu)單分支結(jié)構(gòu)if 條件 then 單個(gè)語句if 條件 then 語句endif單行結(jié)構(gòu)不要endif多行結(jié)構(gòu)Endif結(jié)尾425.2 選擇結(jié)構(gòu)雙分支結(jié)構(gòu)if 條件 then 語句 else 語句 if 條件 then 語句else 語句endif單行結(jié)構(gòu)不要endif多行結(jié)構(gòu)En

22、dif結(jié)尾435.2 選擇結(jié)構(gòu)多分支結(jié)構(gòu)if 條件1 then 語句elseif 條件2 then 語句elseif 條件3 then 語句endif44注意兩種分支結(jié)構(gòu)If score 60 thenLabel1.caption=“不及格”Else if score80 thenLabel1.caption =“及格”ElseLabel1.caption=“優(yōu)秀”EndifEndifIf score 60 thenLabel1.caption=“不及格”Elseif score0 then print “正數(shù)”else print “負(fù)數(shù)”方法二：if x0 thenprint “正數(shù)”el

23、seprint “負(fù)數(shù)”end if46上機(jī)實(shí)驗(yàn)輸入一位學(xué)生的成績，判斷這位學(xué)生是否要補(bǔ)考。輸入一位學(xué)生的成績，判斷這位學(xué)生是及格，還是不及格。輸入一位學(xué)生的成績，判斷這位學(xué)生是不及格、合格還是優(yōu)秀？47舉例 48If If與then之間的表達(dá)式可以為：關(guān)系表達(dá)式：eg.x=9邏輯表達(dá)式：eg.x3 and x9算術(shù)表達(dá)式：eg.3+5（非0表示真，0表示假） 49舉例A=9: B=2: C=4IF AB then 語句1 else 語句2IF Ab=false then 語句1 else 語句2IF C then 語句1 else 語句2IF 0 then 語句1 else 語句2執(zhí)行 語句

24、1執(zhí)行 語句2執(zhí)行 語句1執(zhí)行 語句250嵌套必須完全“包住”，不能互相騎跨If (cj 60) Thenprint “d”Else If (cj 70) ThenPrint “c”ElseIf (cj 80) ThenPrint “b”ElsePrint “a”End IfEndifEndifIf (cj 60) Thenprint “d”Else If (cj 70) ThenPrint “c”ElseIf (cj 80) ThenPrint “b” EndifElsePrint “a”End IfEndif互相騎跨錯(cuò)誤51正確的嵌套方法If (cj 60) Thenprint “d”El

25、se If (cj 70) ThenPrint “c”ElseIf (cj 80) ThenPrint “b”ElsePrint “a”End IfEndifEndifIf (cj 60) Thenprint “d”Else If (cj 70) ThenPrint “c”ElseIf (cj 0 thenif a10then a=10 else a=1Else endif a=8endif(D) if 3+9 then a=3+9錯(cuò)，單行if不用endif結(jié)尾正確，執(zhí)行的是a=9，不是b=9錯(cuò)，多層if 嵌套不能騎跨錯(cuò)，多行if要以endif結(jié)尾53545556（2009年9月第20題）設(shè)窗

26、體上有名稱為Optionl的單選按鈕，且程序中有語句：If Option1.Value=True Then下面語句中與該語句不等價(jià)的是（ ）。A）If Optionl.Value Then B）If Optionl=True ThenC）If Value=True Then D）If Optionl Then答案：C575.2 IIF函數(shù)if 語句的簡寫版：IIF(條件，true部分，false部分)注意： true部分只是一個(gè)表達(dá)式，不是完整語句等價(jià)關(guān)系：if a5 then r=1else r=2endifr=iif(a5,1,2)58if 到IIF函數(shù)的轉(zhuǎn)換d=15if d12 then

27、print “D大于12”elseprint “D小于等于12”endifprint iif(d12,”D大于12”，“D小于等于12”)59（2008年4月第15題）現(xiàn)有語句：y=IIf(x0,x Mod 3,0)設(shè)x=10，則y 的值是（ ）。A）0 B）1C）3 D）語句有錯(cuò)答案：B60（2006年9月第15題）設(shè)a=5，b=6，c=7，d=8，執(zhí)行下列語句后，x 的值為（ ）。x=IIF(ab) And (cd),10,20)A）10 B）20C）True D）False答案：B61（2005年4月第15題）設(shè)a=a，b=b，c=c，d=d，執(zhí)行語句x=IIf(ad),A,B)后，x

28、的值為（ ）。A）a B）bC）B D）A答案：D625.2 多分支控制結(jié)構(gòu)if 只有兩個(gè)分支，如果想達(dá)到多分支效果，要多層嵌套。Select Case 測試表達(dá)式 Case 條件1 A組語句 Case 條件2 B組語句 . Case Else n組語句 End Select63舉例X%=inputbox(“請輸入一個(gè)數(shù)字!”)Select case x%Case 0 Print “輸入的數(shù)為零”Case is0Print “輸入的數(shù)為正數(shù)”Case elsePrint “輸入的數(shù)為負(fù)數(shù)”End select 64Case 表達(dá)式P97Case表達(dá)式功能表達(dá)式如：case 2+3 case “

29、男”一組用逗號分隔的枚舉值如：case 2,4,6,8,10 case 1,3,5,7,9表達(dá)式1 to 表達(dá)式2注意：表達(dá)式1表達(dá)式2如：case 1 to 10Is關(guān)系運(yùn)算符表達(dá)式case is10(只能用于如：case is 1 and is1065舉例x = inputbox(“請輸入一個(gè)數(shù)字”) Select Case x Case Is 1 Text2.text = 這是小于1的數(shù) Case 1 To 10 Text2.Text = 這是1到10之間的數(shù) Case Else Text2.Text = 這是大于10的數(shù) End Select66上機(jī)試驗(yàn)單擊窗體后彈出輸入對話框由用戶輸入單個(gè)字符，編寫程序?qū)斎氲淖址M(jìn)行分類，字母分為大寫字母和小寫字母，數(shù)字字符可分為奇數(shù)和偶數(shù)，如果輸入的是其他字符，則輸出相應(yīng)的提示信息。67上機(jī)試驗(yàn)（2）在名為 Form1 的窗體上有一個(gè)名為 Cmd1 的命令按鈕，其標(biāo)題為“輸入”；還有一個(gè)名為 Txt1的文件框，初始內(nèi)容為空白。程序運(yùn)行后，單擊“輸入”命令按鈕，顯示“輸入”對話框，在對話框中輸入某個(gè)月份的數(shù)值（112），然后單擊“確定”按鈕，即可在文本框中輸出該月份所在的季節(jié)。例如輸入 6，將輸出“6 月份是夏季”，如圖 64-4 所示。68Select case注意