1、第5章 數(shù)據(jù)輸入輸出,計算機(jī)基礎(chǔ)教學(xué)部,內(nèi)容提要： 1數(shù)據(jù)輸出Print方法 2 數(shù)據(jù)輸入InputBox函數(shù) 3 MsgBox函數(shù)和MsgBox語句 4字形 重點： 數(shù)據(jù)輸出Print方法 數(shù)據(jù)輸入InputBox函數(shù) MsgBox函數(shù)和MsgBox語句,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,5.1.1 Print方法 作用：在窗體上顯示文本字符串和表達(dá)式的值，并可在其他圖形對象或打印機(jī)上輸出信息。 格式為：對象名稱.Print表達(dá)式表，|； 說明： 1.“對象名稱”可以是窗體（Form）、圖片框（PictureBox）或打印機(jī)（Printer），也可以是立即窗口（Debug）

2、Picture1.Print “Visual Basic 6.0 ” 在圖片框上輸出 Debug.Print “Visual Basic 6.0 ” 在立即窗口上輸出 Print “Visual Basic 6.0 ” 在窗體上輸出 2.“表達(dá)式表”是一個或多個表達(dá)式，可以是數(shù)值表達(dá)式或字符串 Print 100 輸出結(jié)果100 Print “Visual Basic 6.0 ” 輸出結(jié)果Visual Basic 6.0,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,3.若輸出的各表達(dá)式之間用逗號分隔，則按標(biāo)準(zhǔn)輸出格式（分區(qū)輸出格式）示數(shù)據(jù)項；如果各輸出項之間用分號或空格作分隔符，則按緊湊

3、輸出格式輸出數(shù)據(jù)。 例如： x=5: y=10: z=15 Print x, y, z, ABCDEF Print x; y; z; “ABCDEF ”；GHIJK 輸出結(jié)果： 5 10 15 ABCDEF 5 10 15 ABCDEFGHIJK 標(biāo)準(zhǔn)格式輸出即分區(qū)格式輸出，14個字符位置為一個分區(qū) 緊湊格式輸出數(shù)值數(shù)據(jù)時，數(shù)字后面有一個空格。,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,4. 執(zhí)行一次Print方法自動換行，尾部加逗號，分號或空格可在同一行顯示 例如： Print 30+50= Print 30+50 Print 80+100= ; Print 80+100 輸出結(jié)果：

4、 30+50= 80 80+100= 180,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,例：設(shè)計程序使用Print方法在窗體中顯示學(xué)生信息。 Private Sub Form_Click() Dim score1 As Single Dim score2 As Single, score3 As Single score1 = 90: score2 = 87: score3 = 84 Print ; 李明; VB程序設(shè)計成績 以緊湊格式顯示各個字符串表達(dá)式 Print 省略分隔符，自動換行 Print 理論, 實驗, 綜合作業(yè) 以標(biāo)準(zhǔn)格式顯示各個字符串表達(dá)式 Print score1,

5、 score2, score3 以標(biāo)準(zhǔn)格式顯示各個數(shù)值表達(dá)式 Print Print “平均成績：; (score1 + score2 + score3) / 3; 分 以緊湊格式顯示，數(shù)值項后面有一個空格 End Sub,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,5.1.2 與Print方法有關(guān)的函數(shù) 1Tab函數(shù) 格式：Tab（n） 作用：把光標(biāo)移到由參數(shù)n指定的位置 Print Tab(25); 800 在第25個位置輸出800 2Spc函數(shù) 格式：Spc（n） 作用：跳過n個空格 Print “ABC”; Spc(8); “DEF“ 輸出ABC ，跳過8個空格，再輸出 DEF

6、3空格函數(shù) 格式：Space$（n） 作用：返回n個空格,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,4Cls方法 格式：對象.Cls 作用：清除由Print方法顯示的內(nèi)容 5Move方法 格式：對象.Move左邊距離，上邊距離，寬度，高度 作用：移動窗體或控件，并改變大小,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,5.1.3格式輸出 在VB中，用函數(shù)Format來實現(xiàn)格式輸出。 格式：Format$（數(shù)值表達(dá)式，格式字符串） 功能：按照“格式字符串”指定的格式輸出“數(shù)值表達(dá)式”的值 格式字符串有三類：數(shù)值格式、日期格式和字符串格式 如：Print Format(3.14159,

7、 “#.#”),計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,數(shù)值格式 說明： 對于“#”、“0”符號，當(dāng)數(shù)值整數(shù)位數(shù)多于格式字符串的位數(shù)時，按照實際數(shù)值顯示；小數(shù)部分多于格式字符串的位數(shù)時，則按照四舍五入顯示?！?”按照規(guī)定位數(shù)顯示，不足位則用0補(bǔ)齊，而#不進(jìn)行其他操作。,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,2. 字符串格式,計算機(jī)基礎(chǔ)教學(xué)部,5.1 數(shù)據(jù)輸出Print方法,3.日期和時間格式化,計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox函數(shù),作用：InputBox函數(shù)產(chǎn)生一個對話框，這個對話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。 格式： In

8、putBox（prompt，title，default，xpos，ypos，helpfile，context),計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox函數(shù),參數(shù)說明：,計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox函數(shù),例如：有下列語句如下: Dim x as Integer x= Val(InputBox(“請輸入一個數(shù)”, “輸入框”, 100) 語句執(zhí)行后打開如下對話框。 說明： 默認(rèn)情況下，InputBox函數(shù)返回一個字符串（不是變體類型），若希望輸入的值參與運算時，要將其轉(zhuǎn)化為數(shù)值型，Val函數(shù)轉(zhuǎn)換為相應(yīng)類型的數(shù)據(jù)。,計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox

9、函數(shù),例：用InputBox函數(shù)輸入圓柱體的半徑和高，計算圓柱體表面積和圓柱體體積。 1 設(shè)計界面,計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox函數(shù),2 編寫程序代碼。 Private Sub Command1_Click() Dim r As Single, h As Single, s As Single, v As Single Const pi = 3.1415926 r = Val(InputBox(輸入圓柱體半徑) h = Val(InputBox(輸入圓柱體高) s = 2 * pi * r 2 + 2 * pi * r * h v = pi * r 2 * h Text1

10、.Text = s Text2.Text = v End Sub,計算機(jī)基礎(chǔ)教學(xué)部,5.2 數(shù)據(jù)輸入InputBox函數(shù),說明： (1) 在默認(rèn)情況下，InputBox的返回值是一個字符型數(shù)據(jù)，用val函數(shù)把它轉(zhuǎn)換成數(shù)值型數(shù)據(jù)。 (2) 在InputBox函數(shù)對話框中有兩個按鈕，當(dāng)在輸入?yún)^(qū)輸入數(shù)據(jù)后，單擊“確定”按鈕(或按回車鍵)，返回在輸入?yún)^(qū)中輸入的數(shù)據(jù)；若單擊“取消”按鈕(或按ESC鍵)，并返回一個空字符串。 (3) 每執(zhí)行一次InputBox函數(shù)，只能輸入一個數(shù)據(jù)。如果需要輸入多個值，可以寫多個調(diào)用InputBox函數(shù)的語句。,計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句

11、,MsgBox函數(shù) 格式： MsgBox(msg,type,title,helpfile,context) MsgBox語句 格式： MsgBox Msg ,type,title,helpfile,context 說明： 1 MsgBox語句與MsgBox函數(shù)功能及各參數(shù)的意義相同。不同之處在于MsgBox語句是一條語句，可以獨占一行，并且沒有返回值； 2 msg、title 、helpfile和context與InputBox函數(shù)中對應(yīng)的參數(shù)相同； 3 type是 “按鈕圖標(biāo) +缺省按鈕+模式”是整型表達(dá)式，決定信息框按鈕數(shù)目、出現(xiàn)在信息框上的圖標(biāo)類型及操作模式；由四類數(shù)值相加產(chǎn)生。,圖標(biāo),

12、標(biāo)題,提示信息,命令按鈕,計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句,按鈕及圖標(biāo)值如下:,計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句,MsgBox函數(shù)返回值:,計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句,例如：MsgBox函數(shù)返回值的應(yīng)用。 語句：X = MsgBox(輸入數(shù)據(jù)是否正確?, vbYesNoCancel, 數(shù)據(jù)檢查) 彈出如圖所示對話框，選擇“是”按鈕，x=6；選擇“否”按鈕，x=7；選擇“取消”按鈕，x=,InputBox函數(shù)-輸入框,作用： 打開一個對話框,等待用戶輸入內(nèi)容。 單擊確定，返回輸入值（字符型數(shù)據(jù)） 格式： 變

13、量名 = InputBox ( 提示,標(biāo)題,默認(rèn)值,X,Y),例：設(shè)置一個輸入框： 提示用戶輸入查詢學(xué)號。,提示： 若提示內(nèi)容中需要換行顯示：在換行處加chr(13)和chr(10) 各項參數(shù)位置必須一一對應(yīng),Msgbox函數(shù)-信息框,1.語法,變量 = MsgBox(提示內(nèi)容,按鈕,標(biāo)題) MsgBox 提示內(nèi)容 , 按鈕 , 標(biāo)題,2.MsgBox 函數(shù)的常用參數(shù)的說明,提示內(nèi)容：必要。字符表達(dá)式，即顯示在對話框中的信息,= 1024 個字符， 如果文字超過一行，可用Chr(13) + Chr(10) 換行,按 鈕： 可選。整型表達(dá)式，缺省值為 0 指定信息框中按鈕數(shù)目、類型、圖標(biāo)類型，

14、缺省按鈕等,標(biāo) 題： 可選。在對話框標(biāo)題欄中顯示的內(nèi)容。 省略此項，則將應(yīng)用程序名放在標(biāo)題欄中,Buttons參數(shù)的設(shè)置,1.按鈕的類型和數(shù)目的設(shè)置 Buttons的和=按鈕設(shè)置值 + 圖標(biāo)設(shè)置值 + 缺省按鈕值,值 按鈕的設(shè)置 對應(yīng)按鈕名稱 0 vbOKOnly-確定 1 vbOKCancel-確定、取消 2 vbAbortRetryIgnore-終止、重試、忽略 3 vbYesNoCancel-是、否、取消 4 vbYesNo-是、否 5 vbRetryCancel-重試、取消,Buttons參數(shù)值= 1 或 vbOKCancel,Buttons參數(shù)的設(shè)置,2.圖標(biāo)的樣式 Buttons的

15、和=按鈕設(shè)置值+圖標(biāo)設(shè)置值+缺省按鈕值,16 vbCritical -,32 vbQuestion -,48 vbExclamation -,64 vbInformation -,Buttons參數(shù)值= 1+64 或 vbOKCancel+ vbInformation,Buttons參數(shù)的設(shè)置,3.說明哪一個是缺省按鈕 Buttons的和=按鈕設(shè)置值+圖標(biāo)設(shè)置值+缺省按鈕值,0 VbDefaultButton1,256 VbDefaultButton2,512 VbDefaultButton3,Buttons參數(shù)值=65 ( 1+64+0) 或 vbOKCancel+ vbInformatio

16、n+VbDefaultButton1,信息框的返回值：,4.Msgbox的函數(shù)返回值 用于確定用戶選擇對話框的哪一個按鈕，以作出不同的響應(yīng)。,符號常量 返回值 對應(yīng)按鈕,vbOK 1-確認(rèn),vbCancel 2-取消,vbAbort 3 -終止(A),vbRetry 4-重試(R),vbIgnore 5-忽略(I),vbYes 6 - 是(Y),vbNo 7 - 否(N),計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句,例如：編寫程序，用MsgBox函數(shù)判斷是否繼續(xù)執(zhí)行。 Private Sub Form_Click() msg$ = 請確認(rèn)此數(shù)是否正確 Title$ = 數(shù)據(jù)檢

17、查對話框 x = MsgBox(msg$, 19, Title$) If x = 6 Then Print x * x ElseIf x = 7 Then Print 請重新輸入 End If End Sub,計算機(jī)基礎(chǔ)教學(xué)部,5.3 MsgBox函數(shù)和MsgBox語句,練習(xí)5-1 在窗體上布置一個文本框，單擊窗體，則彈出輸入框，要求輸入你的姓名，并且在文本框中顯示你所輸入的姓名。然后彈出一信息框，詢問是否男生，若是，按“是”按鈕，否則，按“否”按鈕，這時，文本框中顯示你的姓名和性別。,計算機(jī)基礎(chǔ)教學(xué)部,5.4 字形,5.4.1字體類型和大小 1 字體類型：通過FontName屬性設(shè)置 格式：

18、窗體.控件.|Printer.FontName=“字體類型” 例如： FontName=System FontName=Times New Roman FontName=宋體 2 字體大?。和ㄟ^Fontsize屬性設(shè)置： 格式：Fontsize=點數(shù) 例如： Text1.FontSize = 12,計算機(jī)基礎(chǔ)教學(xué)部,5.4 字形,5.4.2其他屬性 1 FontBold屬性（粗體字） 格式： FontBold =Boolean 2 FontItalic屬性（斜體字） 格式： FontItalic =Boolean 3 Fontstrikethru屬性（加刪除線） 格式： Fontstriket

19、hru =Boolean 4 Fontunderline屬性（加下劃線） 格式： Fontunderline =Boolean 5 FontTransParent屬性（重疊顯示） 格式： FontTransParent =Boolean,計算機(jī)基礎(chǔ)教學(xué)部,5.4 字形,例：編寫程序在窗體上輸出多種字體。 Private Sub Form_Click() sample1$ = Microsoft Visual Basic 6.0 sample2$ = 程序設(shè)計技巧 FontSize = 20 FontName = system Print system-; sample1$ FontName =

20、 modern Print modern-; sample1$ FontSize = 24 FontName = 宋體 FontBold = True Print 宋體-; sample2$ FontName = 隸書 FontItalic = True Print 隸書-; sample2$ FontName = 黑體 FontUnderline = True Print 黑體-; sample2$ End Sub,計算機(jī)基礎(chǔ)教學(xué)部,5.6 應(yīng)用舉例,例：輸入三角形的3條邊長，計算三角形的面積，在窗體輸出該三角形的面積。 分析： 變量定義： 三角形三條邊a,b,c,面積area, s ：雙精度 數(shù)據(jù)輸入： a = Val(InputBox(請輸入第一個邊) b = Val(InputBox(請輸入第二個邊) c = Val(InputBox(請輸入第三個邊) 計算步驟： 計算s的值： 計算面積： 結(jié)果輸出：Print area,計算機(jī)基礎(chǔ)教學(xué)部,5.6 應(yīng)用舉例,Private Sub Command1_Click() Dim a As Double, b As Double, c