1、【
单选题
】
模块独立性是软件模块化所提出的要求，衡量模块独立性的度量标准是模块的（ ）。
[1分]
、
抽象和信息隐蔽
、
局部化和封装化
、
内聚性和耦合性
、
激活机制和控制方法
答案：
2、【
单选题
】
在窗体上画一个名称为CD1的通用对话框，并有如下程序：
Private Sub Form_Load（ ）
CD1．DefaultExt="doc"
CD1．FileName="C：＼filel．txt"
CD1．Filter"应用程序(*．exe)|*．exe"
End Sub
程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是（ ）。
[1分]
、
应用程序(*．exe)
、
*．doc
、
*．txt
、
不确定
答案：
3、【
单选题
】
在窗体七画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（ ）。
[1分]
、
List1．Removeltem List1．Text
、
List1．R(moveItem List1．Clear
、
List1．R(、moveItem List1．ListCount
、
List1．Rt-moveItem List1．Listlndex
答案：
4、【
单选题
】
下列关于通甩对话框CommonDialogl的叙述中，错误的是（ ）。
[1分]
、
只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开
、
使用('ommoDialog1．ShowColor方法，可以显示“颜色”对话框
、
CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错警告
、
在显示“字体”对话框前，必须先设置CommonDialog1的Flags属性，否则会出错
答案：
5、【
单选题
】
以下关于文件的叙述中，错误的是（ ）。
[1分]
、
顺序文件中的记录一个接一个地顺序存放
、
随机文件中记录长度是随机的
、
执行打开文件的命令后，自动生成一个文件指针
、
LOF函数返回给文件分配的字节数
答案：
6、【
单选题
】
对于循环队列，下列叙述中正确的是（ ）。
[1分]
、
队头指针是固定不变的
、
队头指针一定大于队尾指针
、
队头指针一定小于队尾指针
、
队头指针可以大于队尾指针，也可以小于队尾指针
答案：
7、【
单选题
】
在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：
Option Base l
Private Sub Command1 Click（ ）
Dim a
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
程序运行后，单击命令按钮，其输出结果是（ ）。
[1分]
答案：
8、【
单选题
】
在窗体上画两个单选按钮(名称分别为Option1、Option2，标题分别为“宋体”和“黑体”)、1个复选框(名称为Check1，标题为“粗体”)和1个文本框(名称为Text1，Text属性为“改变文字字体”)，窗体外观如下图所示。程序运行后，要求“宋体”单选钮和“粗体”复选框被选中，则下列能够实现上述操作的语句序列是（ ）。
[1分]
、
Option1．Valve=False
Checkl．Vaim=True
、
Option1．Value=True
Check1．Value=0
、
Olption2．Value=False
Check1．Value=2
、
Option1．Value=True
Check1．Value=1
答案：
9、【
单选题
】
可以产生30-50(含30和50)之间的随机整数的表达式是（ ）。
[1分]
、
Int(Rnd*21+30)
、
Int(Rnd*20+30)
、
Int(Rnd*50—Rnd*30)
、
Int(RND*30+50)
答案：
10、【
单选题
】
窗体上有文本框Text1和一个菜单，菜单标题、名称见表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是（ ）。
[1分]
、
Private Sub save Click（ ）
Text1．Text=file．save．Caption
End Sub
、
Private Sub save Click（ ）
Text1．Text=save．Caption
End Sub
、
Private Sub file Click（ ）
Text1．Text=file．save．Caption
End Sub
、
Private Sub file Click（ ）
Text1．Text=save．Caption
End Sub
答案：
11、【
单选题
】
关于MDI窗体，下列说法正确的是（ ）。
[1分]
、
一个应用程序可以有多个MDI窗体
、
子窗体可以移到MDI窗体以外
、
不可以在MDI窗体上放置按钮控件
、
MDI窗体的子窗体不可以拥有菜单
答案：
12、【
单选题
】
下列叙述中错误的是（ ）。
[1分]
、
在程序运行时，通用对话框控件是不可见的
、
调用同一个通用对话框控件的不同方法(如ShowOpen或ShowSave)，可以打开不同的对话框窗口
、
调用通用对话框控件的Showopen方法，能够直接打开在该通用对话框中指定的文件
、
调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口
答案：
13、【
单选题
】
设有一个命令按钮Command1的事件过程以及一个函数过程。程序如下：
Private Sub Command1 Click（ ）
Static x A S Integer
x=f(x+5)
Cls
Print X
End Sub
Private Function f(x As Integer)As Integer
f=x+x
End Function
连续单击命令按钮3次，第3次单击命令按钮后，窗体显示的计算结果是（ ）。
[1分]
答案：
14、【
单选题
】
窗体上有一个名称为Command1的命令按钮，并有如下程序：
Private Sub Command1Click（ ）
Dim m As Integer，n As Integer
m=InputBox("输入第一个数")
nzInputBox("输入第二个数")
Do While m<>n
Do While m>n
m= m-n
Loop
Do While n>m
n=n-m
Loop
Loop
Print m
End Sub
该程序的功能是（ ）。
[1分]
、
求数值m和n的最大公约数
、
求数值m和n的最小公倍数
、
求数值m和n中的较大数
、
求数值m和n中的较小数
答案：
15、【
单选题
】
为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：
Private Sub Command1 Click（ ）
Dim a％，s％，k％
s=1
a=2
For k=2 To 10
a=a*2
s2 s+a
Next k
Text1．Text=s
End Sub
执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是（ ）。
[1分]
、
把s=1改为s=0
、
把For k=2 T0 10改为For k=1 T0 10
、
交换语句s=s+a和a=a*2的顺序
、
同时进行B、C两种修改
答案：
16、【
单选题
】
在文本框中输入密码时，要求在文本框中只显示(+)号，则应当设置此文本框的（ ）属性。
[1分]
、
Text
、
Caption
、
Password
、
PasswordChar
答案：
17、【
单选题
】
在通用对活框中打开“颜色对话框”的方法是（ ）。
[1分]
、
ShowOpen
、
Menultem．Enabled—True
、
MenuItem．Visible—True
、
Menultem．Visible—Flase
答案：
18、【
单选题
】
窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称为cmd Draw的控件数组。窗体外观如图所示(从上到下的3个命令按钮的下标值分别为0、1、2)。
有事件过程如下：
Private Sub cmdDraw Click(Index As Integer)
Select Case Index
Case 0
Shape1．Shape=0
Case 1
Shape1．Shape=1
Case 2
Shape1．Shape=3
End Select
End Sub
当单击“画圆”命令按钮时，会执行cmdDraw Click事件过程。以下叙述中正确的是（ ）。
[1分]
、
Case 2分支有错，此Case后面表达式的值应该与赋给Shape1．Shape的值一致
、
程序运行有错，控件数组的下标应该从1开始
、
Index是形状控件的参数
、
程序正常运行，形状控件被显示为圆形
答案：
19、【
单选题
】
设有如下程序：
Private Sub Form Click（ ）
Dim i As Integer，x As String，y As String
x="ABCDEFG"
For i=4 To 1Step-1
y=Mid(X，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为（ ）。
[1分]
、
ABCCDEDEFG
、
AABBCDEFG
、
ABCDEFG
、
AABBCCDDEEFFGG
答案：
20、【
单选题
】
在E—R图中，用来表示实体联系的图形是（ ）。
[1分]
答案：
21、【
单选题
】
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是（ ）。
[1分]
、
学生成绩管理系统
、
C语言编译程序
、
UNIX操作系统
、
数据库管理系统
答案：
22、【
单选题
】
设有打开义件的语句如下：
Open"test_dat"For Random As#1
要求把变量a中的数据保存到该文件中，应该使用的语句是（ ）。
[1分]
、
Input#1 a
、
Write#1 a
、
Put#1，a
、
Get#1，a
答案：
23、【
单选题
】
有人编写了如下程序：
Private Sub Form Click（ ）
Dim s As Integer，x As Integer
s=0
x=0
Do While S=1000
x=x+l
s=s+x^2
Loop
Print s
End Sub
上述程序的功能是：计算s=1+22+32+…+n2+…，直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（ ）。
[1分]
、
把x=0改为x=1．
、
把Do While s=10000改为Do While s<=10000
、
把Do While S=10000改为Do While s>10000
、
交换x=x+1和s=s+x^2的位置
答案：
24、【
单选题
】
某人设计了如下程序用来计算并输出7!(7的阶乘)
Private Sub Command1 Click（ ）
t=0
For k=7 To 2 Step-1
t=t*k
Next
Print t
End Sub
执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是（ ）。
[1分]
、
把t=0改为t=1
、
把For k=7 To 2 Step-1改为For k=7 T0 1 Step-1
、
把For k=7 To 2 Step-1改为For k=1 T0 7
、
把Next改为Next k
答案：
25、【
单选题
】
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。
现有如下事件过程
Private Sub Text1_Change（ ）
Text 2．Text=Mid(Text1，1，5)
End Sub
运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。
[1分]
、
DataA
、
DataB
、
aData
、
aBase
答案：
26、【
单选题
】
在Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是（ ）。
[1分]
答案：
27、【
单选题
】
下面控件中，没有Caption属性的是（ ）。
[1分]
答案：
28、【
单选题
】
以下关于弹出式菜单的叙述中，错误的是（ ）。
[1分]
、
一个窗体只能有一个弹出式菜单
、
弹出式菜单在菜单编辑器中建立
、
弹出式菜单的莱单名(主菜单项)的“可见”属性通常设置为False
、
弹出式菜单通过窗体的PopupMenu方法显示
答案：
29、【
单选题
】
设有如下程序：
Option Base 0
Private Sub Form_Click（ ）
Dim a
Dim i As Integer
a=Array(1，2，3，4，5，6，7，8，9)
For i=0 To 3
Print a(5-i)；
Next
End Sub
程序运行后，单击窗体，则在窗体上显示的是（ ）。
[1分]
、
4 3 2 1
、
5 4 3 2
、
6 5 4 3
、
7 6 5 4
答案：
30、【
单选题
】
窗体上有一个名为Command1的命令按钮，并有下面的程序：
Private Sub Command1 Click（ ）
Dim arr(5)As Integer ．
For k=1 To 5
art(k)=k
Next k
prog art（ ）
For k=1 T0 5
Print art(k)；
Next k
End Sub
Sub prog(a（ ）As Integer)
n=UBound(a)
For i=n To 2 step-1
if a(j)<A(J十1)THEN
t=a(j)：a(1)=a(j+1)；a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时，单击命令按钮后显示的是（ ）。
[1分]
、
12345
、
54321
、
01234
、
43210
答案：
31、【
单选题
】
以下描述中错误的是（ ）。
[1分]
、
窗体的标题通过其Caption属性设置
、
窗体的名称(Name属性)可以在运行期间修改
、
窗体的背景图形通过其Picture属性设置
、
窗体最小化时的图标通过其Icon属性设置
答案：
32、【
简答题】
在名称为Form1的窗体上绘制一个名为HS1的水平滚动条，并在属性窗口中将Max属性设置为100，Min属性设置为0，Value属性设置为100。程序运行后，滚动框位于滚动条最右端，如果单击滚动条之外的窗体部分，则滚动框跳到最左端，如图3-1所示。
注意：只能直接为相应的属性赋值，不得使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为sj1．vbp。
[10分]
解析：
33、【
简答题】
在名称为Form1的窗体上建立一个名称为Listl的列表框。在程序运行后，通过Form _Load()事件过程加载窗体时，执行语句Listl．AddItem“Item1”和List1．Addltem“Item2”，每当单击列表项时，就将执行语句List1．AddItem List1．Text一次，如图6-2所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj2．frm，工程文件名为sj2．vbp。
[8分]
解析：本题主要考查列表框控件的事件和方法。列表框用于在很多项目中做出选择的操作。向列表框中添加项目既可以在属性窗口进行，也可以在程序代码中进行。单击列表框中的项目触发Click事件，题目要求使用AddItem方法给列表框添加项目，所以应该将List1．AddItem IAst1．Text语句写入列表框的Click事件中。根据题意，新建“标准EXE”工程，将列表框控件添加到窗体上，然后设置其名称为List1，然后双击Form1，进入代码编写窗口，输入以下代码：
34、【
简答题】
在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为“体育”、“音乐”和“美术”，还有一个命令按钮，名称为C1，标题为“显示”。要求程序运行后，如果选中某个复选框，当单击“显示”命令按钮时，则显示相应的信息。例如，如果选中“体育”和“美术”复选框，单击“显示”命令按钮后，在窗体上显示“我的爱好是体育美术”，如图3—4所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
[12分]
解析：本题主要考查复选框的使用。单击命令按钮触发Click事件，程序中需要检测复选按钮的状态，可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。①在窗体上先按要求建立控件，设置控件属性，程序中用到的控件及属性如下表所示：
35、【
简答题】
在考生文件夹中有工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上
有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是“Wait”、“Edit”、“Aix”和“Move”，如图3-5所示。
在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状；离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。
注意：去掉程序中的注释符(即“b’号)，把程序中的问号“?”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。
[12分]
解析：
①打开题目所给工程文件。
②将注释浯句改为：
Form1．MousePointer=0
Select Cave Index
③按要求深存文件即完成本题。
36、【
简答题】
在名称为Form1的窗体上画一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2；两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为“读人数据”和“排序并保存”，如图4-6所示。程序运行后，如果单击“读人数据”按钮，则读入in．txt文件中的100个整数，放入一个数组中(数组下界为1)；如果单击“排序并保存”按钮，则对这l00 个整数按从小到大进行排序，并把排序后的全部数据在文本框Text1中显示出来，然后存入考生文件夹中的文件．result．txt中(在程序中的标准模块prog．bas过程可以把指定个数的数组元素存入result．txt文件中)。
注意：文件必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名称为sj5．vbp，排序结果存入result．txt文件，否则没有成绩。
[18分]
解析：除了基本的操作外，本题涉及的知识点主要有循环和数组的使用两个方面。先在窗体上建立控件，再设置控件属性，然后研读提供的代码，正确分析并完成程序。文本框显示的内容通过Text属性设置；按钮的标题通过Caption属性设置，单击命令按钮触发Click事件；在本题中涉及文件的操作，读入文件并以顺序的方式打开，用“Input#”语句读取数据，另外需要注意的是对文件操作结束后，一定要关闭文件。
①文本框显示的内容通过Text属性设置，Muhiline属性决定文本框是否可多行显示。若需要多行显示，则必须将Multiline属性设置为True，同时将Scrollbars属性设置为2。②建立界面并设置控件属性。按钮的标题通过Caption属性设置，单击命令按钮触发Click事件。程序中用到的控件及属性设置见下表：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00