5、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
x=InputBox("Input")
Select Case x
Case 1,3
Print "分支 1"
Case Is >4
Print "分支 2"
Case Else
Print "Else 分支 "
End Select
End Sub
程序运行后,如果在输入对话框中输入2,则窗体上显示的是
[2分]
8、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Static x As Integer
Cls
For i=1 To 2
y=y+x
x=x+2
Next
Print x,y
End Sub
程序运行后,连续三次单击Command1按钮后,窗体上显示的是
[2分]
、
4 2
、
12 18
、
12 30
、
4 6
答案:
9、【
单选题
】 以下关于多重窗体程序的叙述中,错误的是
[2分]
、
用Hide方法不但可以隐藏窗体,而且能清除内存中的窗体
、
在多重窗体程序中,各窗体的菜单是彼此独立的
、
在多重窗体程序中,可以根据需要指定启动窗体
、
对于多重窗体程序, 需要单独保存每个窗体
答案:
10、【
单选题
】 以下关于文件的叙述中,错误的是
[2分]
、
顺序文件中的记录一个接一个地顺序存放
、
随机文件中记录的长度是随机的
、
执行打开文件的命令后,自动生成一个文件指针
、
LOF函数返回给文件分配的字节数
答案:
11、【
单选题
】 以下叙述中错误的是
[2分]
、
事件过程是响应特定事件的一段程序
、
不同的对象可以具有相同名称的方法
、
对象的方法是执行指定操作的过程
、
对象事件的名称可以由编程者指定
答案:
12、【
单选题
】 以下合法的Visual Basic标识符是
[2分]
、
ForLoop
、
Const
、
9abc
、
a#x
答案:
13、【
单选题
】 当一个复选框被选中时,它的Value属性的值是
[2分]
、
3
、
2
、
1
、
0
答案:
14、【
单选题
】 表达式 5 Mod 3+3\5*2的值是
[2分]
、
0
、
2
、
4
、
6
答案:
15、【
单选题
】 设x=4,y=8,z=7,以下表达式的值是
x<y And (Not y>z) Or z<x
[2分]
、
1
、
-1
、
True
、
False
答案:
16、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a$="VisualBasic"
Print String(3,a$)
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
[2分]
、
VVV
、
Vis
、
sic
、
11
答案:
17、【
单选题
】 设有如下程序段:
x=2
For i=1 To 10 Step 2
x=x+i
Next
运行以上程序后,x的值是
[2分]
20、【
单选题
】 设一个工程由两个窗体组成,其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下:
Private Sub Command1_Click()
Dim a As Integer
a=10
Call g(Form2,a)
End Sub
Private Sub g(f As Form,x As Integer)
y=IIf(x>10,100,-100)
f,Show
f.Caption=y
End Sub
运行以上程序,正确的结果是
[3分]
、
Form1的Caption属性值为100
、
Form2的Caption属性值为-100
、
Form1的Caption属性值为-100
、
Form2的Caption属性值为100
答案:
21、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,并编写如下程序:
Private Sub Command1_Click()
Dim x As Integer
Static y As Integer
x=10
y=5
Call f1(x,y)
Print x,y
End Sub
Private Sub f1(ByRef x1 As Integer, y1 As Integer)
x1=x1+2
y1=y1+2
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
[3分]
、
10 5
、
12 5
、
10 7
、
12 7
答案:
22、【
单选题
】 设有如下程序
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
Dim n As Integer
n=InputBox("输入数据")
If n<10 Then
Call GetArray(a,n)
End If
End Sub
Private Sub GetArray(b() As Integer,n As Integer)
Dim c(10) As Integer
j=0
For i=1 To n
b(i)=CInt(Rnd()*100)
If b(i)/2=b(i)\2 Then
j=j+1
c(j)=b(i)
End If
Next
Print j
End Sub
以下叙述中错误的是
[3分]
、
数组b中的偶数被保存在数组c中
、
程序运行结束后,在窗体上显示的是c数组中元素的个数
、
GetArray过程的参数n是按值传送的
、
如果输入的数据大于10,则窗体上不显示任何显示
答案:
23、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a
a= Array(1,2,3,4,5)
For i=1 To UBound(a)
a(i) = a(i)+i-1
Next
Print a(3)
End Sub
程序运行后,单击命令按钮,则在窗体上显示的内容是
[3分]
、
4
、
5
、
6
、
7
答案:
24、【
单选题
】 阅读程序
Option Base 1
Private Sub Form_Click()
Dim arr,Sum
Sum = 0
arr = Array(1,3,5,7,9,11,13,15,17,19)
For i=1 To 10
If arr(i)/3 = arr(i)\3 Then
Sum = Sum + arr(i)
End If
Next i
Print Sum
End Sub
程序运行后,单击窗体,输出结果为
[3分]
、
13
、
14
、
27
、
15
答案:
25、【
单选题
】 在窗体上画一个名称为File1的文件列表框,并编写如下程序:
Private Sub File1_DblClick()
x=Shell(File1.FileName,1)
End Sub
以下关于该程序的叙述中,错误的是
[3分]
编写如下程序:
Private Sub Form_Load()
Timer1.Enabled=False
End Sub
Private Sub Command1_Click()
Timer1.Enabled=True
End Sub
Private Sub Command2_Click()
Timer1.Enabled=False
End Sub
Private Sub Timer1_Timer()
If Label1.Left<Width Then
Label1.Left = Label1.Left + 20
Else
Label1.Left=0
End If
End Sub
程序运行后单击“开始”按钮,标签在窗体中移动。
对于这个程序,以下叙述中错误的是
[3分]
、
标签的移动方向为自右向左
、
单击“停止”按钮后再单击“开始”按钮,标签从停止的位置继续移动
、
当标签全部移出窗体后,将从窗体的另一端出现并重新移动
、
标签按指定的时间间隔移动
答案:
27、【
单选题
】 执行以下程序段
a$="abbacddcba"
For i=6 To 2 Step -2
X=Mid(a,i,i)
Y=Left(a,i)
z=Right(a,i)
z=UCase(X & Y & z)
Next i
Print z
输出结果为
[3分]
、
ABA
、
BBABBA
、
ABBABA
、
AABAAB
答案:
28、【
单选题
】 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For i=1 To 5
Sum = sum+a(i)
Next i
x=Sum/5
For i =1 To 5
If a(i)>x Then Print a(i);
Next i
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容是
[3分]
、
1 2
、
1 2 3
、
3 4 5
、
4 5
答案:
29、【
单选题
】 假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
Model1代码如下:
Public x As Integer
Public y As Integer
Sub S1()
x =1
S2
End Sub
Sub S2()
y=10
Form1.Show
End Show
Model2的代码如下:
Sub Main()
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后,各模块的执行顺序是
[3分]
、
Form1→Model1→Model2
、
Model1→Model2→Form1
、
Model2→Model1→Form1
、
Model2→Form1→Model1
答案:
30、【
填空题
】 以下程序段的输出结果是
。
num =0
While num<=2
num = num + 1
Wend
Print num
[每空2分]
Private Sub Command1_Click()
Randomize
n = CInt(Text1.Text)
n1 = 0
n2 = 0
For I = 1 To
r = Int(Rnd*2)
If r =
Then
n1 = n1 + 1
Else
n2 = n2 + 1
End If
Next
Text2.Text = n1
Text3.Text = n2
End Sub
[每空2分]
答案:["n","1"]
32、【
填空题
】 阅读程序:
Option Base 1
Private Sub Form_Click()
Dim a(3) As Integer
Print "输入的数据是:";
For i = 1 To 3
a(i)=InputBox("输入数据")
Print a(i);
Next
Print
If a(1)<a(2) Then
t = a(1)
a(1) = a(2)
a(2) =
End If
If a(2)>a(3) Then
m = a(2)
ElseIf a(1)>a(3) Then
m =
Else
m =
End If
Print "中间数是:";m
End Sub
程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。
[每空2分]
Option Base 1
Dim a(3,2) As Integer
Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 2
= i + j
Next j
Next i
End Sub
Private Sub Command2_Click()
For j = 1 To 3
For i = 1 To 2
s = s +
Next i
Next j
Text1.Text =
End Sub
[每空2分]