點(diǎn)擊查看：2015年9月計(jì)算機(jī)二級《VB》考前沖刺試卷匯總

　　一、基本操作題

　　1(1)在名稱為Form1的窗體中畫一個(gè)名稱為Label1的標(biāo)簽，其標(biāo)題為"0"，BorderStyle屬性為1：再添加一個(gè)名稱為Timer1的計(jì)時(shí)器。請?jiān)O(shè)置適當(dāng)?shù)目丶䦟傩�，并編寫適當(dāng)?shù)氖录^程，使得運(yùn)行時(shí)，標(biāo)簽中的數(shù)字每隔1秒鐘加2。程序運(yùn)行效果如圖8-1所示。

　　圖8-1

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

　　(2)在窗體上設(shè)置一個(gè)文本框，名稱為Text1，再添加一個(gè)命令按鈕，名稱為Command1，標(biāo)題為"當(dāng)前時(shí)間/日期切換";每次單擊按鈕時(shí)，Text1就顯示出當(dāng)前時(shí)間，再單擊一次，Text1就顯示當(dāng)前日期。請編寫相應(yīng)的程序代碼來完成這個(gè)功能。程序運(yùn)行時(shí)的窗體界面如圖8-2所示。

　　圖8-2

　　注意：要求考生在編寫完程序后，把工程文件與窗體文件保存到考生文件夾下，文件名分別為sj2.vbp與sj2.frm。

　　參考解析：

　　(1)計(jì)時(shí)器的Interval屬性用于設(shè)置每次觸發(fā)計(jì)時(shí)器的Timer事件的時(shí)間間隔，單位為毫秒。Enabled屬性控制計(jì)時(shí)器是否開始啟用，True表示啟用，F(xiàn)alse表示不啟用。

　　根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)標(biāo)簽和一個(gè)計(jì)時(shí)器控件添加到窗體中，標(biāo)簽的名稱為Label1、Caption屬性為“0”，Timer的名稱為Timer1、Interval屬性為1000。設(shè)置完成后雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：

　　Private Sub Timer1_Timer()

　　Label1.Caption = Val(Label1.Caption) + 2 '每過一個(gè)間隔計(jì)數(shù)加2

　　End Sub

　　單擊按鈕運(yùn)行程序，并按要求保存。

　　(2)根據(jù)題意，新建“標(biāo)準(zhǔn)EXE”工程，將一個(gè)文本框控件和一個(gè)命令按鈕添加到窗體中，文本框的名稱為Text1、Text屬性為空，命令按鈕的名稱為Command1、Caption屬性為“當(dāng)前時(shí)間/日期切換”。雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：

　　Dim i As Integer

　　Private Sub Command1_Click()

　　If i = 0 Then

　　Text1.Text = Date

　　i = 1 '顯示標(biāo)識，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ī)二級考試《VB》考前練習(xí)題匯總

　　2015年計(jì)算機(jī)二級考試《VB》考前預(yù)測試卷匯總

　　2015計(jì)算機(jī)二級考試《VB》模擬練習(xí)題及解析匯總