二、基本操作題

　　41

　　請根據(jù)以下各小題的要求設(shè)計Visual Basic應(yīng)用程序(包括界面和代碼)。

　　(1)在名稱為Form1的窗體上創(chuàng)建兩個名稱分別為Option1和Option2，標簽分別為"教授"和"研究員"的單選按鈕，再建立一個名稱為Label1的標簽，實現(xiàn)如下功能：

　　當選中"教授"時，標簽上顯示"博士學(xué)位以上"，如果選中"研究員"，則標簽上顯示"碩士學(xué)位以上"，結(jié)果如圖1-1所示。

　　圖1-1

　　注意：存盤時必須存放在考生文件夾下，工程文件名為sj1.vbp，窗體文件名為sj1.frm。

　　(2)在名稱為Form1的窗體上畫兩個名稱分別為Text1和Text2、內(nèi)容都為空的文本框，再畫一個命令按鈕，其名稱為Command1，標題為"判斷"，編寫適當?shù)氖录�過程。要求程序運行后，如果在Text1中輸入一個數(shù)，單擊命令按鈕Command1，判斷輸入的是否為偶數(shù)，如圖1-2所示。要求：不得使用任何變量。

　　圖1-2

　　注意：存盤時必須存放在考生文件夾下，工程文件名為sj2.vbp，窗體文件名為sj2.frm。

　　參考答案:請參考解析 系統(tǒng)解析:(1)根據(jù)題意，新建"標準EXE"工程，在窗體上添加一個Label控件和兩個Option控件，設(shè)置Label1的名稱為Label1、Caption屬性為空，Option的名稱分別為Option1和Option2、Caption屬性分別為"教授"和"研究員"。設(shè)計完成后，進入代碼窗口編寫如下代碼：

　　Private Sub Form_Load()

　　Option1.Value = True '初始化，使運行時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

　　單擊

　　按鈕運行程序，并按要求保存。

　　(2)根據(jù)題意，新建"標準EXE"工程，在窗體上添加兩個Text控件和一個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

　　單擊

　　按鈕運行程序，并按要求保存。

　　相關(guān)推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發(fā)2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題