visualbasic6(計(jì)算機(jī)實(shí)驗(yàn))(編輯修改稿)
2025-09-17 13:21 本頁面
【文章內(nèi)容簡(jiǎn)介】 開始的，即第一個(gè)控件的TabIndex為0，第二個(gè)為1；如果使某個(gè)控件不能接受Tab鍵的跳轉(zhuǎn)，需設(shè)置TabStop屬性為“False”（默認(rèn)為True）要使某個(gè)命令按鈕具有一定的功能，需響應(yīng)它的Click事件使某個(gè)控件獲取輸入焦點(diǎn)要調(diào)用該控件的SetFocus方法，即：，參考代碼實(shí)驗(yàn)二、單選按鈕一、參考下圖設(shè)計(jì)一個(gè)應(yīng)用程序，三個(gè)單選按鈕的標(biāo)題分別為“9”、“11”和“14”，通過單擊這些按鈕可以控制文本框中文字字體的大小 提示用屬性窗口先設(shè)置文本框的Text屬性，內(nèi)容可參考上圖文本框的字體大小屬性為“FontSize”，單選按鈕的“Value”屬性決定了它的選中狀態(tài)，True表示選中，F(xiàn)alse表示未選中要實(shí)現(xiàn)要求的功能，需響應(yīng)單選按鈕的“Click”事件，判斷該單選按鈕的Value屬性，如果選中則設(shè)置文本框的字體大小為相應(yīng)的值，參考代碼If Then = 9（另外兩個(gè)單選按鈕與其相似）實(shí)驗(yàn)三、復(fù)選框一、參考下圖修改“實(shí)驗(yàn)二”的程序，添加兩個(gè)復(fù)選框，標(biāo)題分別為“粗體”和“斜體”，它們可以控制文本框中文字字體的粗體和斜體 提示文本框的“粗體”屬性為“FontBold”、“斜體”屬性為“FontItalic”，復(fù)選框的“Value”屬性決定了復(fù)選框的選中狀態(tài)，“1”表示選中，“0”表示未選中要實(shí)現(xiàn)要求的功能，需響應(yīng)復(fù)選框的“Click”事件，判斷該復(fù)選框的Value屬性，如果選中則設(shè)置文本框的字體的粗體和斜體屬性為真，參考代碼 = IIf( = 1, True, False)和 = IIf( = 1, True, False)實(shí)驗(yàn)四、框架一、參考下圖修改“實(shí)驗(yàn)三”的程序，添加一個(gè)框架，標(biāo)題為“字體”，添加兩個(gè)單選按鈕，標(biāo)題分別為“宋體”和“黑體”，用于控制文本框中文字的字體 提示文本框的字體屬性為“FontName”，框架的標(biāo)題屬性為“Caption”要將控件添加到框架中，不能直接使用雙擊添加控件的方法，而要先選擇框架，然后選擇控件，最后通過鼠標(biāo)拖放添加控件參考代碼If Then = amp。quot。宋體amp。quot。和If Then = amp。quot。黑體amp。quot。實(shí)驗(yàn)五、計(jì)時(shí)器一、新建一個(gè)工程，在窗體上添加一個(gè)”標(biāo)簽”和一個(gè)“計(jì)時(shí)器”，編寫程序，在標(biāo)簽上可以顯示系統(tǒng)時(shí)間（每秒刷新一次）提示要求每秒刷新一次，需設(shè)置計(jì)時(shí)器控件的“Interval”屬性為“1000”計(jì)時(shí)器每到達(dá)指定的時(shí)間間隔就會(huì)觸發(fā)“Timer”時(shí)間，因此需響應(yīng)Timer時(shí)間，利用“Time”函數(shù)獲取當(dāng)前系統(tǒng)時(shí)間，然后賦值給標(biāo)簽的“Caption”屬性，參考代碼 = Time 二、修改上面的程序，要求添加一個(gè)計(jì)時(shí)器，用該計(jì)時(shí)器控制標(biāo)簽的前景顏色，“紅色”和“藍(lán)色”提示需設(shè)置第二個(gè)計(jì)時(shí)器的“Interval”屬性為“1500”，需響應(yīng)它的“Timer”屬性標(biāo)簽的前景顏色是“ForeColor”屬性，運(yùn)行期間用“RGB(紅色分量,綠色分量,藍(lán)色分量)”函數(shù)賦值（三個(gè)顏色的分量最大值為255，最小值為0，比如紅色為：RGB(255,0,0)，藍(lán)色為：RGB(0,0,255)），紅色參考代碼： = RGB(255,0,0)要求交替變換顏色，因此需用If語句判斷原來的顏色，然后相應(yīng)的改變，參考代碼 If = RGB(255,0,0) Then = RGB(0,0,255)Else = RGB(255,0,0) End If實(shí)驗(yàn)六、圖片框和圖像一、下載“”和“”圖片（下載方法：在超級(jí)鏈結(jié)上單擊鼠標(biāo)右鍵，然后選擇“目標(biāo)另存為”），保存在D:\下，在新建一個(gè)工程，在窗體中添加一個(gè)圖片框和一個(gè)圖像，圖片框的大小為20001800，顯示“”，圖像的大小為20001000，顯示“”，圖像能夠按照控件的比例顯示圖片提示控件的大小屬性是由“Width”（寬度）屬性和“Height”（高度）屬性控制的圖片框（Picture1）的圖片屬性為“Picture”，通過打開對(duì)話框可以打開圖片圖像（Image1）的圖片屬性為“Picture”，通過打開對(duì)話框可以打開圖片想要圖像能夠按照控件的比例顯示圖片，需將圖像控件的“Stretch”屬性設(shè)置為“True”補(bǔ)充實(shí)驗(yàn)：嘗試在圖片框和圖像中顯示其他圖片，圖片可以到C:\Windows目錄中尋找 實(shí)驗(yàn)七、控件的綜合實(shí)驗(yàn)（一）一、創(chuàng)建一個(gè)工程，參考下圖設(shè)計(jì)窗體和控件 要求如下可以在三個(gè)文本框中輸入“語文”、“數(shù)學(xué)”、“英語”成績(jī)單擊“開始計(jì)算”可以計(jì)算“總分”三個(gè)復(fù)選框可以控制總分中是否包含其指定的成績(jī)提示計(jì)算總成績(jī)時(shí)需聲明一個(gè)總分變量，例如“Sum”通過判斷相應(yīng)的復(fù)選框是否選中（Value屬性是否等于1）決定是否將相應(yīng)的文本框的Text屬性的值累加到Sum中計(jì)算結(jié)束后將變量Sum的值賦值給總分文本框開始計(jì)算按鈕的單擊事件的處理程序可參考如下代碼：Dim Sum As IntegerIf = 1 Then Sum = Sum + If = 1 Then Sum = Sum + If = 1 Then Sum = Sum + = Sum練習(xí)八、列表框一、新建一個(gè)工程，如下圖擺放文本框、命令按鈕和列表框，要求如下：在文本框中輸入文字后，單擊“添加”可以向列表框中添加輸入的文本在列表框中選擇某個(gè)項(xiàng)目后單擊“刪除當(dāng)前”可以刪除選中的項(xiàng)目單擊“全部清除”按鈕可以清除列表框中的所有項(xiàng)目 提示向列表框中添加文本需調(diào)用列表框的“AddItem”方法（語法為： 文本），將文本框中的文字添加到列表框中可參考如下代碼： 列表框的ListIndex屬性返回被選中項(xiàng)目的編號(hào)，刪除列表框中選中的文本需調(diào)用列表框的“RemoveItem”方法，該方法的語法為： 項(xiàng)目編號(hào)，可以參考下列代碼： 刪除列表框中所有項(xiàng)目需調(diào)用列表框的“Clear”方法練習(xí)九、組合框一、新建一個(gè)工程，如下圖，在窗體中添加兩個(gè)標(biāo)簽和一個(gè)組合框（樣式為：下拉列表框），其中上面的標(biāo)簽的字體為“宋體 三號(hào)”，組合框中有如下項(xiàng)目“紅色、綠色、藍(lán)色、黑色”，當(dāng)用戶在下拉列表框中選擇一個(gè)顏色時(shí)，可以將標(biāo)簽的前景色作相應(yīng)的更改 提示標(biāo)簽的前景色屬性為“ForeColor”，用“RGB()”函數(shù)賦值用戶在組合框中選擇項(xiàng)目時(shí)觸發(fā)組合框的“Click”事件，因此需響應(yīng)組合框的Click事件，判斷用戶當(dāng)前選擇的顏色名稱，然后將標(biāo)簽的前景色更改成相應(yīng)的顏色，即： if =amp。quot。紅色amp。quot。 then =RGB(255,0,0)if =amp。quot。綠色amp。quot。 then =RGB(0,255,0)if =amp。quot。藍(lán)色amp。quot。 then =RGB(0,0,255)if =amp。quot。黑色amp。quot。 then =RGB(0,0,0) 第四章 語句與控制結(jié)構(gòu)練習(xí)一、交互函數(shù)目的熟悉VB交互函數(shù)及語句（過程）的用法掌握InputBox函數(shù)的用法，學(xué)會(huì)利用InputBox函數(shù)從用戶獲取信息掌握MsgBox函數(shù)和語句的用法，學(xué)會(huì)利用MsgBox語句提示信息，用MsgBox函數(shù)提示信息并獲取用戶的響應(yīng) 一、新建一個(gè)工程，用“第四章練習(xí)一（1）”命名工程和窗體，保存在自己的目錄中，在其窗體上添加一個(gè)命令按鈕，要求用戶單擊該命令按鈕時(shí)提示用戶輸入其姓名，然后在窗體上打印該姓名提示InputBox函數(shù)的語法如下返回值=InputBox(amp。quot。提示信息amp。quot。[,amp。quot。對(duì)話框標(biāo)題amp。quot。][,默認(rèn)值])其中“返回值”、“提示信息”和“對(duì)話框標(biāo)題”均為字符串類型，如果用戶單擊對(duì)話框的“確定”按鈕，則“返回值”等于用戶在對(duì)話框的文本框中輸入的文字，如果單擊“取消”則“返回值”等于空值（amp。quot。amp。quot。）該程序需響應(yīng)命令按鈕的單擊（Click）事件，參考代碼如下Dim s As Strings = InputBox(amp。quot。請(qǐng)輸入您的姓名amp。quot。,amp。quot。輸入姓
物理相關(guān)推薦
鄂ICP備17016276號(hào)-1