《數(shù)據(jù)輸入輸出》PPT課件.ppt

第5章數(shù)據(jù)輸入輸出,計(jì)算機(jī)基礎(chǔ)教學(xué)部,內(nèi)容提要：1數(shù)據(jù)輸出Print方法2數(shù)據(jù)輸入InputBox函數(shù)3MsgBox函數(shù)和MsgBox語句4字形重點(diǎn)：數(shù)據(jù)輸出Print方法數(shù)據(jù)輸入InputBox函數(shù)MsgBox函數(shù)和MsgBox語句,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,5.1.1Print方法作用：在窗體上顯示文本字符串和表達(dá)式的值，并可在其他圖形對象或打印機(jī)上輸出信息。格式為：對象名稱.Print表達(dá)式表，|；說明：1.“對象名稱”可以是窗體（Form）、圖片框（PictureBox）或打印機(jī)（Printer），也可以是立即窗口（Debug）Picture1.Print“VisualBasic6.0”在圖片框上輸出Debug.Print“VisualBasic6.0”在立即窗口上輸出Print“VisualBasic6.0”在窗體上輸出2.“表達(dá)式表”是一個(gè)或多個(gè)表達(dá)式，可以是數(shù)值表達(dá)式或字符串Print100輸出結(jié)果100Print“VisualBasic6.0”輸出結(jié)果VisualBasic6.0,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,3.若輸出的各表達(dá)式之間用逗號分隔，則按標(biāo)準(zhǔn)輸出格式（分區(qū)輸出格式）示數(shù)據(jù)項(xiàng)；如果各輸出項(xiàng)之間用分號或空格作分隔符，則按緊湊輸出格式輸出數(shù)據(jù)。例如：x=5:y=10:z=15Printx,y,z,"ABCDEF"Printx;y;z;“ABCDEF”；"GHIJK"輸出結(jié)果：51015ABCDEF51015ABCDEFGHIJK標(biāo)準(zhǔn)格式輸出即分區(qū)格式輸出，14個(gè)字符位置為一個(gè)分區(qū)緊湊格式輸出數(shù)值數(shù)據(jù)時(shí)，數(shù)字后面有一個(gè)空格。,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,4.執(zhí)行一次Print方法自動(dòng)換行，尾部加逗號，分號或空格可在同一行顯示例如：Print"30+50="Print30+50Print"80+100="Print80+100輸出結(jié)果：30+50=8080+100=180,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,例：設(shè)計(jì)程序使用Print方法在窗體中顯示學(xué)生信息。PrivateSubForm_Click()Dimscore1AsSingleDimscore2AsSingle,score3AsSinglescore1=90:score2=87:score3=84Print"""李明""VB程序設(shè)計(jì)成績"以緊湊格式顯示各個(gè)字符串表達(dá)式Print省略分隔符，自動(dòng)換行Print"理論","實(shí)驗(yàn)","綜合作業(yè)"以標(biāo)準(zhǔn)格式顯示各個(gè)字符串表達(dá)式Printscore1,score2,score3以標(biāo)準(zhǔn)格式顯示各個(gè)數(shù)值表達(dá)式PrintPrint“平均成績："(score1+score2+score3)/3;"分"以緊湊格式顯示，數(shù)值項(xiàng)后面有一個(gè)空格EndSub,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,5.1.2與Print方法有關(guān)的函數(shù)1Tab函數(shù)格式：Tab（n）作用：把光標(biāo)移到由參數(shù)n指定的位置PrintTab(25);800在第25個(gè)位置輸出8002Spc函數(shù)格式：Spc（n）作用：跳過n個(gè)空格Print“ABC”;Spc(8);“DEF“輸出ABC，跳過8個(gè)空格，再輸出DEF3空格函數(shù)格式：Space$（n）作用：返回n個(gè)空格,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,4Cls方法格式：對象.Cls作用：清除由Print方法顯示的內(nèi)容5Move方法格式：對象.Move左邊距離，上邊距離，寬度，高度作用：移動(dòng)窗體或控件，并改變大小,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,5.1.3格式輸出在VB中，用函數(shù)Format來實(shí)現(xiàn)格式輸出。格式：Format$（數(shù)值表達(dá)式，格式字符串）功能：按照“格式字符串”指定的格式輸出“數(shù)值表達(dá)式”的值格式字符串有三類：數(shù)值格式、日期格式和字符串格式如：PrintFormat(3.14159,“#.#”),計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,數(shù)值格式說明：對于“#”、“0”符號，當(dāng)數(shù)值整數(shù)位數(shù)多于格式字符串的位數(shù)時(shí)，按照實(shí)際數(shù)值顯示；小數(shù)部分多于格式字符串的位數(shù)時(shí)，則按照四舍五入顯示。“0”按照規(guī)定位數(shù)顯示，不足位則用0補(bǔ)齊，而#不進(jìn)行其他操作。,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,2.字符串格式,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.1數(shù)據(jù)輸出Print方法,3.日期和時(shí)間格式化,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),作用：InputBox函數(shù)產(chǎn)生一個(gè)對話框，這個(gè)對話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。格式：InputBox（prompt，title，default，xpos，ypos，helpfile，context),計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),參數(shù)說明：,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),例如：有下列語句如下:DimxasIntegerx=Val(InputBox(“請輸入一個(gè)數(shù)”,“輸入框”,100)語句執(zhí)行后打開如下對話框。說明：默認(rèn)情況下，InputBox函數(shù)返回一個(gè)字符串（不是變體類型），若希望輸入的值參與運(yùn)算時(shí)，要將其轉(zhuǎn)化為數(shù)值型，Val函數(shù)轉(zhuǎn)換為相應(yīng)類型的數(shù)據(jù)。,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),例：用InputBox函數(shù)輸入圓柱體的半徑和高，計(jì)算圓柱體表面積和圓柱體體積。1設(shè)計(jì)界面,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),2編寫程序代碼。PrivateSubCommand1_Click()DimrAsSingle,hAsSingle,sAsSingle,vAsSingleConstpi=3.1415926r=Val(InputBox("輸入圓柱體半徑")h=Val(InputBox("輸入圓柱體高")s=2*pi*r2+2*pi*r*hv=pi*r2*hText1.Text=sText2.Text=vEndSub,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.2數(shù)據(jù)輸入InputBox函數(shù),說明：(1)在默認(rèn)情況下，InputBox的返回值是一個(gè)字符型數(shù)據(jù)，用val函數(shù)把它轉(zhuǎn)換成數(shù)值型數(shù)據(jù)。(2)在InputBox函數(shù)對話框中有兩個(gè)按鈕，當(dāng)在輸入?yún)^(qū)輸入數(shù)據(jù)后，單擊“確定”按鈕(或按回車鍵)，返回在輸入?yún)^(qū)中輸入的數(shù)據(jù)；若單擊“取消”按鈕(或按ESC鍵)，并返回一個(gè)空字符串。(3)每執(zhí)行一次InputBox函數(shù)，只能輸入一個(gè)數(shù)據(jù)。如果需要輸入多個(gè)值，可以寫多個(gè)調(diào)用InputBox函數(shù)的語句。,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.3MsgBox函數(shù)和MsgBox語句,MsgBox函數(shù)格式：MsgBox(msg,type,title,helpfile,context)MsgBox語句格式：MsgBoxMsg,type,title,helpfile,context說明：1MsgBox語句與MsgBox函數(shù)功能及各參數(shù)的意義相同。不同之處在于MsgBox語句是一條語句，可以獨(dú)占一行，并且沒有返回值；2msg、title、helpfile和context與InputBox函數(shù)中對應(yīng)的參數(shù)相同；3type是“按鈕圖標(biāo)+缺省按鈕+模式”是整型表達(dá)式，決定信息框按鈕數(shù)目、出現(xiàn)在信息框上的圖標(biāo)類型及操作模式；由四類數(shù)值相加產(chǎn)生。,圖標(biāo),標(biāo)題,提示信息,命令按鈕,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.3MsgBox函數(shù)和MsgBox語句,按鈕及圖標(biāo)值如下:,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.3MsgBox函數(shù)和MsgBox語句,MsgBox函數(shù)返回值:,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.3MsgBox函數(shù)和MsgBox語句,例如：MsgBox函數(shù)返回值的應(yīng)用。語句：X=MsgBox("輸入數(shù)據(jù)是否正確?",vbYesNoCancel,"數(shù)據(jù)檢查")彈出如圖所示對話框，選擇“是”按鈕，x=6；選擇“否”按鈕，x=7；選擇“取消”按鈕，x=,InputBox函數(shù)-輸入框,作用：打開一個(gè)對話框,等待用戶輸入內(nèi)容。單擊確定，返回輸入值（字符型數(shù)據(jù)）格式：變量名=InputBox(提示,標(biāo)題,默認(rèn)值,X,Y),例：設(shè)置一個(gè)輸入框：提示用戶輸入查詢學(xué)號。,提示：若提示內(nèi)容中需要換行顯示：在換行處加chr(13)和chr(10)各項(xiàng)參數(shù)位置必須一一對應(yīng),Msgbox函數(shù)-信息框,1.語法,變量=MsgBox(提示內(nèi)容,按鈕,標(biāo)題)MsgBox提示內(nèi)容,按鈕,標(biāo)題,2.MsgBox函數(shù)的常用參數(shù)的說明,提示內(nèi)容：必要。字符表達(dá)式，即顯示在對話框中的信息,"sample1$FontName="modern"Print"modern->"sample1$FontSize=24FontName="宋體"FontBold=TruePrint"宋體->"sample2$FontName="隸書"FontItalic=TruePrint"隸書->"sample2$FontName="黑體"FontUnderline=TruePrint"黑體->"sample2$EndSub,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.6應(yīng)用舉例,例：輸入三角形的3條邊長，計(jì)算三角形的面積，在窗體輸出該三角形的面積。分析：變量定義：三角形三條邊a,b,c,面積area,s：雙精度數(shù)據(jù)輸入：a=Val(InputBox("請輸入第一個(gè)邊")b=Val(InputBox("請輸入第二個(gè)邊")c=Val(InputBox("請輸入第三個(gè)邊")計(jì)算步驟：計(jì)算s的值：計(jì)算面積：結(jié)果輸出：Printarea,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.6應(yīng)用舉例,PrivateSubCommand1_Click()DimaAsDouble,bAsDouble,cAsDoubleDimsAsDouble,areaAsDoublea=Val(InputBox("請輸入第一個(gè)邊")b=Val(InputBox("請輸入第二個(gè)邊")c=Val(InputBox("請輸入第三個(gè)邊")s=(a+b+c)/2area=s*(s-a)*(s-b)*(s-c)area=Sqr(area)PrintareaEndSub,計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.6應(yīng)用舉例,例：設(shè)計(jì)一個(gè)時(shí)間轉(zhuǎn)換程序，實(shí)現(xiàn)秒到時(shí)、分、秒的轉(zhuǎn)換，將結(jié)果輸出在窗體上。分析：變量定義：時(shí)、分、秒h,m,s：Integer總秒值t：Long數(shù)據(jù)輸入：t=Val(InputBox("輸入總秒值")計(jì)算：時(shí)的計(jì)算：h=t3600（整數(shù)除，/浮點(diǎn)除）分的計(jì)算：a=tMod3600：m=a60秒的計(jì)算：s=aMod60結(jié)果輸出：Printh&"時(shí)"&m&"分"&s&"秒",計(jì)算機(jī)基礎(chǔ)教學(xué)部,5.6應(yīng)用舉例,PrivateSubCommand1_Click()DimtAsLong,hAsInteger,mAsIntegerDimaAsInteger,sAsIntegert=Val(InputBox("輸入總秒值")h=t3600a=tMod3600m=a60s=aMod60Printh&"時(shí)"&m&"分"&s&"秒“EndSub,