假定有如下的命令按钮(名称为Command1)事件过程：Private Sub Comm-最需题库

试卷相关题目

1设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
开始考试点击查看答案
2以下可以作为Visual Basic变量名的是。
A.A#A
B.counstA
C.3A
D.、AA
开始考试点击查看答案
3设a=4，b=3，c=2，d=1，下列表达式的值是。a>b+1 Or c< Mod b And>
A.True
B.1
C.-1
D.0
开始考试点击查看答案
4以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。
A.Left
B.Mid
C.String
D.Instr
开始考试点击查看答案
5设有如下语句：Dim a，b As Integerc="VisualBasic"d=#7／20／2005#以下关于这段代码的叙述中，错误的是。
A.a被定义为Integer类型变量
B.b被定义为Integer类型变量
C.c中的数据是字符串
D.d中的数据是日期类型
开始考试点击查看答案
6在窗体上画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.程序出错
开始考试点击查看答案
7设有命令按钮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对于该事件过程，以下叙述中错误的是。
A.a数组中的数据是30个100以内的整数
B.语句For Each arrItem In a有语法错误
C.If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D.If arrItem>90……语句的作用是当数组元素的值大于90时退出For循环
开始考试点击查看答案
8设有命令按钮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
开始考试点击查看答案
9在窗体上画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
开始考试点击查看答案
10在窗体上画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
开始考试点击查看答案