第6題:
在考生文件夾下有一個工程文件sjt5.vbp,請在窗體上畫兩個框架,其名 稱分別為F1和F2,標題分別為"交通工具"和"到達目標"。在F1中畫兩 個單選按鈕,名稱分別為Op1和Op2,標題分別為"飛機"和"火車"。在 F2中畫兩個單選按鈕,名稱分別為Op3和Op4,標題分別為"廣州"和"昆 明"。畫一個文本框,其名稱為Text1。編寫適當事件過程。程序運行后, 選擇不同單選按鈕時產(chǎn)生的顯示結(jié)果見下表
程序的運行情況如圖所示。存盤時,工程文件名為sjt5.vbp,窗體文件名 為sjt5.frm。
單選按鈕的Value屬性:
Value屬性用來表示單選按鈕的狀態(tài),可以取True和False兩種值,取值為True時,單選按鈕是"打開"的,按鈕中心有一個圓點;取值為False時,單選按鈕是"關(guān)閉"的,按鈕是一個圓圈。
設(shè)置單選按鈕Value屬性的語法是:
單選按鈕名.Value = True(-1)或False(0)
由于Value屬性是單選按鈕的缺省屬性,因此在設(shè)置該屬性的值的時候,可以省略屬性名。
解題方法:
打開工程文件sjt5.vbp,點擊工具箱中的Frame控件圖標,然后在窗體上拖拉出兩個框架,通過屬性窗口分別設(shè)置其Name屬性為"F1"和"F2",Caption屬性為"交通工具"和"到達目標"。
點擊工具箱中的OptionButton控件圖標,然后在F1中拖拉出兩個單選按鈕,通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2",Caption屬性為"飛機"和"火車"。
點擊工具箱中的OptionButton控件圖標,然后在F2中拖拉出兩個單選按鈕,通過屬性窗口分別設(shè)置其Name屬性為"Op3"和"Op4",Caption屬性為"廣州"和"昆明"。
點擊工具箱中的TextBox控件圖標,然后在窗體上拖拉出一個文本框。
打開代碼窗口,輸入如下的代碼:
Private Sub Form_Click()
If Op1.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐飛機去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐飛機去昆明"
End If
ElseIf Op2.Value = True Then
If Op3.Value = True Then
Text1.Text = "坐火車去廣州"
ElseIf Op4.Value = True Then
Text1.Text = "坐火車去昆明"
End If
End If
End Sub
第7題:
在考生文件夾下有一個工程文件sjt6.vbp,請在窗體上畫三個文本框,其 名稱分別為Text1、Text2和Text3,文本框內(nèi)容分別設(shè)置為"等級考試"、 "計算機"和空白。然后畫兩個單選按鈕,其名稱分別為Op1和Op2,標題 分別為"交換"和"連接"(如圖所示),編寫適當?shù)氖录绦?。程序運 行后,如果選中"交換"單選按鈕并單擊Text3文本框,則Text1文本框中 內(nèi)容與Text2文本框中內(nèi)容進行交換,并在Text3文本框中顯示"交換成 功";如果選中"連接"單選按鈕并單擊 Text3 文本框,則把 Text1 和 Text2的內(nèi)容按Text1、Text2的順序連接起來,并在Text3文本框中顯示連 接后的內(nèi)容。存盤時,工程文件名為sjt6.vbp,窗體文件名為sjt6.frm。
解題方法:
打開工程文件sjt6.vbp,點擊工具箱中的TextBox控件圖標,然后在窗體上拖拉出三個文本框,通過屬性窗口分別設(shè)置其Text屬性為"等級考試"、"計算機"和""。
點擊工具箱中的OptionButton控件圖標,然后在窗體中拖拉出兩個單選按鈕,通過屬性窗口分別設(shè)置其Name屬性為"Op1"和"Op2",Caption屬性為"交換"和"連接"。
打開代碼窗口,輸入如下的代碼:
Private Sub Text3_Click()
If Op1.Value Then
Text1.Text = "計算機"
Text2.Text = "等級考試"
Text3.Text = "交換成功"
Else
Text3.Text = Text1.Text + Text2.Text
End If
End Sub
第8題:
在Form1的窗體上畫一個文本框,其名稱為Text1;再畫兩個命令按鈕,
其名稱分別為C1和C2,標題分別為"顯示"和"退出",編寫適當?shù)氖录?過程。程序運行后,在窗體加載時使"退出"按鈕不可用,如果單擊"顯 示"按鈕,則在文本框中顯示"等級考試",并使"退出"按鈕可用,此 時如果單擊"退出"按鈕,則結(jié)束程序,程序運行情況如圖所示。
解題方法:
新建一個名為Form1的窗體,點擊工具箱中的CommandButton控件圖標,然后在窗體上拖拉出兩個命令按鈕,通過屬性窗口分別設(shè)置其Name屬性為"C1"和"C2",Caption屬性為"顯示"和"退出"。
點擊工具箱中的TextBox控件圖標,然后在窗體上拖拉出一個文本框。
打開代碼窗口,輸入如下的代碼:
Private Sub C1_Click()
C2.Enabled = True
Text1.Text = "等級考試"
End Sub
Private Sub C2_Click()
End
End Sub
第9題:
在Form1的窗體上畫一個命令按鈕,其名稱為C1,標題為"顯示";再畫
一個文本框,其名稱為Text1,編寫適當?shù)氖录^程。程序運行后,在窗 體加載時使文本框不可見,如果雙擊窗體,則文本框出現(xiàn);此時如果單擊 命令按鈕,則在文本框中顯示"等級考試"。程序運行情況如圖所示。
解題方法:
新建一個名為Form1的窗體,點擊工具箱中的CommandButton控件圖標,然后在窗體上拖拉出一個命令按鈕,通過屬性窗口設(shè)置其Name屬性為"C1",Caption屬性為"顯示"。
點擊工具箱中的TextBox控件圖標,然后在窗體上拖拉出一個文本框。
打開代碼窗口,輸入如下的代碼:
Private Sub C1_Click()
Text1.Text = "等級考試"
End Sub
Private Sub Form_DblClick()
Text1.Visible = True
End Sub
Private Sub Form_Load()
Text1.Visible = False
End Sub
第10題:
在窗體上畫一個文本框,其名稱為Text1,Text屬性為空白。再畫一個命 令按鈕,其名稱為C1,Visible屬性為False。編寫適當?shù)氖录^程。程序 運行后,如果在文本框中輸入字符,則命令按鈕出現(xiàn)。程序運行情況如圖 所示。
解題方法:
新建一個窗體,點擊工具箱中的TextBox控件圖標,然后在窗體上拖拉出一個文本框,通過屬性窗口設(shè)置其Text屬性為""。
點擊工具箱中的CommandButton控件圖標,然后在窗體上拖拉出一個命令按鈕,通過屬性窗口設(shè)置其Name屬性為"C1",Visible屬性為False。
打開代碼窗口,輸入如下的代碼:
Private Sub Text1_Change()
C1.Visible = True
End Sub
按要求保存文件即完成本題。
2021-07-09
2021-07-08
2021-07-08
2021-07-08
2021-07-08
2021-07-08
2021-07-07
2021-07-07
2021-07-07
2021-07-07
2021-07-07
2021-07-06
2021-07-06
2021-07-06
工作態(tài)度怎么寫 具有穩(wěn)定的工作心態(tài)
2021-07-06
該文觀點僅代表作者本人,查查吧平臺系信息發(fā)布平臺,僅提供信息存儲空間服務(wù),不承擔相關(guān)法律責任。圖片涉及侵權(quán)行為,請發(fā)送郵件至85868317@qq.com舉報,一經(jīng)查實,本站將立刻刪除。