9、【
单选题
】 在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
a = 12345
Print Format$(a, "000.00")
End Sub
程序运行后，单击命令按钮，窗体上显示的是
[2分]
、
123.45
、
12345.00
、
12345
、
00123.45
答案：
10、【
单选题
】 以下叙述中错误的是
[2分]
、
一个工程可以包括多种类型的文件
、
Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
、
程序运行后，在内存中只能驻留一个窗体
、
对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
答案：
11、【
单选题
】 以下关于函数过程的叙述中，正确的是
[2分]
、
函数过程形参的类型与函数返回值的类型没有关系
、
在函数过程中，过程的返回值可以有多个
、
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
、
如果不指明函数过程参数的类型，则该参数没有数据类型
答案：
12、【
单选题
】 以下关于变量作用域的叙述中，正确的是
[2分]
、
窗体中凡被声明为Private的变量只能在某个指定的过程中使用
、
全局变量必须在标准模块中声明
、
模块级变量只能用Private关键字声明
、
Static类型变量的作用域是它所在的窗体或模块文件
答案：
13、【
单选题
】 确定一个控件在窗体上的位置的属性是
[2分]
、
Width和Height
、
Width或Height
、
Top和Left
、
Top或Left
答案：
14、【
单选题
】 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text = "Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
[2分]
、
Visual
、
Basic
、
Program
、
出错
答案：
15、【
单选题
】 以下关系表达式中，其值为False的是
[2分]
、
"ABC">"AbC"
、
"the"<>"they"
、
"VISUAL"=UCase("Visual")
、
"Integer">"Int"
答案：
16、【
单选题
】 语句Print 5/4*6\5 Mod 2的输出结果是
[2分]
、
0
、
1
、
2
、
3
答案：
17、【
单选题
】 在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
strText = InputBox("请输入")
Text1.Text = strText
End Sub
Private Sub Text1_Change()
Label1.Caption = Right(Trim(Text1.Text), 3)
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是
[2分]
、
空
、
abcdef
、
abc
、
def
答案：
18、【
单选题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x = -5
If Sgn(x) Then
y = Sgn(x ^ 2)
Else
y = Sgn(x)
End If
Print y
End Sub
程序运行后，单击命令按钮，窗体上显示的是
[2分]
、
-5
、
25
、
1
、
-1
答案：
19、【
单选题
】 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是
[2分]
21、【
单选题
】 在窗体上画一个命令按钮（其NAME属性为Command1），然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
s = 0
a = Array(1,2,3,4)
j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是
[3分]
、
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 65 Or KeyAscii > 90 Then
MsgBox "请输入大写字母"
KeyAscii = 0
End If
End Sub
、
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode < 65 Or KeyCode > 90 Then
MsgBox "请输入大写字母"
KeyCode = 0
End If
End Sub
、
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Asc(Text1.Text) < 65 Or Asc(Text1.Text) > 90 Then
MsgBox "请输入大写字母"
End If
End Sub
、
Private Sub Text1_Change()
If Asc(Text1.Text) > 64 And Asc(Text1.Text) < 91 Then
MsgBox "请输入大写字母"
End If
End Sub
答案：
23、【
单选题
】 假定在窗体（名称为Form1）的代码窗口中定义如下记录类型：
Private Type animal
AnimalName As String*20
AColor As String*10
End Type
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
Dim rec As animal
Open "c:\vbTest.dat" For Random As #1 Len = Len(rec)
rec.animalName = "Cat"
rec.aColor = "White"
Put #1, , rec
Close #1
End Sub
则以下叙述中正确的是
[3分]
、
记录类型animal不能在Form1中定义，必须在标准模块中定义
、
如果文件c:\vbTest.dat不存在，则Open命令执行失败
、
由于Put命令中没有指明记录号，因此每次都把记录写到文件的末尾
、
语句“Put #1, , rec”将animal类型的两个数据元素写到文件中
答案：
24、【
单选题
】 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
If n\2 = n/2 Then
f = f1(n)
Else
f = f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(ByVal x)
x=x*x
f2=x+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
[3分]
、
72 36
、
108 36
、
72 6
、
108 6
答案：
25、【
单选题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:
Private Sub Command1_Click()
c = 1234
c1 = Trim(Str(c))
For i = 1 To 4
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容
1
12
123
1234
则在下划线处应填入的内容为
[3分]
、
Right(c1,i)
、
Left(c1,i)
、
Mid(c1,i,1)
、
Mid(c1,i,i)
答案：
26、【
单选题
】 在以下描述中正确的是
[3分]
、
标准模块中的任何过程都可以在整个工程范围内被调用
、
在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程
、
如果工程中包含Sub Main过程，则程序将首先执行该过程
、
如果工程中不包含Sub Main过程，则程序一定首先执行第一个建立的窗体
答案：
27、【
单选题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function f(m As Integer)
If m Mod 2 = 0 Then
f = m
Else
f = 1
End If
End Function
Private Sub Command1_Click()
Dim i As Integer
s = 0
For i = 1 To 5
s = s + f(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是
[3分]
、
11
、
10
、
9
、
8
答案：
28、【
单选题
】 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10, 10) As Integer
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 2 To 4
array1(i, j) = i + j
Next j
Next i
Text1.Text = array1(2, 3) + array1(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
[3分]
、
15
、
14
、
13
、
12
答案：
29、【
单选题
】 在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：
Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i) = Text1(i).Index
i = i + 1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为
[3分]
、
0 1 2 3
、
1 2 3 4
、
0 1 3 2
、
出错信息
答案：
30、【
填空题
】 Visual Basic应用程序中标准模块文件的扩展名是
。
[每空2分]
答案：[".bas"]
31、【
填空题
】 在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form
(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button=2 Then
mnuEdit
End If
End Sub
[每空2分]
35、【
填空题
】 在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请填空。
Private Sub Option1_Click(Index As Integer)
Select Case
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1.
=a
End Sub
[每空2分]
答案：["index","font"]
36、【
填空题
】 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap（
）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b() As Integer)
n =
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
[每空2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00