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分]
、
x没有实际作用，因此可以将该语句写为：Call Shell(File1,FileName,1)
、
双击文件列表框中的文件，将触发该事件过程
、
要执行的文件的名字通过File1.FileName指定
、
File1中显示的是当前驱动器、当前目录下的文件
答案：
26、【
单选题
】 在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500，如图所示。
编写如下程序：
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分]
答案：["3"]
31、【
填空题
】 本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图所示。程序运行后，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。
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分]
答案：["t","a(3)","a(1)"]
33、【
填空题
】 在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画7个标签，其中5个标签组成名称为Label1的控件数组;名称为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签Label3的标题为“计算结果”。运行程序时会自动生成5个随机数，分别显示在标签控件数组的各个标签中，如图所示。
单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在Label2。请填空。
Private Sub Command1_Click()
Sum = 0
For i = 0 To 4
Sum = Sum +
Next
= Sum
End Sub
[每空2分]
答案：["label1(i).caption","label2.caption"]
34、【
填空题
】 在窗体上画两个名称分别为Command1和Command2、标题分别为“初始化”和“求和”的命令按钮。程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如图所示。请填空。
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分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00