在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为

试卷相关题目

• 1如果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))

  开始考试点击查看答案
• 2能够实现从指定记录集里检索特定字段值的函数是

  A.Nz

  B.Find

  C.Lookup

  D.DLookup

  开始考试点击查看答案
• 3下列属于通知或警告用户的命令是

  A.PrintOut

  B.OutputTo

  C.MsgBox

  D.RunWarnings

  开始考试点击查看答案
• 4下列关于对象“更新前”事件的叙述中，正确的是

  A.在控件或记录的数据变化后发生的事件

  B.在控件或记录的数据变化前发生的事件

  C.当窗体或控件接收到焦点时发生的事件

  D.当窗体或控件失去了焦点时发生的事件

  开始考试点击查看答案
• 5在报表设计过程中，不适合添加的控件是

  A.标签控件

  B.图形控件

  C.文本框控件

  D.选项组控件

  开始考试点击查看答案
• 6由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行

  A.0次

  B.1次

  C.4次

  D.5次

  开始考试点击查看答案
• 7在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：Private Sub Command1_Click()Dim i,j,xFor i = 1 To 20 step 2x = 0For j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是

  A.1

  B.7

  C.17

  D.400

  开始考试点击查看答案
• 8在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim y As Integery = 0Doy = InputBox("y=")If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y;Loop Until y = 0End 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

  开始考试点击查看答案
• 9在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

  A.2 32

  B.12 3

  C.2 2

  D.12 32

  开始考试点击查看答案
• 10在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim d1 As DateDim d2 As Datedl = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff(” ww”, d1, d2)End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是

  A.1

  B.2

  C.10

  D.11

  开始考试点击查看答案