點擊查看：2015年9月計算機二級《VB》考前沖刺試卷匯總

　　一、基本操作題

　　1(1)在名稱為Form1的窗體中畫一個名稱為Label1的標簽，其標題為"0"，BorderStyle屬性為1：再添加一個名稱為Timer1的計時器。請設置適當的控件屬性，并編寫適當的事件過程，使得運行時，標簽中的數字每隔1秒鐘加2。程序運行效果如圖8-1所示。

　　圖8-1

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

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

　　圖8-2

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

　　參考解析：

　　(1)計時器的Interval屬性用于設置每次觸發計時器的Timer事件的時間間隔，單位為毫秒。Enabled屬性控制計時器是否開始啟用，True表示啟用，False表示不啟用。

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

　　Private Sub Timer1_Timer()

　　Label1.Caption = Val(Label1.Caption) + 2 '每過一個間隔計數加2

　　End Sub

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

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

　　Dim i As Integer

　　Private Sub Command1_Click()

　　If i = 0 Then

　　Text1.Text = Date

　　i = 1 '顯示標識，1表示顯示的是日期

　　Else

　　Text1.Text = Time

　　i = 0 '0表示顯示的是時間

　　End If

　　End Sub

　　Private Sub Form_Load()

　　Text1.Text = Time

　　i = 0

　　End Sub

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

　　相關推薦：

　　2015年計算機二級考試《VB》考前練習題匯總

　　2015年計算機二級考試《VB》考前預測試卷匯總

　　2015計算機二級考試《VB》模擬練習題及解析匯總