1、【
单选题
】
下列关于货币型数据的描述，正确的是（ ）。
[1分]
、
货币型数据有时可以表示成整型数据
、
货币型数据与浮点型数据完全一样
、
货币型数据是由数字和小数点组成的字符串
、
货币型数据是小数点位置固定的实型数
答案：
2、【
单选题
】
执行下列语句：
strInput ＝InputBox（＂请输入字符串＂，＂字符串对话框＂，＂字符串＂）
将显示输入对话框。此时如果直接单击"确定"按钮，则变量strlnput 的内容是（ ）。
[1分]
、
＂请输入字符串＂
、
＂字符串对话框＂
、
＂字符串＂
、
空字符串
答案：
3、【
单选题
】
在窗体上有一个文本框控件，名称为Txt Ti me ，一个计时器控件，名称为Ti mer1，要求每一秒钟在文本框中显示一次当前的时间。程序如下：
Private Sub Ti mer1＿（）
Txt Ti me ．text ＝Ti me
End Sub
在横线上应填入的内容是（ ）。
[1分]
、
Enabled
、
Visi ble
、
Interval
、
Timer
答案：
4、【
单选题
】
设a ＝＂Visual Basic＂，下面使b ＝＂Basic＂的语句是（ ）。
[1分]
、
b ＝Left（a，8，12）
、
b ＝Mid（a，8，5）
、
b ＝Rigth（a，5，5）
、
b ＝Left（a，8，5）
答案：
5、【
单选题
】
执行语句Di m X，Y As Integer 后，（ ）。
[1分]
、
X 和Y 均被定义为整型变量
、
X 和Y 均被定义为变体类型变量
、
X 被定义为整型变量，Y 被定义为变体类型变量
、
X 被定义为变体类型变量，Y 被定义为整型变量
答案：
6、【
单选题
】
以下关于多重窗体程序的叙述中，错误的是（ ）。
[1分]
、
用Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体
、
在多重窗体程序中，各窗体的菜单是彼此独立的
、
在多重窗体程序中，可以根据需要指定启动窗体
、
对于多重窗体程序，需要单独保存每个窗体
答案：
7、【
单选题
】
只有将组合框的Style 属性设置为何值，才能触发DblClick 事件？（ ）。
[1分]
答案：
8、【
单选题
】
数据流图中带有箭头的线段表示的是（ ）。
[1分]
、
控制流
、
事件驱动
、
模块调用
、
数据流
答案：
9、【
单选题
】
SQL语言又称为（ ）。
[1分]
、
结构化定义语言
、
结构化控制语言
、
结构化查询语言
、
结构化操纵语言
答案：
10、【
单选题
】
源程序的文档化不包括（ ）。
[1分]
、
符号名的命名要有实际意义
、
正确的文档形式
、
良好的视觉组织
、
正确的程序注释
答案：
11、【
单选题
】
窗体上有一个列表框和一个文本框，编写下列两个事件过程：
Private Sub Form．Load（ ）
List1．AddIte m＂北京＂
List1．AddIte m＂天津＂
List1．AddIte m＂上海＂
Textl ．Text ＝＂＂
End Sub
Private Sub List1．Click（ ）
Print Textl ．Text ＋List1．Text
End Sub
程序运行后，在文本框中输入"中国"，然后单击列表框中的"北京"，则输出结果是（ ）。
[1分]
、
中国北京
、
中国天津
、
中国上海
、
北京中国
答案：
12、【
单选题
】
为了在列表框中使用Ctrl 和Shift 键进行多个列表项的选择，应将列表框的Multi Select 属性设置为（ ）。
[1分]
答案：
13、【
单选题
】
设有如下程序：
Option Base l
Private Sub Form＿Click（）
Di ma（5）As Stri ng ，i As Integer
For i ＝1To 5
a（i）＝Chr（Asc（＂A＂）＋i）
Call f（a，i）
Next i
End Sub
Sub f（ta（）As Stri ng ，n As Integer）
Di mi As Integer
For i ＝1To n
Print ta（i）；
Next i Print
End Sub
对上述程序，以下叙述中正确的是（ ）。
[1分]
、
程序有错，因为在过程f 的定义中数组参数格式不正确
、
程序可正常运行，输出内容的第一行是一个字母"A"
、
程序可正常运行，输出内容的第一行是一个字母"B"
、
程序可正常运行，输出内容的第一行是数字65
答案：
14、【
单选题
】
下列符号常量的声明中，不合法的是（ ）。
[1分]
、
Const a As Si ngle ＝1．1
、
Const a＝＂OK＂
、
Const a As Double ＝Si n（1）
、
Const a As Integer ＝＂12＂
答案：
15、【
单选题
】
MsgBox 函数的返回值的类型为（ ）。
[1分]
、
数值型
、
变体类型
、
字符串型
、
日期型
答案：
16、【
单选题
】
下列说法正确的是（ ）。
[1分]
、
任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器
、
只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
、
只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
、
任何时候都可以使用D．任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器
答案：
17、【
单选题
】
在窗体上画一个命令按钮（名称为Co mmand1），并编写下列代码：
Function Funl （ByVal a As Integer ，b As Integer）As Integer
Di mt As Integer t ＝a－b
b ＝t ＋a
Funl ＝t ＋b
End Function
Private Sub Co mmand1＿Click（）
Di mx As Integer
x＝10
Print Funl（Funl（x，（Funl（x，x－1））），x－1）
End Sub
程序运行后，单击命令按钮，输出结果是（ ）。
[1分]
答案：
18、【
单选题
】
执行下列程序段后，整型变量n 的值为（ ）。
n ＝0
For i ＝1To 20Step 5
n ＝n ＋1
Next i
[1分]
答案：
19、【
单选题
】
设有变量声明为"Di m aDate As Date"，则为变量aDate 正确赋值的表达方式是（ ）。
[1分]
、
aDate ＝＃8／2008＃
、
aDate ＝＃＂8／8／2008＂＃
、
aDate ＝Date（＂8／8／2008＂）
、
aDate ＝Format（＂m／d／yy＂，＂8／8／2008＂）
答案：
20、【
单选题
】
下列叙述中错误的是（ ）。
[1分]
、
在通用过程中，多个形式参数之间可以用逗号作为分隔符
、
在Print 方法中，多个输出项之间可以用逗号作为分隔符
、
在Di m 语句中，所定义的多个变量可以用逗号作为分隔符
、
当一行中有多个语句时，可以用逗号作为分隔符
答案：
21、【
单选题
】
窗体上有一个名称为Co mmand1的命令按钮，其事件过程如下：
Private Sub Co mmand1＿Click（）
Di mi As Integer ，j As Integer ，k As Integer
Di ms As Double
s ＝0：i ＝1：j＝0：k ＝－1
Do While i ＜6
s ＝s ＋k＊（j／i）
i ＝i ＋1
j＝j＋1
k ＝－k
Loop
Print s
End Sub
以上程序所计算的表达式是（ ）。
[1分]
、
1／2－2／3＋3／4－4／5
、
－1／2＋2／3－3／4＋4／5
、
1－1／2＋2／3－3／4＋4／5
、
－1＋1／2－2／3＋3／4－4／5
答案：
22、【
单选题
】
在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：
Private Sub Co mmand1＿Click（）
x＝0
Do While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋1
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
[1分]
、
1和0
、
2和72
、
3和50
、
4和168
答案：
23、【
单选题
】
某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
Private Sub Co mmand1＿Click（ ）
Di ma（10）As Integer ，max As Integer
For k ＝1TO 10
a（K）＝InputBox（＂输入一个整数＂）
Next k
Max＝0
For k ＝1To 10
If a（k）＞max Then
Max＝a（k）
End If
Next k
Print max
End Sub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是（ ）。
[1分]
、
把If a（k）＞max Then 改为If a（k）＜max Then
、
把max＝a（k）改为a（k）＝max
、
把第2个循环语句For k ＝1TO 10改为For k ＝2TO 10
、
把max＝0改为max＝a（10）
答案：
24、【
单选题
】
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Co mmand1，然后编写下列程序：
Private Sub func（LAs Label）
L .Caption ＝＂1234＂
End Sub
Private Sub Form＿Load（）
Label1．Caption ＝＂ABCDE＂
Label2．Caption ＝10
End Sub
Private Sub Co mmand1＿Click（）
a＝Val（Label2．Caption）
Call func（Label1）
Label2．Caption ＝a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（ ）。
[1分]
、
ABCD 和10
、
1234和100
、
ABCD 和100
、
1234和10
答案：
25、【
单选题
】
要在命令按钮控件上显示图像应（ ）。
[1分]
、
设置Picture 属性
、
实现不了
、
先将Style 设置为1，然后再设置Picture 属性
、
以上都不对
答案：
26、【
单选题
】
窗体上有一个名称为CD1的通用对话框，一个名称为Co mmand1的命令按钮。命令按钮的单击事件过程如下：
Private Sub Co mmand1＿Click（）
CD1．File Name ＝＂＂
CD1．Filter ＝＂All Files｜＊．＊｜（＊．Doc）｜＊．Doc｜（＊．Txt）｜＊．Txt＂
CD1．FilterIndex＝2
CD1．Action ＝1
End Sub
关于以上代码，叙述错误的是（ ）。
[1分]
、
执行以上事件过程，通用对话框被设置为"打开"文件对话框
、
通用对话框的初始路径为当前路径
、
通用对话框的默认文件类型为＊．Txt
、
以上代码不对文件执行读写操作
答案：
27、【
单选题
】
可以产生30～50(含30和50)之间的随机整数的表达式是( )。
[1分]
、
Int(Rnd*21+30)
、
Int(Rnd*20+30)
、
Int(Rnd*50-Rnd*30)
、
Int(RND*30+50)
答案：
28、【
单选题
】
在窗体上建立通用对话框需要添加的控件是（ ）。
[1分]
、
Data 控件
、
Fro m 控件
、
Co mmonDialog 控件
、
VBCo mboBox 控件
答案：
29、【
单选题
】
设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是（ ）。
[1分]
、
Menu1．Enabled ＝True
、
Menu1．Enabled ＝False
、
Menu1．Visi ble ＝True
、
Menu1．Visi ble ＝False
答案：
30、【
单选题
】
声明一个变量为局部变量应该用（ ）。
[1分]
、
Global
、
Private
、
Static
、
Public
答案：
31、【
单选题
】
如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（ ）。
[1分]
、
任何时刻最多只有一个窗体是活动窗体
、
不能把标准模块设置为启动模块
、
用Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体
、
如果工程中含有Sub Main 过程，则程序一定首先执行该过程
答案：
32、【
单选题
】
已知a＝5，b ＝／，c ＝12，下列表达式的值为True 的是（ ）。
[1分]
、
a＞b And c ＜a
、
a＞b Or c ＜a
、
a＞b Xor c ＜a
、
a＞a Eqv c ＜a
答案：
33、【
单选题
】
在设计窗体时双击窗体的任何地方，可以打开的窗口是（ ）。
[1分]
、
代码窗口
、
属性窗口
、
工程资源管理器窗口
、
工具箱窗口
答案：
34、【
单选题
】
设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。
Form1的代码如下：
Public X As Integer
Private Sub Form＿load（）
x＝1
y ＝5
End Sub
Private Sub Co mmand1＿Click（）
Form2．Show
End Sub
Form2的代码如下：
Private Sub Co mmand1＿Click（）
Print Form1．x，y
End Sub
Module1的代码如下：
Public y As Integer
运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。
[1分]
答案：
35、【
单选题
】
在Visual Basic 工程中，可以作为"启动对象"的程序是（ ）。
[1分]
、
任何窗体或标准模块
、
任何窗体或过程
、
Sub Main 过程或其他任何模块
、
Sub Main 过程或任何窗体
答案：
36、【
单选题
】
将文本框的Pass wordChar 属性设置为一个星号＊，运行时，在文本框中输入的字符仍然显示出来，而不显示星号，原因可能是（ ）。
[1分]
、
文本框的Multi Li ne 属性值为True
、
文本框的Looked 属性值为True
、
文本框的Multi Li ne 属性值为False
、
文本框的Looked 属性值为False
答案：
37、【
单选题
】
有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset（X，Y）的功能是在坐标X，Y 处画一个点）：
Di mc mdmave As Boolean
Private Sub Form＿MouseDown （Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝True
End Sub
Private Sub Form＿Mouse Move（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） If c mdmave Then Form1．Pset（X，Y）
End If
End Sub
Private Sub Form＿Mouse Up（Button As Integer ，ShiftAs Integer ，X As Si ngle ，Y As Si ngle） c mdmave ＝False
End Sub
此程序的功能是（ ）。
[1分]
、
每按下鼠标键一次，在鼠标所指位置画一个点
、
按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失
、
不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线
、
按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线
答案：
38、【
单选题
】
在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：
Private Sub Form＿Load（）
Command2．Enabled ＝False
Check1．Value ＝1
End Sub
刚运行程序时，看到的窗体外观是（ ）。
[1分]
答案：
39、【
单选题
】
下列程序的执行结果为（ ）。
Private Sub Co mmand1＿Click（）
Di mp As Integer ，q As Integer
p ＝12：q ＝20 Call Value（p ，q）
Print p ；q
End Sub
Private Sub Value（ByVal m As Integer ，ByVal n AsInteger）
m＝m＊2：n ＝n －5
Print m；n
End Sub
[1分]
、
20 12
20 15
、
12 20
12 25
、
24 15
12 20
、
24 12
12 15
答案：
40、【
单选题
】
在窗体上放置一个命令按钮Co mmand1，并编写下列单击事件的程序：
Option Base 1
Private Sub Co mmand 1＿Click（）
Di mc As Integer ，d As Integer
d ＝0
c ＝6
X＝Array（2，4，6，8，10，12）
For i ＝1To 6
If X（i）＞c Then
d ＝d ＋X（i）
c ＝X（i）
Else
d ＝d －c
End If
Next i
Print d
End Sub
程序运行后，单击命令按钮，则在窗体上输出的内容为（ ）。
[1分]
答案：
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00