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過(guò)程:
Sub sfun ( x As Single, y As Single)
t = x
x = t/y
y = t Mod y
End Sub
在窗體上添加一個(gè)命令按鈕(名為Command1),然后編寫如下事件過(guò)程:
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
打開(kāi)窗體運(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.下列過(guò)程的功能是:通過(guò)對(duì)象變量返回當(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è)有如下窗體單擊事件過(guò)程:
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
打開(kāi)窗體運(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ī)等級(jí)考試試題及答案
2013年計(jì)算機(jī)等級(jí)考試備考精華資料匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |