2014年計(jì)算機(jī)二級(jí)考試VB專家預(yù)測(cè)試卷及答案1

　　二、基本操作題

　　(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)簽的名稱為L(zhǎng)abel1、Caption屬性為“0”，Timer的名稱為Timer1、Interval屬性為“1 000”。設(shè)置完成后雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：

　　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è)命令按鈕添加到窗體中，文本框的名稱為Text1、Text屬性為空，命令按鈕的名稱為Command1、Caption屬性為“當(dāng)前時(shí)間/日期切換”。雙擊Command1進(jìn)入代碼窗口，編寫如下代碼：

　　Dim i As Integer

　　Private Sub Command1Click()

　　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)推薦：

　　2014年計(jì)算機(jī)等級(jí)考試時(shí)間調(diào)整通知

　　2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總

　　2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)預(yù)測(cè)題及答案匯總

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