1、【
单选题
】
数据库系统的三级模式不包括（ ）。
[1分]
、
概念模式
、
内模式
、
外模式
、
数据模式
答案：
2、【
单选题
】
下列描述中正确的是（ ）。
[1分]
、
Visual Basic 只能通过过程调用执行通用过程
、
可以在Sub过程的代码中包含另一个Sub过程的代码
、
可以像通用过程一样指定事件过程的名字
、
Sub过程和Function过程都有返回值
答案：
3、【
单选题
】
下列数据结构中，能够按照“先进后出”原则存取数据的是（ ）。
[1分]
答案：
4、【
单选题
】
在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：
Sub S(X As Integer，y As Integer)
Static z As Integer
y=x*x+Z
z=y
End Sub
Private Sub Command1 Click（ ）
Dim i As Integer．z As Integer
m=0
z=0
For i=1 T0 3
S i，Z
m=m+z
Next i
Label1．Caption=Str(m)
程序运行后，单击命令按钮，在标签中显示的内容是（ ）。
[1分]
答案：
5、【
单选题
】
下列关于文件的叙述中，错误的是（ ）。
[1分]
、
使用Append方式打开文件时，文件指针被定位于文件尾
、
当以Input打开文件时，如果文件不存在，则自动建立一个新文件
、
顺序文件的各个记录的长度可以不同
、
随机文件打开后．既可以进行读操作，也可以进行写操作
答案：
6、【
单选题
】
执行下列程序段
a$="visual Basic Programming"
b$="C++"
C$=UCase(Left$(a$，7))＆b$＆Right$(a$，1 2)后，变量c$的值为（ ）。
[1分]
、
Visual BASIC Programming
、
VISUAL C++Programming
、
Visual C++Programming
、
VISUAL BASIC Programming
答案：
7、【
单选题
】
如果一个正整数从高位到低位上的数字依次递减，则称其为降序数(如：9632是降序数，而8516则不是降序数)。现编写如下程序，判断输入的正整数是否为降序数。
Private Sub Command1 Click（ ）
Dim n As Long
Dim flag As Boolean
n=InputBox("输入一个正整数")
S=Trim(Str(n))
For i=2 To Len(s)
If Mid(s，i-1，1)
Next i
If i=Len(S)Then flag=True Else flag=False
If flag Then
Print n；"是降序数"
Else
Print n；"不是降序数"
End If
End Sub
运行以上程序，发现有错误，需要对给flag变量赋值的If语句进行修改。以下正确的修改是（ ）。
[1分]
、
If i=Len(s)+1 Then flag=False Else flag=True
、
If i=Len(s)+1 Then flag=True Else flag=False
、
If i=Len(s)-1 Then flag=False Else flag=True
、
If i=Len(s)-1 Then flag=True Else flag=False
答案：
8、【
单选题
】
下面描述中，不属于软件危机表现的是（ ）。
[1分]
、
软件过程不规范
、
软件开发生产率低
、
软件质量难以控制
、
软件成本不断提高
答案：
9、【
单选题
】
下列对于软件测试的描述正确的是（ ）。
[1分]
、
软件测试的目的是证明程序是否正确
、
软件测试的目的是使程序运行结果正确
、
软件测试的目的是尽可能多地发现程序中的错误
、
软件测试的目的是使程序符合结构化原则
答案：
10、【
单选题
】
有如下事件过程：
Private Sub Form Click（ ）
Dim n As Integcr
x=0
n=InputBox("请输入一个整数")
For i=1 To i
for j =1 To j
x=x+1
Next j
Next i
Print x
End sub
程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。
[1分]
答案：
11、【
单选题
】
在窗体上画l个命令按钮和l个文本框，其名称为Command1和Text1，再编写如下程序：
Dim ss As String
Private Sub Text1 KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>""Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Command1 Click（ ）
Dim m As String，i As Integer
For i=Len(ss)To 1 Step-1
m=m+Mid(SS，i，1)
Next
Text1．Text=UCase(m)
End Sub
程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的就是（ ）。
[1分]
、
NUMtBER l00
、
REBMUN
、
REBM UN l00
、
001 REBMUN
答案：
12、【
单选题
】
窗体上有1个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval 属性值为5000，Enabled属性值是True。Timer1的事件过程如下：
Private Sub Timer1 Timer（ ）
Static flag As Integer
If Flag=0 Then Flag=1
Flag=-flag
If flag=1 Then
Text1．ForeColor=＆HFF＆ ＆HFF＆为红色
Else
Text1．ForeColor=＆HCOO＆ ＆HCOO＆为绿色
End If
End Sub
以下叙述中正确的是（ ）。
[1分]
、
每次执行此事件过程时，flag的初始值均为0
、
flag的值只可能取0或1
、
程序执行后，文本框中的文字每5秒改变一次颜色
、
程序有逻辑错误，Else分支总也不能被执行
答案：
13、【
单选题
】
耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是（ ）。
[1分]
、
提高耦合性降低内聚性有利于提高模块的独立性
、
降低耦合性提高内聚性有利于提高模块的独立性
、
耦合性是指一个模块内部各个元素问彼此结合的紧密程度
、
内聚性是指模块间互相连接的紧密程度
答案：
14、【
单选题
】
在新建一个Visual Basic工程时，将新建窗体的Name属性设置为TheFirst，则默认的窗体文件名为（ ）。
[1分]
、
Forml．frm
、
工程1．frm
、
TheFirst．frm
、
Form1．vbp
答案：
15、【
单选题
】
下列程序执行后，变量X的值为（ ）。
Dim a，b，C，d As Single
Dim X As Single
f1=10
b=30
c=400
If b>fl Then
d=fl：fl=b：b=d
End If
If b>C Then
X=b
Else If fl>c Then
X=c
Else
X=a
End If
[1分]
答案：
16、【
单选题
】
有下面的程序段，其功能是按图1所示的规律输出数据：
Dim a(3，5)As Integer For i=1 To 3
For j=1 To 5
a(i，j)=i+j
Print a(i，j)；
Next
Print
Next
若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（ ）。
[1分]
、
For i=1 To 5
For j=1 To 3
Print a(j，i)；
Next
Print
Next
、
For i=1 T0 3
For j=1 To 5
Print a(j，i)；
Next
Print Next
、
For j=l To 5
For i=1 To 3
Print a(j，i)；
Next
Print
Next
、
For i=1 To 5
For=1 To 3
Print a(i，j)：
Next
Print
Next
答案：
17、【
单选题
】
计算的近似值的一个公式是π／4=1-(1／3)+(1／5)-(1／7)+…+(-1)n-1(1／2n -1)。
某人编写下面的程序用此公式计算并输出的近似值：
Private Sub Cornmand1 Click（ ）
P1=1
Sign=1
n=20000
For k=3 To r
Sign=-Sign
PI=PI+SiRn／k
Next k
Print PI*4
End Sub
运行后发现结果勾3．22751，显然，程序需要修改。下面修改方案中正确的是（ ）。
[1分]
、
把For k=3 To n改为For k=1 To n
、
把n=20000改为n=20000000
、
把For k=3 To n改为For k=3 To n Step 2
、
把PI=1改为P1=0
答案：
18、【
单选题
】
有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是（ ）。
[1分]
答案：
19、【
单选题
】
在Visual Basic集成环境中，可以列出工程中所有模块名称的窗口是（ ）。
[1分]
、
工程资源管理器窗口
、
窗体设计窗口
、
属性窗口
、
代码窗口
答案：
20、【
单选题
】
设在工程文件中有一个标准模块，其中定义了下列记录类型：
Type Books
Name As String*10
TelNum As String*20
End，Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1 Click 时，在顺序文件Person．txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是（ ）。
[1分]
、
Private Sub Command1 Click（ ）
Dim B AS Books
Open"Person txt"For Output As#1
Name=InputBox(”输入姓名”)
relNum=lnputBox(”输入电话号码”)
Wlite#1 B Name，B TelNum
Ch,se#1
End Sub
、
Private Sub Command1 Click（ ）
Dim B AS Books
Open"Person txt"For Input As#1
>Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Print#1，B．Name，B．TelNam
Close#1
End Sub
、
Private Sub Command1 Click（ ）
Dim BAS Books
Open"Person txt"For Output As#1
Name=InputBox("输入姓名")
TelNum=InputBox("输入电话号码")
Write#1，B
Close#1
End Sub
、
Private Sub Commandl Click（ ）
Open"Person txt"For Input As#1
Name=lnputBox("输入姓名")
TelNum=lnputBox("输入电话号码")
Prim#1 Name TelNum
Close#1
End Sub
答案：
21、【
单选题
】
使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（ ）。
[1分]
、
Dir1．Path=Drive1．Path
、
File1．Path=Dri1．Path
、
File1．Path=Drive1．Path
、
Drive1．Drive=Dri1．Path
答案：
22、【
单选题
】
若看到程序中确以下事件过程，则可以肯定的是，当程序运行时（ ）。
Private Sub Click—MouseDown(Button As Integer，Shift As Integer，X As Single，Y
As Single)
Print"VB Program"
End Sub
[1分]
、
用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程
、
用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程
、
用鼠标右键单击名称为“MouseDown”的命令按钮时，执行此过程
、
用鼠标左键或右键单击名称为“Click”的命令按钮时，执行此过程
答案：
23、【
单选题
】
用来设置文字字体是否斜体的属性是（ ）。
[1分]
、
FontUnderline
、
FontBold
、
FontSlope
、
FontItalic
答案：
24、【
单选题
】
在窗体上有一个文本框Text1，Text属性值为空，然后编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String，n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)。
Text1．Text=String(n，str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为（ ）。
[1分]
答案：
25、【
单选题
】
设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是（ ）。
[1分]
、
Form1 MouseDown
、
Win MouseDown
、
Form MouseDown
、
MouseDown_Form1
答案：
26、【
单选题
】
对于循环队列，下列叙述中正确的是（ ）。
[1分]
、
队头指针是固定不变的
、
队头指针一定大于队尾指针
、
队头指针一定小于队尾指针
、
队头指针可以大于队尾指针，也可以小于队尾指针
答案：
27、【
单选题
】
在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：
Option Base 0
Private Sub Command1 Click（ ）
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
[1分]
答案：
28、【
单选题
】
下列各控件不包含滚动条的控件是（ ）。
[1分]
、
Lis tBox
、
ComboBox
、
TextBox
、
Label
答案：
29、【
单选题
】
软件按功能可以分为：应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是（ ）。
[1分]
、
编译程序
、
操作系统
、
教务管理系统
、
汇编程序
答案：
30、【
单选题
】
窗体上有名称为Option1的单选按钮，且程序中有语句：
If（ ）ption1．Value—True Then
下面语句中与该语句不等价的是（ ）。
[1分]
、
If Option1．Value Then
、
If Option1一True Then
、
If Value=True Then
、
If Option1 Then
答案：
31、【
单选题
】
窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click（ ）
CommonDialog．DefaultExt="doc"
CommonDialog．FileName="VB．txt"
CommonDialog．Filter="All(*．*)|*．*|Word|．Doc|"
CommonDialog．FilterIndex=1
CommonDialog．ShowSave
End Sub
运行上述程序，如下叙述中正确的是（ ）。
[1分]
、
打开的对话框中文件“保存类型”框中显示All(*．*)
、
实现保存文件的操作，文件名是VB．txt
、
DefaultEx1属性与FileName属性所指明的文件类型不一致，程序出错
、
对话框的Fiber属性没有指出txt类型，程序运行出错
答案：
32、【
单选题
】
树是结点的集合，它的根结点的数目是（ ）。
[1分]
、
有且只有1个
、
1或多于1
、
0或1
、
至少有2个
答案：
33、【
单选题
】
在窗体上建立通用对话框需要添加的控件是（ ）。
[1分]
、
Data控件
、
Form控件
、
CommonDialog控件
、
VBComboBox控件
答案：
34、【
单选题
】
下述关于数据库系统的叙述中，正确的是（ ）。
[1分]
、
数据库系统减少了数据冗余
、
数据库系统避免了一切冗余
、
数据库系统中数据的一致性是指数据类型一致
、
数据库系统比文件系统能管理更多的数据
答案：
35、【
单选题
】
窗体上有一-个Text1文本框，一个Command1命令按钮，并有以下程序：
Private Sub Command1 Click（ ）
Dim n
If Text1．Text<>"123456"Then
n=n+1
Print"口令输入错误”＆n＆”次"
End If
End Sub
希望程序运行时得到左图所示的效果，即：输入口令，单击“确定口令’’命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是（ ）。
[1分]
、
在Dim n语句的下面添加一句：n=0
、
把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”+n+“次”
、
把Print“口令输入错误”＆n＆“次”改为Print“口令输入错误”＆Str(n)＆“次”
、
把Dim n改为Static n
答案：
36、【
单选题
】
设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d)，10，20)后，X的值是（ ）。
[1分]
答案：
37、【
单选题
】
有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是（ ）。
[1分]
、
Private Sub Vorm Click（ ）
PopupMenu cut
End Sub
、
Private Sub Command1 Click（ ）
PopupMenu edit
End Sub
、
Private Sub Form Click（ ）
PopupMenu edit
End Sub
、
Private Sub Form Click（ ）
PopupMenu cut
PopupMenu paste
End Sub
答案：
38、【
简答题】
在窗体上建立一个二级菜单，该菜单含有“文件”和“编辑”(名称分别为vbFile和vbEdit)两个主菜单项，其中“文件”菜单包括“打开”、“保存”和“关闭”三个子菜单项(名称分别为vbOpen、vbSave和vbClose)，如图8-1所示。只建立菜单，不必定义其事件过程。
注意：保存时必须存放在考生文件夹下，窗体文件名为Sj1．frm，工程文件名为Sj1．vbp。
[8分]
解析：
39、【
简答题】
在名称为Form1的窗体上创建两个名称分别为Option1和Option2，标签分别为“教授”和“研究员”的单选按钮，再建立一个名称为Label1的标签，实现如下功能：
当选中“教授”时，标签上显示“博士学位以上”，如果选中“研究员”，则标签上显示“硕士学位以上”，结果如图7-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为Sj1．vbp，窗体文件名为Sj1．frm。
[10分]
解析： 根据题意，新建“标准EXE”工程，在窗体上添加一个Labe1控件和两个Option控件，设置Label1的名称为Label1、Caption属性为空，Option的名称分别为0ption1和Option2、Caption属性分别为“教授”和“研究员”。设计完成后，进入代码窗口编写如下代码：
40、【
简答题】
在考生文件夹下有一个工程文件sj4．vbp与窗体文件sj4．frm，在Form1的窗体中有一个标签、两个命令按钮和一个计时器。要求程序运行时实现以下功能：单击“开始”按钮，就开始倒计数，每隔1秒，文本框中的数减1；单击“停止”按钮，则停止计数，初始计数为60，当计数到0时，则重新从60开始倒计数。如图2—4所示。
注意：修改适当的控件的属性，并去掉程序中的注释符“'”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。考生完成程序编写后，将-工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。
[12分]
解析：本题主要考查计时器控件的使用。计时器是否启用通过Enabled属性设置，值为True时启用，值为False不启用。启用后间隔多长时间触发一次其Timer事件由其Interval属性设置，Interval属性的单位为毫秒，缺省值为0，此时计时器也不启用。根据题意，将一个标签、两个命令按钮和一个计时控件添加到窗体中，标签的名称为Label1、Caption属性为60，命令按钮的名称分别为Command1和Command2，Caption属性分别为“开始”和“停止”，Timer的名称为Timer1。双击Commandl进入代码窗口，补充后的代码如下：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00