《數據輸入輸出》PPT課件.ppt

《《數據輸入輸出》PPT課件.ppt》由會員分享，可在線閱讀，更多相關《《數據輸入輸出》PPT課件.ppt（37頁珍藏版）》請在裝配圖網上搜索。

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