2014年全国计算机等级《二级VB》考前押密试题(4)-在线考试系统

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分]

、 0

、 1

、 2

、 3

答案：

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分]

、 0

、 2

、 False

、 True

答案：

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分]

、 10

、 0

、 11

、 21

答案：

18、【单选题】
执行下列程序段后，整型变量n 的值为（　　）。
n ＝0
For i ＝1To 20Step 5
n ＝n ＋1
Next i [1分]

、 50

、 4

、 15

、 210

答案：

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分]

、 1 5

、 0 5

、 0 0

、程序有错

答案：

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分]

、 10

、 12

、 16

、 20

答案：