第 1 頁:選擇題 |
第 5 頁:基本操作 |
第 6 頁:簡(jiǎn)單應(yīng)用題 |
第 7 頁:綜合應(yīng)用題 |
二、基本操作題
41
請(qǐng)根據(jù)以下各小題的要求設(shè)計(jì)Visual Basic應(yīng)用程序(包括界面和代碼)。
(1)在名稱為Form1的窗體上創(chuàng)建兩個(gè)名稱分別為Option1和Option2,標(biāo)簽分別為"教授"和"研究員"的單選按鈕,再建立一個(gè)名稱為Label1的標(biāo)簽,實(shí)現(xiàn)如下功能:
當(dāng)選中"教授"時(shí),標(biāo)簽上顯示"博士學(xué)位以上",如果選中"研究員",則標(biāo)簽上顯示"碩士學(xué)位以上",結(jié)果如圖1-1所示。
圖1-1
注意:存盤時(shí)必須存放在考生文件夾下,工程文件名為sj1.vbp,窗體文件名為sj1.frm。
(2)在名稱為Form1的窗體上畫兩個(gè)名稱分別為Text1和Text2、內(nèi)容都為空的文本框,再畫一個(gè)命令按鈕,其名稱為Command1,標(biāo)題為"判斷",編寫適當(dāng)?shù)氖录^程。要求程序運(yùn)行后,如果在Text1中輸入一個(gè)數(shù),單擊命令按鈕Command1,判斷輸入的是否為偶數(shù),如圖1-2所示。要求:不得使用任何變量。
圖1-2
注意:存盤時(shí)必須存放在考生文件夾下,工程文件名為sj2.vbp,窗體文件名為sj2.frm。
參考答案:請(qǐng)參考解析 系統(tǒng)解析:(1)根據(jù)題意,新建"標(biāo)準(zhǔn)EXE"工程,在窗體上添加一個(gè)Label控件和兩個(gè)Option控件,設(shè)置Label1的名稱為Label1、Caption屬性為空,Option的名稱分別為Option1和Option2、Caption屬性分別為"教授"和"研究員"。設(shè)計(jì)完成后,進(jìn)入代碼窗口編寫如下代碼:
Private Sub Form_Load()
Option1.Value = True '初始化,使運(yùn)行時(shí)Option1為選擇狀態(tài)
Label1.Caption = "博士學(xué)位以上" '在Label1中顯示"博士學(xué)位以上"
End Sub
Private Sub Option1_Click()
Label1.Caption = "博士學(xué)位以上"
End Sub
Private Sub Option2_Click()
Label1.Caption = "碩士學(xué)位以上"
End Sub
單擊
按鈕運(yùn)行程序,并按要求保存。
(2)根據(jù)題意,新建"標(biāo)準(zhǔn)EXE"工程,在窗體上添加兩個(gè)Text控件和一個(gè)Command控件,Text的名稱分別為Text1和Text2、Text屬性均為空,Command的名稱為Command1、Caption屬性為"判斷"。雙擊Command1命令按鈕,編寫如下代碼:
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Text2.Text = "是偶數(shù)"
Else
Text2.Text = "不是偶數(shù)"
End If
End Sub
單擊
按鈕運(yùn)行程序,并按要求保存。
相關(guān)推薦:
2014年全國計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |