(25)下列关于对象“更新前”事件的叙述中,正确的是
A)在控件或记录的数据变化后发生的事件
B)在控件或记录的数据变化前发生的事件
C)当窗体或控件接收到焦点时发生的事件
D)当窗体或控件失去了焦点时发生的事件
(26)下列属于通知或警告用户的命令是
A)PrintOut
B)OutputTo
C)MsgBox
D)RunWarnings
(27)能够实现从指定记录集里检索特定字段值的函数是
A)Nz
B)Find
C)Lookup
D)DLookup
(28)如果X是一个正的实数,保留两位小数、将千分位四舍五入的表达式是
A)0.01*Int(x+0.05)
B)0.01*Int(100*(X+0.005))
C)0.01*Int(x+0.005)
D)0.01*Int(100*(X+0.05))
(29)在模块的声明部分使用“Option Base 1”语句,然后定义二维数组A(2 to 5,5),则该数组的元素个数为
A)20
B)24
C)25
D)36
(30)由“For i=1 To 9 Step -3”决定的循环结构,其循环体将被执行
A)0次
B)1次
C)4次
D)5次
(31)在窗体上有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
Private Sub Command1_Click()
Dim i,j,x
For i = 1 To 20 step 2
x = 0
For j = To 20 step 3
x = x + 1
Next j
Next i
Textl.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的结果是
A)1
B)7
C)17
D)400
(32)在窗体上有一个命令按钮Commandl,编写事件代码如下:
Private Sub Commandl_Click()
Dim y As Integer
y = 0
Do
y = InputBox("y=")
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;
Loop Until y = 0
End Sub
打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是
A)37 55 64 28 19 19
B)10 50 20
C)10 50 20 0
D)37 55 64 28 19
(33)在窗体上有一个命令按钮Commandl,编写事件代码如下: