1、【
单选题
】
设有如图所示窗体和以下程序：
Private Sub Co mmand1＿Click（）
Text1．Text ＝＂Visual Basic＂
End Sub
Private Sub Text1＿LostFocus（）
If Text1．Text ＜＞＂BASIC＂Then
Text1．Text ＝＂＂
Text1．SetFocus End If
End Sub
程序运行时，在Text1文件框中输入"Basic"（如图所示），然后单击Co mmand1按钮，则产生的结果是（ ）。
[1分]
、
文本框中无内容，焦点在文本框中
、
文本框中为"Basic"，焦点在文本框中
、
文本框中为"Basic"，焦点的按钮上
、
文本框中为"Visual Basic"，焦点的按钮上
答案：
2、【
单选题
】
下列描述不正确的是（ ）。
[1分]
、
某个子过程中声明的局部变量，其使用范围仅限定于该子过程内
、
某个子过程中声明的局部变量，其生命周期仅限于该子过程被执行过程中
、
不同子过程中的局部变量可以具有相同的名称
、
不同子过程中具有相同的名称的局部变量是同一变量
答案：
3、【
单选题
】
以下程序段的输出结果为（ ）。
Di ma（10），p（3）
k ＝5
For i ＝0To 10
a（i）＝i
Next i
For i ＝0To 2
p（i）＝a（i ＋（i ＋1））
Next i
For i ＝0To 2
k ＝k ＋p（i）＋2
Next i
Print k
[1分]
答案：
4、【
单选题
】
不能脱离控件(包括客体)而独立存在的过程是（ ）。
[1分]
、
事件过程
、
通用过程
、
Sub过程
、
函数过程
答案：
5、【
单选题
】
执行如下两条语句后，窗体上显示的是（ ）。 a＝9•8596 Print Format（a，＂$00，00•00＂）
[1分]
、
0，009•86
、
$9•86
、
9•86
、
$0，009•86
答案：
6、【
单选题
】
在窗体上画一个命令按钮和一个标签，其名称分别为Co mmand1和Labell ，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Counter ＝0
For i ＝1To 4
For j＝6To 1Step －2
Counter ＝Counter ＋1
Next j
Next i
Label1．Caption ＝Str（Counter）
End Sub
程序运行后，单击命令按钮，标签中显示的内容是（ ）。
[1分]
答案：
7、【
单选题
】
窗体上有一个名称为Frame1的框架，如下图所示，若要把框架上显示的"Frame1"改为汉字"框架"，下列正确的语句是（ ）。
[1分]
、
Frame1．Name ＝＂框架＂
、
Frame1．Caption ＝＂框架＂
、
Frame1．Text ＝＂框架＂
、
Frame1．Value ＝＂框架＂
答案：
8、【
单选题
】
以下关于KeyPress 事件过程中参数KeyAscii 的叙述正确的是（ ）。
[1分]
、
KeyAscii 参数是所按键的ASCII 码
、
KeyAscii 参数的数据类型为字符串
、
KeyAscii 参数可以省略
、
KeyAscii 参数是所按键上标注的字符
答案：
9、【
单选题
】
设窗体上有一个列表框控件List1，含有若干列表项。下列能表示当前被选中的列表项内容的是（ ）。
[1分]
、
List1．List
、
List1．Listlndex
、
List1．Text
、
List1．Index
答案：
10、【
单选题
】
以下关于文件及相关操作的叙述中错误的是（ ）。
[1分]
、
以Append 方式打开的文件可以进行读写操作
、
文件记录的各个字段的数据类型可以不同
、
随机文件各记录的长度是相同的
、
随机文件可以通过记录号直接访问文件中的指定记录
答案：
11、【
单选题
】
下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段（ ），完成程序。
Private Sub Co mmand1Click（ ）
Di marr（1To 20）
For i ＝1To 20
arr（i）＝_________
Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）
Next i
Sum＝0
For Each X
If X＞50Then
Print Tab（20）；X
Sum＝Sum＋X
End If
Next X
Print Tab（20）；＂Sum＝＂；Sum
End Sub
[1分]
、
Int（Rnd＊99＋1）In arr
、
Int（Rnd）In arr
、
Int（Rnd＊99＋1）In arr（ ）
、
Int（Rnd）In arr（ ）
答案：
12、【
单选题
】
在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（ ）。
[1分]
、
200
040
006
、
204
040
406
、
230
340
006
、
200
045
056
答案：
13、【
单选题
】
最简单的交换排序方法是（ ）。
[1分]
、
快速排序
、
选择排序
、
堆排序
、
冒泡排序
答案：
14、【
单选题
】
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下：
Private Sub Text1＿KeyUp（KeyCode As Integer ，shiftAs Integer）
Di m CAs stri ng
Text2．Text ＝Chr（Asc（c）＋2）
End Sub
当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是（ ）。
[1分]
答案：
15、【
单选题
】
假定有下列程序段：
For i ＝1TO 3
For j＝5To 1Step －1
Print i＊j
Next j
Next i
则语句Print i＊j 的执行次数是（ ）。
[1分]
答案：
16、【
单选题
】
下列描述中正确的是（ ）。
[1分]
、
程序就是软件
、
软件开发不受计算机系统的限制
、
软件既是逻辑实体，又是物理实体
、
软件是程序、数据与相关文档的集合
答案：
17、【
单选题
】
窗体上有1个名称为Text1的文本框和1个名称为Co mmand1．的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out ．txt 中，每次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是（ ）。
[1分]
、
Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Input As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Output As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Append As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Rando m As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
答案：
18、【
单选题
】
设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs ，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。
[1分]
、
Private Sub Form＿MouseDown（Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） If Button ＝2Then Popup Menu Bs ，2
End Sub
、
Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu Bs
End Sub
、
Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu Bs ，0
End Sub
、
Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） If （Button ＝vbLeftButton）Or （Button ＝vbRightButton）Then Popup Menu Bs
End Sub
答案：
19、【
单选题
】
为了使命令按钮（名称为Co mmand1）右移200，应使用的语句是（ ）。
[1分]
、
Co mmand1．Move －200
、
Co mmand1．Move 200
、
Co mmand1．Left ＝Co mmand1．Left ＋200
、
Co mmand1．Left ＝Co mmand1．Left －200
答案：
20、【
单选题
】
在窗体上从左到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示"分数错"。下列程序中正确的是（ ）。
[1分]
、
Private Sub Text1＿KeyPress（KeyAscii As Integer）
If KeyAscii ＝13Then
回车符的ASCII 码是13
a＝Val（Text1）
If a ＞＝0Or a ＜＝100Then
Text2 . SetFocus
Else
Text1 . SetFocus ：MsgBox （＂分数错＂）
End If
End If
End Sub
、
Private Sub Text1＿KeyPress（KeyAscii As Integer）
If KeyAscii ＝13Then 回车符的ASCII 码是13
a＝Val（Text1）
If a ＞＝0And a ＜＝100Then
Text1 . SetFocus
Else
Text2 . SetFocus ：MsgBox （＂分数错＂）
End If
End If
End Sub
、
Private Sub Text1＿KeyPress（KeyAscii As Integer）
If KeyAscii ＝13Then 回车符的ASCII 码是13
a＝Val（Text1）
If a ＜0And a ＞100Then
Text2 . SetFocus
Else
Text1 . SetFocus ：MsgBox （＂分数错＂）
End If
End If
End Sub
、
Private Sub Text1＿KeyPress（KeyAscii As Integer）
If KeyAscii ＝13Then 回车符的ASCII 码是13
a＝Val（Text1）
If a ＞＝0And a ＜＝100Then
Text2．SetFocus
Else
Text1．SetFocus ：MsgBox （＂分数错＂）
End If
End If
End Sub
答案：
21、【
单选题
】
下列关于菜单的叙述中，错误的是（ ）。
[1分]
、
当窗体为活动窗体时，用＜Ctrl ＋E ＞键可以打开菜单编辑器
、
把菜单项的Enabled 属性设置为False ，则可删除该菜单项
、
弹出式菜单在菜单编辑器中设计
、
程序运行时，利用控件数组可以实现菜单项的增加或减少
答案：
22、【
单选题
】
数据库设计包括两个方面的设计内容，它们是（ ）。
[1分]
、
概念设计和逻辑设计
、
模式设计和内模式设计
、
内模式设计和物理设计
、
结构特性设计和行为特性设计
答案：
23、【
单选题
】
窗体上有一个名称为Co mmand1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Co mmand1＿Click（）
Di mn As Integer
n ＝add（5，10）
Print n
End Sub
Function add（v1As Integer ，v2As Integer ，Optionalv3）As Integer
If Not Is Missi ng（v3）Then
add ＝v1＋v2＋v3
Else
add ＝v1＋v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（ ）。
[1分]
、
程序不能正常运行，因为函数add 的参数定义有错
、
程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
、
程序能正常运行，结果是在窗体上显示15
、
程序能正常运行，结果是在窗体上显示510v3
答案：
24、【
单选题
】
下列叙述中错误的是（ ）。
[1分]
、
在程序运行时，通用对话框控件是不可见的
、
调用同一个通用对话框控件的不同方法（如ShowOpen 或ShowSave），可以打开不同的对话框窗口
、
调用通用对话框控件的Showopen 方法，能够直接打开在该通用对话框中指定的文件
、
调用通用对话框控件的ShowColor 方法，可以打开颜色对话框窗口
答案：
25、【
单选题
】
设a ＝6，则执行x ＝IIf（a ＞5，－1，0）后，x 的值为（ ）。
[1分]
答案：
26、【
单选题
】
设有如下通用过程：
Public Function f（x As Integer）
Di my As Integer
x＝20
y ＝2
f ＝x＊y
End Function
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
Static x As Integer
x＝10
y ＝5
y ＝f（x）
Print x；y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
[1分]
、
10 5
、
20 5
、
20 40
、
10 40
答案：
27、【
单选题
】
软件详细设计产生的图如下：
该图是（ ）。
[1分]
、
N-S图
、
PAD图
、
程序流程图
、
E-R图
答案：
28、【
单选题
】
对下列二叉树:
进行中序遍历的结果是（ ）。
[1分]
、
ACBDFEG
、
ACBDFGE
、
ABDCGEF
、
FCADBEG
答案：
29、【
单选题
】
为把圆周率的近似值3．14159存放在变量pi 中，应该把变量pi 定义为（ ）。
[1分]
、
Di mpi As Integer
、
Di mpi（7）As Integer
、
Di mpi As Si ngle
、
Di mpi As Long
答案：
30、【
单选题
】
对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于（ ）。
[1分]
、
输入对话框
、
输出对话框
、
模式（模态）对话框
、
无模式对话框
答案：
31、【
单选题
】
下列叙述中正确的是（ ）。
[1分]
、
顺序存储结构的存储空间一定是连续的，链式存储结构的存储空间不一定是连续的
、
顺序存储结构只针对线性结构，链式存储结构只针对非线性结构
、
顺序存储结构能存储有序表，链式存储结构不能存储有序表
、
链式存储结构比顺序存储结构节省存储空间
答案：
32、【
单选题
】
窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数组Co mmand1，其下标从左到右分别为0、1、2、3，窗体外观如图所示。
命令按钮的事件过程如下：
Private Sub Co mmand1＿Click（Index As Integer）
Select Case Index
Case 0
CD1 .Action ＝1
Case 1
CD1 .ShowSave
Case 2
CD1 .Action ＝5
Case 3
End
End Select
End Sub
对上述程序，下列叙述中错误的是（ ）。
[1分]
、
单击"打开"按钮，显示打开文件的对话框
、
单击"保存"按钮，显示保存文件的对话框
、
单击"打印"按钮，能够设置打印选项，并执行打印操作
、
单击"退出"按钮，结束程序的运行
答案：
33、【
单选题
】
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为"计算"的命令按钮Co mmand1，并编写了以下程序：
Private Sub Co mmand1＿Click（）
Call Cale （HV．Value ，HT．Value）
End Sub
Public Sub Cale（x ASInteger ，y ASInteger）
Text1．Text ＝x＊y
End Sub
运行程序，单击"计算"按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是（ ）。
[1分]
、
过程调用语句不对，应为Cale （HV，HT）
、
过程定义语句的形式参数不对，应为Sub Cale（x AsControl ，y As Control）
、
计算结果在文本框中显示出来
、
程序不能正确运行
答案：
34、【
单选题
】
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do Until x＝－1
a＝InputBox（＂请输入A 的值＂）
a＝Val（a）
b ＝InputBox（＂请输入B的值＂）
b ＝Val（b）
x＝InputBox（＂请输入x 的值＂）
x＝Val（x）
a＝a＋b ＋x
Loop
Print a
End Sub
程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、－1，则输出结果为（ ）。
[1分]
答案：
35、【
单选题
】
在窗体上画一个名称为Co mmand1的命令按钮，再画两个名称分别为Labell、Label2的标签，然后编写如下程序代码：
Private X As Integer
Private Sub Co mmand1＿Click（）
X＝5：Y ＝3
Call proc（x，y）
Labell ．Caption ＝x
Label2．Caption ＝y
End Sub
Private Sub proc（a As Integer ，ByVal b As Integer）
X＝a＊a
Y ＝b ＋b
End Sub
程序运行后，单击命令按钮，则两个标签中显示的内容分别是（ ）。
[1分]
、
25和3
、
5和3
、
25和6
、
5和6
答案：
36、【
简答题】
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为"教授"和"研究员"的单选按钮，再建立一个名称为Label1的标签，实现如下功能：
当选中"教授"时，标签上显示"博士学位以上"，如果选中"研究员"，则标签上显示"硕士学位以上"，结果如图1-1所示。
图1-1
注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。
（2）在名称为Form1的窗体上画两个名称分别为Text1和Text2、内容都为空的文本框，再画一个命令按钮，其名称为Command1，标题为"判断"，编写适当的事件过程。要求程序运行后，如果在Text1中输入一个数，单击命令按钮Command1，判断输入的是否为偶数，如图1-2所示。要求：不得使用任何变量。
图1-2
注意：存盘时必须存放在考生文件夹下，工程文件名为sj2.vbp，窗体文件名为sj2.frm。
[18分]
解析：（1）根据题意，新建"标准EXE"工程，在窗体上添加一个Label控件和两个Option控件，设置Label1的名称为Label1、Caption属性为空，Option的名称分别为Option1和Option2、Caption属性分别为"教授"和"研究员"。设计完成后，进入代码窗口编写如下代码：
38、【
简答题】
在考生文件夹下有一个工程文件sj5.vbp，在Form1的窗体中画一个标签，3个命令按钮和一个计时器。要求程序运行时，单击"开始计数"按钮，就开始计数，每隔1秒，标签中的数加1；单击"暂停计数"按钮，则停止计数；单击"停止计数"按钮，则标签中的计数变为0。
要求：修改适当的控件属性，并去掉程序中的注释符"'"，把程序中的"?"改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。
程序运行时的窗体界面如图51-5所示。
图51-5
[18分]
解析：根据题意，将一个标签，一个计时控件和3个命令按钮添加到窗体中，标签的名称为Label1，Caption属性为0，Timer的名称为Timer1，命令按钮的属性分别为Command1、Command2和Command3，Caption属性分别为"开始计数"、"暂停计数"和"停止计数"。双击Command1进入代码窗口，编写如下代码：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00