vb語言程序設(shè)計-第3章賦值與輸入輸出-資料下載頁
2025-05-21 15:26本頁面
【導(dǎo)讀】一個完整的VB應(yīng)用程序，一般都包含三部分內(nèi)容，即。可通過VB語句、各種控件實(shí)現(xiàn)輸入輸出操作。命令按鈕/標(biāo)簽/文本框。輸入對話框/消息對話框。第3章賦值與輸入輸出。賦值語句是程序設(shè)計中最基本、最常用的語句。例已知a=6,b=9,計算c=√a2+b2. 編寫的窗體單擊事件過程代碼如下：。本事件過程采用的是順序程序結(jié)構(gòu)，運(yùn)行的過程是：。聲明3個單精度變量a,b,c. 初值自動取零值。c=a+b+3′b未賦過值，為0. 執(zhí)行后，c值為4. 賦值語句跟數(shù)學(xué)中等式具有不同的含意，例如賦值語。其中［］表示求整。y為某年公元年號，計算出K為星期幾。例設(shè)計一個“萬年歷”程序，用來查看。年的元旦是星期幾。一年份，單擊“查看”按鈕時，則在“星期”文本框。在程序的適應(yīng)位置加上必要的注釋，可以提高程序的可讀性。如果卸載的對象是程序惟一的窗體，則將終止程。已知18歲6人，19歲21人，20歲23人，21歲15人
【正文】 提示 [,對話框類型 [,對話框標(biāo)題 ]]) 例： y = MsgBox(“輸入文件名是否正確 ” ,52,”請確認(rèn) ” ) “對話框類型 ” 一般有 3個參數(shù)， 4+48+0 出現(xiàn)按鈕；圖標(biāo)類型；默認(rèn)按鈕； 函數(shù)返回值 (例 3_9b) 消息對話框 下載 消息框的三種格式 y = MsgBox(“輸入文件名是否正確 ” ,52,”請確認(rèn) ” ) MsgBox “輸入文件名是否正確 ” ,52,”請確認(rèn) ” MsgBox(“輸入文件名是否正確 ” ) 下載 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2) Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(請輸入圓的半徑 , 計算圓的周長和面積)) k = 2 * * r s = * r * r = k = s MsgBox 計算已完成 , , 例 End Sub Private Sub Command2_Click() End End Sub 例 從輸入框中輸入圓的半徑，計算圓的周長和面積 下載 當(dāng)輸入的圓半徑為 65時，運(yùn)行結(jié)果 下載 例 編寫程序，實(shí)現(xiàn)兩個文本框內(nèi)容的交換 使用一個臨時單元變量 (t) (1)在窗體上建立兩個標(biāo)簽、兩個文本框和一個命令按鈕 (2)編寫程序代碼 Private Sub Command1_Click() 180。“交換”按鈕 t = = = t End Sub 程序舉例 下載 在窗體上設(shè)置三個命令按鈕 (圖 )，程序進(jìn)入運(yùn)行狀態(tài)后，當(dāng)單擊“ 窗體變大 ”命令按鈕時，窗體變大，單擊“ 窗體變小 ”按鈕時，窗體變小。單擊“ 退出 ”按鈕時，則退出。 例 控制窗體 “ 變大 ” 和 “ 變小 ” 下載 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() = 4000 = 4000 = 1000 = 1000 End Sub Private Sub Command1_Click() 39。―窗體變大”按鈕 = + 200 39。每次增加 200點(diǎn) = + 200 End Sub Private Sub Command2_Click() 39。―窗體變小”按鈕 = 200 39。每次減少 200點(diǎn) = 200 End Sub 下載 在第一個文本框中輸入文字時，在另外兩個文本框中顯示同樣相同的內(nèi)容，但顯示的字號和字體不同。單擊“清除”按鈕時則清除三個文本框中的內(nèi)容 例 在三個文本框中顯示不同的文字效果 下載 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() = 隸書 = 16 = 楷體 _GB2312 = 20 End Sub Private Sub Text1_Change() = = End Sub Private Sub Command1_Click() 39。―清除”按鈕 = ―‖ 39。清除文本框 Text1的內(nèi)容 = 39。清除文本框 Text2的內(nèi)容 = 39。清除文本框 Text3的內(nèi)容 39。設(shè)置焦點(diǎn) End Sub 下載 (1)在窗體上建立一個標(biāo)簽（ Label1）和三個命令按鈕 (Command Command2和 Command3) 三個命令按鈕分別使用訪問鍵 Alt+C、 Alt+H和Alt+D 例 實(shí)現(xiàn)標(biāo)簽的顯示和隱藏，以及改變文字的顏色 下載 (2) Private Sub Form_Load() Randomize = QBColor(15) 39。背景色 = QBColor(0) 39。文字顏色 = 18 39。字體大小 End Sub Private Sub Command1_Click() 39。―改變文字顏色”按鈕 Clr = Int(15 * Rnd) 39。產(chǎn)生隨機(jī)顏色碼 = QBColor(Clr) End Sub Private Sub Command2_Click() 39。―隱藏標(biāo)簽”按鈕 = False 39。隱藏標(biāo)簽 End Sub Private Sub Command3_Click() 39。―顯示標(biāo)簽”按鈕 = True 39。顯示標(biāo)簽 End Sub
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1