1、【
单选题
】
以下程序运行后的窗体如图所示，其中组合框的名称是Combo1，已有列表项如图所示；命令按钮的名称是Command1。
Private，Sub Command1_Click（ ）
If Not Check(Combo1．Text)Then
MsgBox("输入错误")
Exit Sub
End If
For k=0 To Comb01．ListCount-1
If Comb01．Text=Combo1．List(k)Then
MsgBOX("添加项目失败")
Exit Sub
End If
Next k
Cornbol．AddItem Combo1．Text
MsgBOX("添加项目成功")
End Sub
Private Function Check(ch As String)As Boolean
n=Len(ch)
For k=1 To n
c$=Ucace(Mid(ch，k，1))
If c<"A"Or c>"Z"Then
Check=False
Exit Function
End If
Next k
Check=True
End Function
程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（ ）。
[1分]
、
显示“输入错误”
、
显示“添加项目失败”
、
显示“添加项目成功”
、
没有任何显示
答案：
2、【
单选题
】
下列关系表达式中，其值为True的是（ ）。
[1分]
、
"XYZ">"XYz"
、
"VisualBasic"<>"visualbasic"
、
"the"="there"
、
"Integer"<"Int"
答案：
3、【
单选题
】
如果一个变量未经定义就直接使用，则该变量的类型为（ ）。
[1分]
、
Inieger
、
Byte
、
Boolean
、
Variant
答案：
4、【
单选题
】
Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数X是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim ii As Integer，b As Integer，C As Integer，flag As Boolean
flag=False
a=1：b=1
Do While x<B
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（ ）。
[1分]
、
把a=b与b=C的位置互换
、
把c=a+b移到b=C之后
、
把Do While xb
、
把If x=b Then flag=True改为If x=a Then flag True
答案：
5、【
单选题
】
下面可以产生20～30(含20和30)的随机整数的表达式是（ ）。
[1分]
、
Int(Rnd*10+20)
、
Int(Rnd*11+20)
、
Int(Rnd*20+30)
、
Int(Rnd*30+20)
答案：
6、【
单选题
】
设有如下变量声明语句：
Dim a，b As Boolean
则下面叙述中正确的是（ ）。
[1分]
、
a和b都是布尔型变量
、
a是变体型变量，b是布尔型变量
、
a是整型变量，b是布尔型变量
、
a和b都是变体型变量
答案：
7、【
单选题
】
如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（ ）。
[1分]
、
它的Y1、Y2属性的值相等
、
它的 X1、X2属性的值相等
、
它的X1、Y1属性的值分别与X2、Y2属性的值相等
、
它的 X1、X2属性的值分别与Y1、Y2属性的值相等
答案：
8、【
单选题
】
若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指（ ）。
[1分]
、
按钮左端到窗体左端的距离
、
按钮左端到图片框左端的距离
、
按钮中心点到窗体左端的距离
、
按钮中心点到图片框左端的距离
答案：
9、【
单选题
】
执行语句Dim X，Y As Integer后，（ ）。
[1分]
、
X和Y均被定义为整型变量
、
X和Y均被定义为变体类型变量
、
X被定义为整型变量，Y被定义为变体类型变量
、
X被定义为变体类型变量，Y被定义为整型变量
答案：
10、【
单选题
】
要求生产10个随机整致，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：
Option Base 1
Privare Sub Command1 Click（ ）
Dim arr(10)As Integer
For i=1To 10循环1
Arr(i)，=Int(Rnd*100)
Print arr(i)；
Next i
x=InputBox("输入1—10的一个整数：")
For i=X+1 To 10循环2
arr(i-1)=arr(i)
Next i
For i=x-1 To 10 循环3
Print arr(i)
Next i
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是（ ）。
[1分]
、
产生随机数时不使用Int函数
、
循环2的初值应为i= x
、
数组定义改为Dim a(11)As Integer
、
循环3的循环终值应改为9
答案：
11、【
单选题
】
设有如下程序段：
Dim a(10)
…
For Each X In a
Print X；
Next x
在上面的程序段中，变量X必须是（ ）。
[1分]
、
整型变量
、
变体型变量
、
动态数组
、
静态数组
答案：
12、【
单选题
】
下列关于函数过程的叙述中，正确的是（ ）。
[1分]
、
函数过程形参的类型与函数返回值的类型没有关系
、
在函数过程中，过程的返回值可以有多个
、
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
、
如果不指明函数过程参数的类型，则该参数没有数据类型
答案：
13、【
单选题
】
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…
要求编写程序输出该数列中所有不超过1000的数。
某人编写程序如下：
Private Sub Form Click（ ）
Dim i As Intender，a As Integer，b As Integer
Dim C As Integer，d As Integer
a=0：b=1：c=1
d=a4-b4-c
i=5
While d<=1C00
Print d；
a=b：b=c：c=d
d=a+b+c
i=i+1
Wend
End Sub
运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。
[1分]
、
把While d<=1000改为while d>1000
、
把i=5改为i=4
、
把i=i+1移到While d<=1000的下面
、
在i=5的上面增加一个语句：Print a；b；C；
答案：
14、【
单选题
】
假定用下面的语句打开文件：
Open"Filcl．txt"For Input As#1
则不能正确读文件的语句是（ ）。
[1分]
、
Input#1，ch$
、
Line Input#1，ch$
、
ch$一Input$(5，#1)
、
Read#1，ch$
答案：
15、【
单选题
】
设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是（ ）。
[1分]
、
Name
、
Index
、
Caption
、
Left
答案：
16、【
单选题
】
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Public Enum S
a=4
b=3
End Enum
Private Sub Command1 Click（ ）
Dim x As Integer
x=a
If x>=3 Then MsgBox"Pass!"
End Sub
运行程序，其结果是（ ）。
[1分]
、
运行错误．因为Enum定义有错
、
运行错误．因为x=a类型不匹配
、
运行正常结束，不显示任何信息
、
运行正常．显示内容为“Pass!”的信息框
答案：
17、【
单选题
】
层次型、网状型和关系型数据库划分原则是（ ）。
[1分]
、
记录长度
、
文件的大小
、
联系的复杂程度
、
数据之间的联系方式
答案：
18、【
单选题
】
在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
Private Sub Form Load（ ）
Command2．Enabled=False
Check1．Value=1
End Sub
刚运行程序时，看到的窗体外观是（ ）。
[1分]
答案：
19、【
单选题
】
下列关于文件的叙述中，错误的是（ ）。
[1分]
、
使用Append方式打开文件时，文件指针被定位于文件尾
、
当以Input打开文件时，如果文件不存在，则自动建立一个新文件
、
顺序文件的各个记录的长度可以不同
、
随机文件打开后，既可以进行读操作，也可以进行写操作
答案：
20、【
单选题
】
在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click（ ）
Dim a
a=Array(1，2，3，4)
i=3：j=1
Do While>=0
s=s+a i)*j
i=i-1
j=j*1c
Loop
Print S
End Sub
运行上面的程序，单击命令按钮，则输出结果是（ ）。
[1分]
、
4321
、
123
、
234
、
1234
答案：
21、【
单选题
】
假定有下列程序段
For i=1 TO 3
For j=5 TO 1 Step-1
Print i*j
Next j
Next i
则语句Print i*j的执行次数是（ ）。
[1分]
答案：
22、【
单选题
】
以下关予多窗体的叙述中，正确的是（ ）。
[1分]
、
任何时刻，只有一个当前窗体
、
向一个工程添加多个窗体，存盘后生成一个窗体文件
、
打开一个窗体时，其他窗体自动关闭
、
只有第一个建立的窗体才是启动窗体
答案：
23、【
单选题
】
如果执行一个语句后弹出如图所示的窗口，则这个语句是（ ）。
[1分]
、
InputBox("输人框"，"请输入VB数据")
、
x=InputBox("输入框"，"请输入VB数据")
、
InputBox("请输入VB数据"，"输入框")
、
x=InputBox("清输入VB数据"，"输入框")
答案：
24、【
单选题
】
软件生命周期是指（ ）。
[1分]
、
软件产品从提出、实现、使用维护到停止使用退役的过程
、
软件从需求分析、设计、实现到测试完成的过程
、
软件的开发过程
、
软件的运行维护过程
答案：
25、【
单选题
】
假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2 组成。
Model1代码如下：
Public X As Integer
Public Y As Integer
Sub S1（ ）
x=1
S2
End Sub
Sub S2（ ）
y=10
Form1．Show
End Sub
Model2的代码如下：
Sub Main（ ）
S1
End Sub
其中Sub Main被设置为启动过程。程序运行后，各模块的执行顺序是（ ）。
[1分]
、
Form1→Model1→Model2
、
Model1→Model2→Form1
、
Model2→Model1→Form1
、
Model2→Form1→Model1
答案：
26、【
单选题
】
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1)，并把窗体的KeyPreview属性设置为True，然后编写下列代码：
Dim SaveAll As String
Private Sub Form Load（ ）
Show
Text1．Text=""
Text1．SetFocus
End Sub
Private Sub Command1 Click（ ）
Text1．Text=LCase(SaveAll)+SaveAll
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后，直接用键盘输入VB，再单击命令按钮，则文本框中显示的内容为（ ）。
[1分]
、
vbVB
、
不显示任何信息
、
VB
、
出错
答案：
27、【
单选题
】
在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 Click（ ）
Dim a$，b$，c$，k％
a="ABCD"
b="123456"
c=""
k=1
Do While k<=Len(a)Or k<=Len(b)
If k<=Len(a)Then
c=c＆Mid(a，k，1)
End If
If k<=Len(b)Then
c=c＆Mid(a，k，1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是（ ）。
[1分]
、
123456ABCD
、
ABCD123456
、
D6C584A321
、
A1B2C3D456
答案：
28、【
单选题
】
在窗体上画一个名称为Command1的命令按钮，然后编写下列事件过程：
Private Sub Command1Click（ ）
C=1234
c1=Trim(Str(c))
For i=1 To 4
Print
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示下列内容：1
12
123
1234
则在横线处应填入的内容为（ ）。
[1分]
、
Right(c1，i)
、
Left(c1，i)
、
Mid(c1，i，1)
、
Mid(c1，i，i)
答案：
29、【
单选题
】
请阅读程序．
0ption Base 1
Private Sub Fo,m Click（ ）
Dim Arr(4，4)As Integer
For i=1 To 4
For j=1 To 4
Arr(i，j)=(i=1)*2+j
Next j
Next i
For i=3 To 4
For j=3 To 4
Print Arr(j，i)；
Next j
Print
Next i
End Sub
程序运行后，单。旨窗体，则输出结果是（ ）。
[1分]
、
5 7
6 8
、
6 8
7 9
、
7 9
8 10
、
8 10
8 11
答案：
30、【
单选题
】
在窗体上面1个名称为Command1的命令按钮，然后编写下列事件过程
Option Base 1
Private Sub，Command1 Click（ ）
Dim a(5，5)ks Integer
For i=1 To j
For j=1 To 5
a(i，j)=(i+j)*5＼10
Next j
Next i
S=0
For i=1 To j
s=s+a(i，i)
Next i
Print s
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
[1分]
答案：
31、【
单选题
】
下列数据结构中，属于非线性结构的是（ ）。
[1分]
、
循环队列
、
带链队列
、
二叉树
、
带链栈
答案：
32、【
单选题
】
以下说法中错误的是（ ）。
[1分]
、
如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的作用相同
、
可以用多个命令按钮组成命令按钮数组
、
命令按钮只能识别单击(Click)事件
、
通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用
答案：
33、【
单选题
】
假定通过复制、粘贴操作建立了一个命令按钮数组Command1，下列说法中错误自是（ ）。
[1分]
、
数组中每个命令按钮的名称(Name属性)均为Command1
、
若未做修改，数组中每个命令按钮的大小都一样
、
数组中各个命令按钮使用同一个Click事件过程
、
数组中每个命令按钮的Index属性值都相同
答案：
34、【
单选题
】
设窗体中有一个文本框Text1，若在程序中执行了Text1．SetFocus，则触发（ ）。
[1分]
、
Text1的SetFocus事件
、
Text1的GotFocus事件
、
Text1的LostFocus事件
、
窗体的GotFocus事件
答案：
35、【
单选题
】
下列选项中不属于面向对象程序设计特征的是（ ）。
[1分]
答案：
36、【
单选题
】
在程序运行时，下面的叙述中正确的是（ ）。
[1分]
、
用鼠标右键单击窗体中任何无控件部分，会执行窗体的Form—Load事件过程
、
用鼠标左键单击窗体的标题栏，会执行窗体的Form—Click事件过程
、
只装入而不显示窗体，也会执行窗体的Form—Load事件过程
、
装入窗体后，每次显示该窗体时，都会执行窗体的Form—Click事件过程
答案：
37、【
单选题
】
在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Diln S1 As String，S2 As String
Private Sub Form Load（ ）
Text1．Text=""
Text2．Text=""
Text1．Enabled=False
Text2．Enabled=False
End Sub
Private Sub Form KeyDown(KeyCode As Integer，Shift As Integer)
S2=S2＆Chr(KeyCode)
End Sub
Pri vate Sub Form KeyPress(KeyAscii As Integer)
S1=S1＆Chr(KeyAscii)
End Sub
Private Sub Command1 Click（ ）
Text1．Text=S1
Text2．Text=S2
S1=""
S2=""
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（ ）。
[1分]
、
abc和ABC
、
空白
、
ABC和abc
、
出错
答案：
38、【
单选题
】
为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是（ ）。
[1分]
、
把这2组单选按钮设置为名称不同的2个控件数组
、
使2组单选按钮的Index属性分别相同
、
使2组单选按钮的名称分别相同
、
把2组单选按钮分别画到2个不同的框架中
答案：
39、【
单选题
】
设窗体文件中有下面的事件过程：
Private sub Command1 Click（ ）
Dim S
a%=100
Print a
End Sub
其中变量a和s的数据类型分别是（ ）。
[1分]
、
整型，整型
、
变体型，变体型
、
整型，变体型
、
变体型，整型
答案：
40、【
单选题
】
设R是一个二元关系，S是一个三元关系，则下列运算中正确的是（ ）。
[1分]
答案：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00