A)result(x)= "偶數(shù)"

　　B)result(x)

　　C)result(x)= "奇數(shù)"

　　D)NOT result(x)

　　9.窗體加載事件如下：

　　Private Sub Form_Load( )

　　b = 1

　　Do While b < 15

　　b = b * 2

　　Loop

　　MsgBox b

　　End Sub

　　此程序運(yùn)行結(jié)果為( )。答案：A

　　A)16

　　B)15

　　C)14

　　D)13

　　10.假定有如下Sub過程：

　　Sub sfun ( x As Single, y As Single)

　　t = x

　　x = t/y

　　y = t Mod y

　　End Sub

　　在窗體上添加一個(gè)命令按鈕(名為Command1)，然后編寫如下事件過程：

　　Private Sub Command1_Click()

　　Dim a as single

　　Dim b as single

　　a = 5

　　b = 4

　　sfun a,b

　　MsgBox a & chr(10)+chr(13)& b

　　End Sub

　　則單擊按鈕后的輸出結(jié)果是( )。答案：B

　　A)1和1

　　B)1.25和1

　　C)1.25和4

　　D)5和4

　　11.在窗體中有一個(gè)文本框Text1，編寫事件代碼如下：

　　Private Sub Form_Click()

　　X=val(Inputbox("輸入x的值"))

　　Y=1

　　If X<>0 Then Y = 2

　　Text1.Value = Y

　　End Sub

　　打開窗體運(yùn)行后，在輸入框中輸入整數(shù)12，文本框Text1中輸出的結(jié)果是( )。答案：B

　　A)1

　　B)2

　　C)3

　　D)4

　　12.VBA“定時(shí)”操作中，需要設(shè)置窗體的“計(jì)時(shí)器間隔(TimerInterval)”屬性值。其計(jì)量單位是( )。答案：B

　　A)微秒

　　B)毫秒

　　C)秒

　　D)分鐘

　　13.下列過程的功能是：通過對象變量返回當(dāng)前窗體的Recordset屬性記錄集引用，消息框中輸出記錄集的記錄(即窗體記錄源)個(gè)數(shù)。

　　Sub GetRecNum()

　　Dim rs As Object

　　Set rs = Me.Recordset

　　MsgBox

　　End Sub

　　程序空白處應(yīng)填寫的是( )。答案：D

　　A)Count

　　B)rs.Count

　　C)RecordCount

　　D)rs.RecordCount

　　14.InputBox函數(shù)的返回值類型是( )。答案：D

　　A)數(shù)值

　　B)字符串

　　C)變體

　　D)數(shù)值或字符串(視輸入的數(shù)據(jù)而定)

　　15.設(shè)有如下窗體單擊事件過程：

　　Private Sub Form_Click()

　　a = 1

　　For i= 1 To 6

　　Select Case i

　　Case 1,3,5

　　a= a+1

　　Case 2,4,6

　　a = a+2

　　End Select

　　Next i

　　MsgBox a

　　End Sub

　　打開窗體運(yùn)行后，單擊窗體，則消息框的輸出的結(jié)果是( )。答案：C

　　A)8

　　B)6

　　C)10

　　D)9

　　16.運(yùn)行下列程序，輸入數(shù)據(jù)8、9、3、0后，窗體中顯示的結(jié)果是( )。

　　Private Sub Form_click()

　　Dim sum As Integer,m As Integer

　　sum=0

　　Do

　　m=InputBox("輸入m")

　　sum=sum+m

　　Loop Until m=0

　　MsgBox sum

　　End Sub答案：C

　　A)0

　　B)17

　　C)20

　　D)21

編輯推薦：

考試吧考后首發(fā)2013年9月計(jì)算機(jī)等級考試試題及答案

2013年計(jì)算機(jī)等級考試備考精華資料匯總

全國計(jì)算機(jī)等級考試教材目錄（2013年版）

全國計(jì)算機(jī)等級考試考試大綱（2013年版）