1、【
单选题
】
软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)，下面属于系统软件的是（ ）。
[1分]
、
编辑软件
、
操作系统
、
教务管理系统
、
浏览器
答案：
2、【
单选题
】
以下关于顺序文件的叙述中，正确的是（ ）。
[1分]
、
可以用不同的文件号以不同的读写方式同时打开同一个文件
、
文件中各记录的写入顺序与读出顺序是一致的
、
可以用Input#或Line Input#语句向文件写记录
、
如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录
答案：
3、【
单选题
】
下列关于关系运算的叙述中正确的是（ ）。
[1分]
、
投影、选择、连接从二维表的行的方向来进行运算
、
并、交、差从二维表的列的方向来进行运算
、
投影、选择、连接从二维表的列的方向来进行运算
、
以上三种说法都不对
答案：
4、【
单选题
】
语句Dim a(-3 To 4，3 To 6)As Integer定义的数组元素个数是（ ）。
[1分]
答案：
5、【
单选题
】
下列选项中属于面向对象设计方法主要特征的是（ ）。
[1分]
答案：
6、【
单选题
】
在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1 Click（ ）
a$=”software and hardware”
b$=Right(a$，8)
c$=Mid(a$，L，8)
MsgBox a$，，bs，CS，1
End sub
则在弹出的信息框标题栏中显示的标题是（ ）。
[1分]
、
software and bardware
、
hardware
、
software
、
1
答案：
7、【
单选题
】
下列叙述中正确的是（ ）。
[1分]
、
有一个以上根结点的数据结构不一定是非线性结构
、
只有一个根结点的数据结构不一定是线性结构
、
循环链表是非线性结构
、
双向链表是非线性结构
答案：
8、【
单选题
】
一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是（ ）。
[1分]
答案：
9、【
单选题
】
以下关于局部变量的叙述中错误的是（ ）。
[1分]
、
在过程中用Dim语句或Static语句声明的变量是局部变量
、
局部变量的作用域是它所在的过程
、
在过程中用Stalic语句声明的变量是静态局部变量
、
过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放
答案：
10、【
单选题
】
要在命令按钮控件上显示图像应（ ）。
[1分]
、
设置Picture属性
、
实现不了
、
先将Style设置为1，然后再设置Picture属性
、
以上都不对
答案：
11、【
单选题
】
在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（ ）。
[1分]
、
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii==13 Then
'回车符的ASCIl码是13
a=Val(Text1)
If a>=0 Or a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
、
Private Sub Textl—KeyPress(KeyAscii As Integer)
If KeyAseii=13 Then
'回车符的ASCIl码是13
a=Val(Text1)
If a>=0 And a<=100 Then
Textl．SetFocus
Else
Text2．SetFocus：MsgBox("分数错")
End If
End If
End Sub
、
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii=13 Then
'回车符的ASCII码是13
a=Val(Text1)
If a<0 And a>100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
、
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KevAscii=13 Then
'回车符的ASCII码是13
a=Val(Textl)
If a>=0 Aad a<=100 Then
Text2．SetFocus
Else
Text1．SetFocus：MsgBox("分数错")
End If
End If
End Sub
答案：
12、【
单选题
】
假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是（ ）。
[1分]
、
Load
、
Click
、
LostFocus
、
KcyPress
答案：
13、【
单选题
】
在窗体E先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana．DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（ ）。
[1分]
、
Private 3ub Form—DragDrop(Source As Control，X As Single，Y As Single)
banana．Move Picture1．Left+X，Picture1．Top+Y
End Sub
、
Private Sub banana_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left+X，Picture 1．Top+Y
End Sub
、
Private Sub Picturei_DragDrop(Source As Control，X As Single，Y As Single)
Source．Move Picture1．Left+X，Picture1．Top+Y
End Sub
、
Private Sub Picture1_DragDrop(Source As Control，X As Single，Y As Single)
banana．Move banana．Left+X，banana．Top +Y
End Sub
答案：
14、【
单选题
】
下面有关标准模块的叙述中，错误的是（ ）。
[1分]
、
标准模块不完全由代码组成，还可以有窗体
、
标准模块中的Private过程不能被工程中的其他模块调用
、
标准模块的文件扩展名为．bas
、
标准模块中的全局变量可以被工作中任何模块引用
答案：
15、【
单选题
】
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（ ）。
[1分]
、
Private Sub Text1 Change（ ）
Labe11．Caption=Str(Len(Text1．Text))
End Sub
、
Private Sub Text1 Click（ ）
Labe11．Caption=str(Len(Text1．Text))
End Sub
、
Private Sub Text1 Change（ ）
Labe11．Caption=Text1．Text
End Sub
、
Private Sub Labe1 1_Change（ ）
Labe11．Caption=Str(Len(Text1．Text))
End Sub
答案：
16、【
单选题
】
某人编写了下面的程序，希望能把Text1文本框中的内容写到out．txt文件中：
Private Sub Command1Click（ ）
Open"out．txt" For Output As#2
Print”Text1”
Close#2
End Sub
调试时发现没有达到目的，为实现上述目的，应做的修改是（ ）。
[1分]
、
把Print”Text1¨改为Print#2，Text1
、
把Print”Text 1”改为Print Text1
、
把Print”Text1”改为Write”Text1”
、
把所有#2改为#1
答案：
17、【
单选题
】
下列叙述中正确的是（ ）。
[1分]
、
对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n
、
对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n／2)
、
对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(1og2n)
、
对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)
答案：
18、【
单选题
】
执行x$=InputBox("请输入x的值")时，在弹出的对话框中输入123，在列表框List1中选中一个列表项(数据为456)，使结果为123456 的语句是（ ）。
[1分]
、
y=x$+List1．List(0)
、
y=x$+List1．List(1)
、
y=Val(x$)+Val(List1．List(0))
、
y=Val(x$)＆Val(List1．List(1))
答案：
19、【
单选题
】
在窗体上画1个名为Textl的文本框和1个名为Labell的标签，再画4个名为Opl 的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（ ）。
Option Base 1
Dim sales(12)As Long
Private Sub Fo rm Load（ ）
Open"C：＼sales．txt"For Input As#1
For k=1 To 12
Input#1，sales(k)
Nextk
Close#1
End Sub
Private Sub (Index As Integer)
Dim sum As Long，k As Integer，month As Integer
sum=0
m_dj=In&x*
For k=1 To 3
m_dj=month+1
sum=sum+sales(month)
Next k
Label1．Capti_dj=________．Caption＆"销售总额："
Text1=Sum
End Sub
[1分]
、
Op1_Click 3 Op1(Index)
、
Op1_Click 0 Option1(Index)
、
Option1_Click l Op1(Index)
、
Option1_Click 2 Option1(Index)
答案：
20、【
单选题
】
为了使列表框中的项目分为多列显示，需要设置的属性为（ ）。
[1分]
、
Columns
、
Style
、
List
、
MultiSelect
答案：
21、【
单选题
】
下列不能扫开菜单编辑器的操作是（ ）。
[1分]
、
按“Ctrl+E”组合键
、
单击工具栏中的“菜单编辑器”按钮
、
执行“工具”菜单中的“菜单编辑器”命令
、
按“Shift+AIt+M”组合键
答案：
22、【
单选题
】
设X是整型变量，与函数IIf(x>0，-x，x)有相同结果的代数式是（ ）。
[1分]
答案：
23、【
单选题
】
窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1Click（ ）
Dim a(10)，x％
Fork=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print X
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
[1分]
、
10个数中奇数的个数
、
10个数中偶数的个数
、
10个数中奇数的累加和
、
10个数中偶数的累加和
答案：
24、【
单选题
】
下列关于栈的叙述正确的是（ ）。
[1分]
、
栈顶元素最先能被删除
、
栈顶元素最后才能被删除
、
栈底元素永远不能被删除
、
以上三种说法都不对
答案：
25、【
单选题
】
下面程序运行时，若输入“Visual Basic Prograrmming”，则在窗体上输出的是（ ）。Private Sub Command1Click（ ）
Dim cout(25)As Integer，ch As String
ch=Ucase(Int,utBox("请输入字母字符串"))
For k=1 To i en(ch)．
n=ASC(Mid(ch，k，1))-Asc("A")
If n>=0 Then
count(n)=count(n)+1
End If
Next k
m=count(0)
For k=1 To 25
If m<COUNT(K)THEN
m=count(k)
End If
Next k
Print m
End Sub
[1分]
答案：
26、【
单选题
】
设有下列程序
Private Sub Form Click（ ）
X=50
For i=1 T0 4
y=InputBox("请输入一个整数")
y=Val(v)
If y Mod 5=0 Then
a=a+y
x=y
Else
a=a+x
End If
Next i
Print a
End Sub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为（ ）。
[1分]
答案：
27、【
单选题
】
下面正确使用动态数组的是（ ）。
[1分]
、
Dim arr（ ）As Integer
…
ReDim arr(3，5)
、
Dim arr（ ）As Integer
…
ReDim arr(50)As String
、
Dim arr（ ）
…
RcDim arr(50)As Integer
、
Dim arr(50)AS Integer
…
ReDim arr(20)
答案：
28、【
单选题
】
在窗体上面有一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click（ ）
MsgBox Str(123+321)
End Sub
程序运行后，单击命令按钮，则在信息框中显示的提示信息为（ ）。
[1分]
、
字符串“123+321”
、
字符串“444”
、
数值“444”
、
空白
答案：
29、【
单选题
】
窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1 Click（ ）
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（ ）。
[1分]
、
程序不能正常运行，因为函数add的参数定义有错
、
程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
、
程序能正常运行，结果是在窗体上显示15
、
程序能正常运行，结果是在窗体上显示510v3
答案：
30、【
单选题
】
某系统总体结构图如下图所示：
该系统总体结构图的深度是（ ）。
[1分]
答案：
31、【
单选题
】
以下叙述中正确的是（ ）。
[1分]
、
窗体及窗体上所有控件的事件过程代码都保存在窗体文件中
、
在工程中只有启动窗体可以建立菜单
、
窗体名称必须与窗体文件的名称相同
、
程序一定是从某个窗体开始执行的
答案：
32、【
单选题
】
窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并有下面的事件过程：
Private Sub Command1_Click（ ）
Timer1．Enabled=True
End Sub
Private Sub Form_Load（ ）
Timer1．Interval=10
Timer1．Enabled=False
End Sub
Private Sub Timer1 Timer（ ）
Command1．Left=Command1．Left+10
End Sub
程序运行时，单击命令按钮，则产生的结果是（ ）。
[1分]
、
命令按钮每10秒向左移动一次
、
命令按钮每10秒向右移动一次
、
命令按钮每10毫秒向左移动一次
、
命令按钮每10毫秒向右移动一次
答案：
33、【
单选题
】
设a=2，b=3，c=4，d=5，下列表达式的值是（ ）。
Not a<=c Or 4*C=b^2 And b<>a+C
[1分]
答案：
34、【
单选题
】
有两个关系R，S如下：
由关系R通过运算得到关系S，则所使用的运算为（ ）。
[1分]
答案：
35、【
单选题
】
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是（ ）。
[1分]
、
DB包含DBS和DBMS
、
DBMS包含DB和DBS
、
DBS包含DB和DBMS
、
没有任何关系
答案：
36、【
单选题
】
定义无符号整数类为UInt，下面可以作为类UInt实例化值的是（ ）。
[1分]
、
一369
、
369
、
0．369
、
整数集合{1，2，3，4，5}
答案：
37、【
单选题
】
为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是（ ）。
[1分]
、
CD1．DialogTitle=“对话框窗口”
、
CD1．Action=“对话框窗口”
、
CD1．FileName=“对话框窗口”
、
CD1．Filter=“对话框窗口”
答案：
38、【
单选题
】
在窗体上画1个名称为Command1的命令按钮，然后编写下列程序：
Private Sub Command1_Click（ ）
Print fun("ABCDEFG")
End Sub
Function fun(st As String)As string
stlen=Len(st)
temp=""
For k=1 To stlen／2
temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1)
Next k
fun=temp
End Function
程序运行时，单击命令按钮，则在窗体上显示的是（ ）。
[1分]
、
ABCDEFG
、
AGBFCE
、
GFEDCBA
、
AGBFCED
答案：
39、【
简答题】
在窗体上添加通用对话框控件并编写适当的程序代码，要求程序运行时，双击窗口，可以弹出“颜色”对话框。程序运行时的窗体界面如图2—1所示。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj1．frm，工程文件名为sj1．vbp。
[10分]
解析：本题考查通用对话框控件的添加与打开。通用对话框(CommonDiAloG)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框，通用对话框显示这些对话框对应的方法分别为ShowOpEn、ShowSAvE、ShowPrintEr、ShowColor、ShowFont、ShowHElp。该控件运行时不可见。根据题意，新建“标准EXE”工程，在窗体上添加一个CommonDiAloG控件，添加CommonDiAloG控件需要选择“工程”→“部件”命令，或在左侧工箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将MiCrosoFt Common DiAloG Control 6．0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再同其他控件一样添加到窗体上，通过对话框控件的名称为CommonDiAloG1。双击Form1进入代码窗口，编写如下代码：
40、【
简答题】
在窗体Form1上画一个命令按钮，名称为Command1，标题为“打开文件”，在窗体上添加适当的控件爿编写适当的程序代码，要求程序运行时，单击“打开文件”命令按钮，可以弹出“打开文件”对话框。程序运行时的窗体界面如图5-1所示。
注意：保存时必页存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。
[8分]
解析：通用对话框(CommonDialog)提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等撰作的一组标准对话框，通用对话框显示这些对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelp。该控件运行时不可见。通用对话框的Action属性也可用于设置被打开对话框的类型。根据题意，新建“标准EXE”工程，一个命令按钮和一个文件对话框控件添加到窗体中，CommonDialog 控件需要选择“工程”一“部件”命令，或在左侧工具箱中单击鼠标右键，选择“部件”菜单，打开“部件”对话框，将Microsoft Common Dialog Control 6．0前面的复选按钮勾上，单击“确定”按钮，则添加成功，再同其他控件一样添加到窗体上，其名称为CommonDialog1。命令按钮的名称为Command1、Caption属性为“打开文件”。双击Command1进入代码窗口，编写如下代码：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00