| 第 1 頁(yè)：基本操作題 |
| 第 3 頁(yè)：簡(jiǎn)單應(yīng)用題 |
| 第 5 頁(yè)：綜合應(yīng)用題 |
點(diǎn)擊查看：2015年9月計(jì)算機(jī)二級(jí)《VB》考前沖刺試卷匯總
一、基本操作題
1(1)在名稱為Form1的窗體中畫(huà)一個(gè)名稱為L(zhǎng)abel1的標(biāo)簽，其標(biāo)題為"0"，BorderStyle屬性為1：再添加一個(gè)名稱為T(mén)imer1的計(jì)時(shí)器。請(qǐng)?jiān)O(shè)置適當(dāng)?shù)目丶䦟傩�，并編�?xiě)適當(dāng)?shù)氖录^(guò)程，使得運(yùn)行時(shí)，標(biāo)簽中的數(shù)字每隔1秒鐘加2。程序運(yùn)行效果如圖8-1所示。
圖8-1
注意：存盤(pán)時(shí)必須存放在考生文件夾下，工程文件名為sj1.vbp，窗體文件名為sj1.frm。
(2)在窗體上設(shè)置一個(gè)文本框，名稱為T(mén)ext1，再添加一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"當(dāng)前時(shí)間/日期切換";每次單擊按鈕時(shí)，Text1就顯示出當(dāng)前時(shí)間，再單擊一次，Text1就顯示當(dāng)前日期。請(qǐng)編寫(xiě)相應(yīng)的程序代碼來(lái)完成這個(gè)功能。程序運(yùn)行時(shí)的窗體界面如圖8-2所示。
圖8-2
注意：要求考生在編寫(xiě)完程序后，把工程文件與窗體文件保存到考生文件夾下，文件名分別為sj2.vbp與sj2.frm。
參考解析：
(1)計(jì)時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒。Enabled屬性控制計(jì)時(shí)器是否開(kāi)始啟用，True表示啟用，F(xiàn)alse表示不啟用。
根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和一個(gè)計(jì)時(shí)器控件添加到窗體中，標(biāo)簽的名稱為L(zhǎng)abel1、Caption屬性為“0”，Timer的名稱為T(mén)imer1、Interval屬性為1000。設(shè)置完成后雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：
Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 2 '每過(guò)一個(gè)間隔計(jì)數(shù)加2
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為T(mén)ext1、Text屬性為空，命令按鈕的名稱為Command1、Caption屬性為“當(dāng)前時(shí)間/日期切換”。雙擊Command1進(jìn)入代碼窗口，編寫(xiě)如下代碼：
Dim i As Integer
Private Sub Command1_Click()
If i = 0 Then
Text1.Text = Date
i = 1 '顯示標(biāo)識(shí)，1表示顯示的是日期
Else
Text1.Text = Time
i = 0 '0表示顯示的是時(shí)間
End If
End Sub
Private Sub Form_Load()
Text1.Text = Time
i = 0
End Sub
單擊
按鈕運(yùn)行程序，并按要求保存。
相關(guān)推薦：
2015年計(jì)算機(jī)二級(jí)考試《VB》考前練習(xí)題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
