vb語(yǔ)言程序設(shè)計(jì)-第3章賦值與輸入輸出-資料下載頁(yè)
2025-05-21 15:26本頁(yè)面
【導(dǎo)讀】一個(gè)完整的VB應(yīng)用程序，一般都包含三部分內(nèi)容，即。可通過(guò)VB語(yǔ)句、各種控件實(shí)現(xiàn)輸入輸出操作。命令按鈕/標(biāo)簽/文本框。輸入對(duì)話(huà)框/消息對(duì)話(huà)框。第3章賦值與輸入輸出。賦值語(yǔ)句是程序設(shè)計(jì)中最基本、最常用的語(yǔ)句。例已知a=6,b=9,計(jì)算c=√a2+b2. 編寫(xiě)的窗體單擊事件過(guò)程代碼如下：。本事件過(guò)程采用的是順序程序結(jié)構(gòu)，運(yùn)行的過(guò)程是：。聲明3個(gè)單精度變量a,b,c. 初值自動(dòng)取零值。c=a+b+3′b未賦過(guò)值，為0. 執(zhí)行后，c值為4. 賦值語(yǔ)句跟數(shù)學(xué)中等式具有不同的含意，例如賦值語(yǔ)。其中［］表示求整。y為某年公元年號(hào)，計(jì)算出K為星期幾。例設(shè)計(jì)一個(gè)“萬(wàn)年歷”程序，用來(lái)查看。年的元旦是星期幾。一年份，單擊“查看”按鈕時(shí)，則在“星期”文本框。在程序的適應(yīng)位置加上必要的注釋?zhuān)梢蕴岣叱绦虻目勺x性。如果卸載的對(duì)象是程序惟一的窗體，則將終止程。已知18歲6人，19歲21人，20歲23人，21歲15人
【正文】 提示 [,對(duì)話(huà)框類(lèi)型 [,對(duì)話(huà)框標(biāo)題 ]]) 例： y = MsgBox(“輸入文件名是否正確 ” ,52,”請(qǐng)確認(rèn) ” ) “對(duì)話(huà)框類(lèi)型 ” 一般有 3個(gè)參數(shù)， 4+48+0 出現(xiàn)按鈕；圖標(biāo)類(lèi)型；默認(rèn)按鈕； 函數(shù)返回值 (例 3_9b) 消息對(duì)話(huà)框 下載 消息框的三種格式 y = MsgBox(“輸入文件名是否正確 ” ,52,”請(qǐng)確認(rèn) ” ) MsgBox “輸入文件名是否正確 ” ,52,”請(qǐng)確認(rèn) ” MsgBox(“輸入文件名是否正確 ” ) 下載 (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2) Private Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(請(qǐng)輸入圓的半徑 , 計(jì)算圓的周長(zhǎng)和面積)) k = 2 * * r s = * r * r = k = s MsgBox 計(jì)算已完成 , , 例 End Sub Private Sub Command2_Click() End End Sub 例 從輸入框中輸入圓的半徑，計(jì)算圓的周長(zhǎng)和面積 下載 當(dāng)輸入的圓半徑為 65時(shí)，運(yùn)行結(jié)果 下載 例 編寫(xiě)程序，實(shí)現(xiàn)兩個(gè)文本框內(nèi)容的交換 使用一個(gè)臨時(shí)單元變量 (t) (1)在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和一個(gè)命令按鈕 (2)編寫(xiě)程序代碼 Private Sub Command1_Click() 180。“交換”按鈕 t = = = t End Sub 程序舉例 下載 在窗體上設(shè)置三個(gè)命令按鈕 (圖 )，程序進(jìn)入運(yùn)行狀態(tài)后，當(dāng)單擊“ 窗體變大 ”命令按鈕時(shí)，窗體變大，單擊“ 窗體變小 ”按鈕時(shí)，窗體變小。單擊“ 退出 ”按鈕時(shí)，則退出。 例 控制窗體 “ 變大 ” 和 “ 變小 ” 下載 (1)建立應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 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 下載 在第一個(gè)文本框中輸入文字時(shí)，在另外兩個(gè)文本框中顯示同樣相同的內(nèi)容，但顯示的字號(hào)和字體不同。單擊“清除”按鈕時(shí)則清除三個(gè)文本框中的內(nèi)容 例 在三個(gè)文本框中顯示不同的文字效果 下載 (1)建立應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 Private Sub Form_Load() = 隸書(shū) = 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)在窗體上建立一個(gè)標(biāo)簽（ Label1）和三個(gè)命令按鈕 (Command Command2和 Command3) 三個(gè)命令按鈕分別使用訪問(wèn)鍵 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號(hào)-1