1、【
单选题
】
以下关于MsgBox 的叙述中，错误的是（ ）。
[1分]
、
MsgBox 函数返回一个整数
、
通过MsgBox 函数可以设置信息框中图标和按钮的类型
、
MsgBox 语句没有返回值
、
MsgBox 函数的第二个参数是一个整数，该参数只能确定对话框中显示的按钮数量
答案：
2、【
单选题
】
下列操作不能向工程中添加窗体的是（ ）。
[1分]
、
执行"工程"菜单中的"添加窗体"命令
、
单击工具栏中的"添加窗体"按钮
、
右击窗体，在弹出的菜单中选择"添加窗体"命令
、
右击工程资源管理器，在弹出的菜单中选择"添加"命令，然后在下一级菜单中选择"添加窗体"命令
答案：
3、【
单选题
】
下列选项中不属于软件生命周期开发阶段任务的是（ ）。
[1分]
、
软件测试
、
概要设计
、
软件维护
、
详细设计
答案：
4、【
单选题
】
表达式"4+5/6*7/8 Mod 9"的值是（ ）。
[1分]
答案：
5、【
单选题
】
数据库系统的核心是（ ）。
[1分]
、
数据模型
、
数据库管理系统
、
数据库
、
数据库管理员
答案：
6、【
单选题
】
以下叙述中错误的是（ ）。
[1分]
、
一个工程中可以包含多个窗体文件
、
在一个窗体文件中用Private 定义的通用过程能被其他窗体调用
、
在设计Visual Basic 程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件
、
全局变量必须在标准模块中定义
答案：
7、【
单选题
】
下列关于过程及过程参数的描述中，错误的是（ ）。
[1分]
、
过程的参数可以是控件名称
、
调用过程时使用的实参的个数应与过程形参的个数相同
、
只有函数过程能够将过程中处理的信息返回到调用程序中
、
窗体可以作为过程的参数
答案：
8、【
单选题
】
有下列事件过程：
Private Sub Co mmand1＿Click（ ）
b ＝10
Do Until b ＝－1
a＝InputBox（＂请输入a 的值＂）
a＝Val（a）
b ＝InputBox（＂请输入b 的值＂）
b ＝Va（b）
a＝a＊b
Loop
Print a
End Sub
程序运行后，依次输入数值30，20，10，－1后，输出结果是（ ）。
[1分]
、
600
、
－10
、
200
、
－6000
答案：
9、【
单选题
】
支持子程序调用的数据结构是（ ）。
[1分]
答案：
10、【
单选题
】
窗体上有1个名称为List1的列表框，其中已经输入了若干个项目，如图所示；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有下列事件过程。
Private Sub Co mmand1＿Click（）
Di mstr As Stri ng ，s As Stri ng ，k As Integer
s ＝Text1
str ＝＂＂
For k ＝List1．ListCount －1To 0Step －1
If InStr（List1．List（k），s）＞0Then
str ＝str ＆List1．List（k）＆＂＂
End If
Next k
If str ＝＂＂Then
Text2＝＂没有匹配的项目＂ Els
e Text2＝str
End If
End Sub
程序运行时，在Text1中输入＂京＂，单击命令按钮，则在Text2中显示的内容是（ ）。
[1分]
、
京
、
北京南京
、
南京北京
、
没有匹配的项目
答案：
11、【
单选题
】
执行以下程序段后，变量c$的值为（ ）。
a$＝＂Visual Basic Programi ng＂
b$＝＂Quick＂
c$＝b$＆UCase（Mid$（a$，7，6））＆Right$（a$，11）
[1分]
、
Visual BASICProgrami ng
、
Quick Basic Programi ng
、
QUICK Basic Programi ng
、
Quick BASICProgrami ng
答案：
12、【
单选题
】
刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（ ）。
[1分]
、
单选按钮
、
图片框
、
通用对话框
、
文本框
答案：
13、【
单选题
】
关于MDI 窗体，下列说法正确的是（ ）。
[1分]
、
一个应用程序可以有多个MDI 窗体
、
子窗体可以移到MDI 窗体以外
、
不可以在MDI 窗体上放置按钮控件
、
MDI 窗体的子窗体不可以拥有菜单
答案：
14、【
单选题
】
在窗体（Name 属性为Form1）上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（Name属性为Co mmand1），然后编写如下两个事件过程：
Private Sub Co mmand1＿Click（）
a＝Text1．Text ＋Text2．Text Print a
End Sub
Private Sub Form＿Load（）
Text1．Text ＝＂＂ Text2．Text ＝＂＂
End sub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。
[1分]
、
444
、
321123
、
123321
、
132231
答案：
15、【
单选题
】
在C盘当前文件夹下建立一个名为SDat ．txt 的顺序文件。要求用InputBox 函数输入5名学生的学号（StuNo）、姓名（StuName）和英语成绩（StuEng）。则在下列横线处应填入的语句是（ ）。
Private Sub Form＿Click（）
Open ＂C：＼SDat ．txt＂For Output As 1
For i ＝1To 5
StuNo ＝InputBox（＂请输入学号＂）
StuName ＝InputBox（＂请输入姓名＂）
StuEng ＝Val（InputBox（＂请输入英语成绩＂））
Next i
Close ＃1
EndSub
[1分]
、
Input ＃l ，StuNo ，StuName ，StuEn
、
Put ＃l ，StuNo ，StuName ，StuEn
、
Write ＃1，StuNo ，StuName ，StuEn
、
Get ＃1，StuNo ，StuName ，StuEn
答案：
16、【
单选题
】
有下列函数过程：
Function Func2（a As Integer ，b As Integer）As Integer
Static m As Integer ，i As Integer
m＝0
i ＝2
a＝i ＋m＋1
b ＝i ＋a＋b
Func2＝m
End Function
在窗体上画一个命令按钮，然后编写下列事件过程：
Private Sub Co mmandl＿Click（）
Di m P As Integer ，k As Integer ，m As Integer
k ＝4
m＝1
P＝Func2（k ，m）
Print k ；m
P＝Func2（km）
Print k ＝m End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
[1分]
、
3 6＜CR ＞3 6
、
3 6＜CR ＞3 11
、
3 11＜CR ＞3 6
、
3 11＜CR ＞3 11
答案：
17、【
单选题
】
在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ）。
[1分]
、
工程资源管理器窗口
、
工具箱窗口
、
代码窗口
、
属性窗口
答案：
18、【
单选题
】
下列叙述菜单设计的语句正确的是（ ）。
[1分]
、
菜单也是一个控件，存在于工具箱中
、
菜单也有外观和行为的属性
、
菜单设计在"菜单编辑器"中进行，因此它不是一个控件
、
菜单的属性也是在"属性窗口"中设置的
答案：
19、【
单选题
】
下列各控件不包含滚动条的控件是（ ）。
[1分]
、
ListBox
、
Co mboBox
、
TextBox
、
Label
答案：
20、【
单选题
】
要将名为MyForm 的窗体显示出来，正确的使用方法是（ ）。
[1分]
、
MyForm．Show
、
Show．MyForm
、
MyForm Load
、
MyFormShow
答案：
21、【
单选题
】
在面向对象方法中，不属于"对象"基本特点的是（ ）。
[1分]
、
一致性
、
分类性
、
多态性
、
标识唯一性
答案：
22、【
单选题
】
为了使列表框中的项目分为多列显示，需要设置的属性为（ ）。
[1分]
、
Columns
、
Style
、
List
、
Multi Select
答案：
23、【
单选题
】
在窗体上有1个名称为Co mmonDialog1的通用对话框和1个名称为Co mmand1的命令按钮，以及其他一些控件。要求在程序运行时，单击Co mmand1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。下列是Co mmand1＿Click 事件过程的两种算法。
算法1：
Private Sub Co mmand1＿Click（）
Co mmonDialogl ．ShowOpen
Open Co mmonDialogl ．File Name For Input As ＃1
End Sub
算法2：
Private Sub Co mmand1＿Click（）
Co mmonDialogl ．ShowOpen
If Co mmonDialogl ．File Name ＜＞＂＂Then
Open Co mmonDialogl ．File Name For Input As ＃1
EndIf
End Sub
下列关于这两种算法的叙述中正确的是（ ）。
[1分]
、
显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会
、
显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会
、
两种算法的执行结果完全一样
、
算法1允许输入的文件名中含有空格，而算法2不允许
答案：
24、【
单选题
】
在窗体上画一个命令按钮，其名称为Commandl。程序运行后，单击命令按钮，输出结果是（ ）。
Private Sub pl （n As Integer）
For i ＝n To 1Step ＝1
x＝Stri ng（i ，＂＊＂）
Print x
Next i
End Sub
Private Sub Commandl＿Click（）
pl（3）
EndSub
[1分]
、
＊＊＊
＊＊
＊
、
＊＊＊
＊＊＊
、
＊
＊
＊
、
＊＊＊＊＊＊
答案：
25、【
单选题
】
在窗体上画一个名称为Co mmand1的命令按钮，并编写以下程序：
Private Sub Co mmand1＿Click（）
Di mn ％，b ，t
t ＝1：b ＝1：n ＝2
Do
b ＝b＊n
t ＝t ＋b
n ＝n ＋1
Loop Until n ＞9
Print t
End Sub
此程序计算并输出一个表达式的值，该表达式是（ ）。
[1分]
、
9！
、
10！
、
1！＋2！＋…＋9！
、
1！＋2！＋…＋10！
答案：
26、【
单选题
】
在用通用对话框控件建立"保存"文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件（即．txt 文件），则正确的描述格式是（ ）。
[1分]
、
＂text （．txt）｜（＊．txt）＂
、
＂文本文件（．txt）｜（．txt）＂
、
＂text（．txt）｜｜（＊．txt）＂
、
＂text（．txt）（＊．txt）＂
答案：
27、【
单选题
】
有三个关系R、S 和T 如下：
由关系R 和S 通过运算得到关系T，则所使用的运算为（ ）。
[1分]
答案：
28、【
单选题
】
对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（ ）。
[1分]
答案：
29、【
单选题
】
下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填（ ）。
Sub EnSure（ ）
Di myear As Integer
year ＝Val（InputBox（＂请输入年份：＂））
If（year Mod 4＝0_________year Mod 100＜＞0）
________（year Mod 400＝0）Then
Print ＂您输入的是闰年＂
Else
Print ＂不是闰年，是普通年份＂
End If
End Sub
[1分]
、
And And
、
And Or
、
Or Or
、
Or Or
答案：
30、【
单选题
】
设有下列程序
Private Sub Form＿Click（）
x＝50
For i ＝1To 4
y ＝InputBox（＂请输入一个整数＂）
y ＝Val（y）
If y Mod 5＝0Then
a＝a＋y
x＝y
Else
a＝a＋x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
[1分]
答案：
31、【
单选题
】
要清除已经在图片框Picturel 中打印的字符串而不清除图片框中的图像，应使用语句（ ）。
[1分]
、
Picture 1．Cls
、
Picture 1．Picture ＝LoadPicture（＂＂）
、
Picture 1．Pi nt＂＂
、
Picture 1．Picture＂＂
答案：
32、【
单选题
】
下列选项中不符合良好程序设计风格的是（ ）。
[1分]
、
源程序要文档化
、
数据说明的次序要规范化
、
避免滥用goto语句
、
模块设计要保证高耦合、高内聚
答案：
33、【
单选题
】
下列说法错误的是（ ）。
[1分]
、
窗体文件的扩展名为"．frm"
、
一个窗体对应一个窗体文件
、
Visual Basic 中的一个工程只包含一个窗体
、
Visual Basic 中一个工程最多可以包含255个窗体
答案：
34、【
单选题
】
两个或两个以上模块之间关联的紧密程度称为（ ）。
[1分]
、
耦合度
、
内聚度
、
复杂度
、
数据传输特性
答案：
35、【
单选题
】
假定在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As Stri ng＊10
TelNum As Stri ng＊20
End Type
要求在执行事件过程Co mmand1＿Click 时，在顺序文件Person ．txt 中写入一条记录。下列能够完成该操作的事件过程是（ ）。
[1分]
、
Private Sub Co mmand1＿Click（）
Di nt BAs Books
Open ＂c ：＼Person ．txt＂For Output As ＃1
B ．Name ＝InputBox（＂输入姓名＂）
B ．TelNum＝InputBox（＂输入电话号码＂）
Write ＃1，B．Name ，B．TelNum
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Di m BAs Books
Open ＂c ：＼Person ．txt＂For Input As ＃1
B ．Name ＝InputBox（＂输入姓名＂）
B ．TelNum＝InputBox（＂输入电话号码＂）
Print ＃1，B．Name ，B．TelNum
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Di m BAs Books
Open ＂c ：＼Person ．txt＂For Output As ＃1
Name ＝InputBox（＂输入姓名＂）
TelNo m＝InputBox（＂输入电话号码＂）
Write ＃1，B
Close ＃1
End Sub
、
Private Sub Co mmand1＿Click（）
Di m BAs Book
Open ＂c ：＼Person ．txt＂For Input As ＃1
Name ＝InputBox（＂输入姓名＂）
TelNum－InputBox（＂输入电话号码＂）
Print ＃1，B．Name ．B．TelNum
Close ＃1
End Sub
答案：
36、【
单选题
】
窗体上有两个文本框Textl、Text2以及一个命令按钮Commandl ，编写下列程序：
Di mY As Integer
Private Sub Commandl＿Click（）
Di m X As Integer
x＝2
Textl ．Text ＝p2（p1（X），Y）
Text2．Text ＝pl（x）
End Sub
Private Function pl（X As Integer）As Integer
x＋x＋y∶y ＝x＋y
pl ＝x＋y
End Function
Private Function p2（X As Integer ，Y As Integer）As Integer
p2＝2＊x＋y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别为（ ）。
[1分]
、
2 4
2 4
、
2 4
4 8
、
4 4
8 8
、
10 10
58 58
答案：
37、【
单选题
】
窗体文件的扩展名是（ ）。
[1分]
答案：
38、【
简答题】
请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。
（1）在名称为Form1的窗体上放置一个名称为Drive1的驱动列表框控件，一个名称为Dir1的目录列表框控件、一个名称为File1的文件列表框控件。程序运行时，可以对系统中的文件进行浏览。如图46-1所示。
图46-1
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。
（2）在名称为Form1的窗体上放置一个名为Label1的标签控件和一个名为Timer1的计时器控件，程序运行后，文本框中显示的是当前的时间，而且每一秒文本框中所显示的时间都会随时间的变化而改变，并且显示的字体为四号宋体字，如图46-2所示。
图46-2
注意：程序中不得使用任何变量；保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。
[18分]
解析：（1）文件系统控件有3种：驱动器列表框（DrivEListBox） ，目录列表框（DirListBox） 和文件列表框（FilEListBox） 。3个文件系统控件必须协调工作才能构成一个文件管理系统，当用户在驱动器列表框中选择一个新的列表框或在当目录列表框的PAth属性改变会触发ChAnGE事件，将三者实现同步的代码为：FilE1.PAth = Dir1.PAth，Dir1.PAth = DrivE1.DrivE。根据题意，新建"标准EXE"工程，将一个分区列表框控件、一个目录列表框控件和一个文件列表框控件添加到窗体中，分区列表框的名称为DrivE1，目录列表框的名称为Dir1，文件列表框的名称为FilE1。双击DrivE1，进入代码窗口，编写如下代码：
39、【
简答题】
（1）在窗体上建立一个二级菜单，该菜单含有"文件"和"编辑"（名称分别为vbFile和vbEdit）两个主菜单项，其中"文件"菜单包括"打开"、"保存"和"关闭"3个子菜单项（名称分别为vbOpen、vbSave和vbClose）。在名称为Form1的窗体上建立两个主菜单，其标题分别为"文件"和"编辑"，名称分别为vbFile和vbEdit，在"文件"菜单下有3个子菜单项，标题分别为"打开"、"保存"和"关闭"，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中"文件"下的某个菜单项，则通过MsgBox对话框显示该菜单项的标题，如图31-3所示。
图31-3
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。
（2）在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
在窗体上建立一个名称为Command1，标题为"计算"的命令按钮，再建立一个名称为Text1的文本框。运行界面如图31-4所示。要求程序运行后，若单击"计算"按钮，将计算200~350之间所有素数的和，在文本框中显示结果，同时把结果存入文件out.txt中。（在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件，而isprimenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。）
图31-4
[24分]
解析：1）本题主要考查MsGBox 函数的使用。MsGBox 函数用于在对话框中显示消息，等待用户单击按钮，并返回一个IntEGEr 告诉用户单击哪一个按钮。其格式为：MsGBox(prompt[, Buttons] [, titlE] [, hElpFilE, ContExt]) 。Prompt参数是必选的，是字符串表达式 <JAvASCript:hhoBj_5.CliCk()>，作为显示在对话框中的消息；Buttons是可选的，是数值表达式JAvASCript:hhoBj_6.CliCk()>值的总和，指定显示按钮的数目及形式；TitlE是可选的，在对话框标题栏中显示的字符串表达式。如果省略 titlE，则将应用程序名放在标题栏中；HElpFilE是可选的，是字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件；ContExt是可选的，是数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。在窗体空白处单击右键，按"Ctrl+E"组合键打开菜单编辑器，添加菜单项如下：
（2）先按要求将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1，命令按钮的名称为Command1、Caption属性为计算。然后将mode.bas模板加入到工程当中，模板的代码如下：
40、【
简答题】
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符（即'号），但不能修改其他部分。存盘时不得改变文件名和文件夹。
窗体Form1中有一命令按钮与一个水平滚动条。命令按钮的名称为Command1，标题为"移动"；水平滚动条的名称为HScroll1。单击"移动"按钮后，在弹出的对话框中输入数值。输入一个整数后，单击"移动"，滚动条中的滚动块移动到指定的刻度，如果超过了滚动条的最大刻度，则不移动，并且在窗体上显示"输入的数值太大"，如果超过了滚动条的最小刻度，则不移动，并且在窗体上显示"输入的数值太小"。如图8-5所示。
图8-5
[18分]
解析：本题主要考查滚动条的属性和IF语句的使用。滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其VAluE属性的值。滚动条的MAx属性、Min属性限定了滚动条所能表示的最大值和最小值，即VAluE属性值的取值范围，在程序中改变VAluE属性的值，滚动条滑块会随之移动到相应位置。InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型。在代码窗口编写如下代码：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00