设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(30)As IntegerFor i=1 To 30a(i)=Int(Rnd*100)NextFor Each arrItem In aIf arrItem Mod 7=0 Then Print arrItem；If arrItem>90 Then Exit ForNextEnd Sub对于该事件过程，以下叙述中错误的是。

试卷相关题目

• 1在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1，3y=x*xCase Is>=10，Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。

  A.执行y=x*x

  B.执行y=-x

  C.先执行y=x*x，再执行y=-x

  D.程序出错

  开始考试点击查看答案
• 2假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Command1_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：”，，”输入数据："+xEnd Sub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。

  A.x的值是数值10

  B.输入对话框的标题是“输入整数”

  C.信息框的标题是“输入数据：10”

  D.信息框中显示的是“输入的数据是：”

  开始考试点击查看答案
• 3设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是。

  A.Print A=x+y

  B.Print"A=";x+y

  C.Print "A="+Str(x+y)

  D.Print"A="&x+y

  开始考试点击查看答案
• 4以下可以作为Visual Basic变量名的是。

  A.A#A

  B.counstA

  C.3A

  D.、AA

  开始考试点击查看答案
• 5设a=4，b=3，c=2，d=1，下列表达式的值是。a>b+1 Or c< Mod b And>

  A.True

  B.1

  C.-1

  D.0

  开始考试点击查看答案
• 6设有命令按钮Command1的单击事件过程，代码如下：Private Sub Command1_Click()Dim a(3，3)As IntegerFor i=1 To 3For j=1 To 3a(i，j)=i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i，4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是。

  A.20

  B.7

  C.16

  D.17

  开始考试点击查看答案
• 7在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 2For j=1 To 4If j Mod 2<>0 Thena=a-1End Ifa=a+1Next jNext iPrint aEnd Sub程序运行后，单击命令按钮，输出结果是。

  A.0

  B.2

  C.3

  D.4

  开始考试点击查看答案
• 8在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()Dim a(10)As IntegerDim x As IntegerFor i=1 To 10a(i)=8+iNextx=2Print a(f(x)+x)End SubFunction f(x As Integer)x=x+3f=xEnd Function程序运行后，单击命令按钮，输出结果为。

  A.12

  B.15

  C.17

  D.18

  开始考试点击查看答案
• 9以下关于过程的叙述中，错误的是。

  A.事件过程是由某个事件触发而执行的过程

  B.函数过程的返回值可以有多个

  C.可以在事件过程中调用通用过程

  D.不能在事件过程中定义函数过程

  开始考试点击查看答案
• 10窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(、)处应填入的内容是。Private Sub Text1_LostFocus()Call CheckInput(Text1，500)End SubPrivate Sub Text2_LostFocus()Call CheckInput(Text2，1000)End SubSub CheckInput(t As 、，x As Integer)If Val(t.Text)>x ThenMsgBox"请重新输入!"End IfEnd Sub

  A.Text

  B.SelText

  C.Control

  D.Form

  开始考试点击查看答案