vb程序設(shè)計基礎(chǔ)_全套課件_vb教程第3章教案-資料下載頁
2025-01-12 22:25本頁面
【正文】 k = 2 * * r s = * r * r = k = s MsgBox 計算已完成 , , 例 End Sub Private Sub Command2_Click() End End Sub 例 從輸入框中輸入圓的半徑，計算圓的周長和面積 例 主頁 當(dāng)輸入的圓半徑為 65時，運行結(jié)果 主頁 例 控制窗體“變大”和“變小” 在窗體上設(shè)置三個命令按鈕 (圖 )，程序進(jìn)入運行狀態(tài)后，當(dāng)單擊“ 窗體變大 ”命令按鈕時，窗體變大，單擊“ 窗體變小 ”按鈕時，窗體變小。單擊“ 退出 ”按鈕時，則退出。 程序舉例 例 主頁 (1)建立應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 Private Sub Form_Load() = 4000 39。Height為窗體的高度， P55 = 4000 39。Height為窗體的寬度 = 1000 39。設(shè)置窗體的初始位置 = 1000 End Sub Private Sub Command1_Click() 39?！按绑w變大”按鈕 = + 200 39。每次增加 200點 = + 200 End Sub Private Sub Command2_Click() 39?！按绑w變小”按鈕 = 200 39。每次減少 200點 = 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?！扒宄卑粹o = 39。清除文本框 Text1的內(nèi)容 = 39。清除文本框 Text2的內(nèi)容 = 39。清除文本框 Text3的內(nèi)容 39。設(shè)置焦點 End Sub 主頁 (1)在窗體上建立一個標(biāo)簽（ Label1）和三個命令按鈕 (Command Command2和 Command3) 三個命令按鈕分別使用訪問鍵 Alt+C、 Alt+H和 Alt+D 例 實現(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
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1