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

1、【单选题】
任何控件都有的属性是( )。 [1分]

、 BackColor

、 Caption

、 Name

、 BorderStyle

答案：

2、【单选题】
设计数据库的存储结构属于（　　） [1分]

、需求分析

、概念设计

、逻辑设计

、物理设计

答案：

3、【单选题】
某人创建了1个工程，其中的窗体名称为Form1；之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（　　）。 [1分]

、在工程属性对话框中把"启动对象"设置为Form2

、在Forml 的Load 事件过程中加入语句Load Form2

、在Form2的Load 事件过程中加入语句Form2．Show

、把Form2的TabIndex 属性设置为l ，把Form1的TabIndex 属性设置为2

答案：

4、【单选题】
设有如下通用过程：
Public Function Fun（xStr As Stri ng）As Stri ng
Di mt Str As Stri ng ，strLAs Integer
tStF＝＂＂
strL＝Len（xStr）
i ＝1 Do While i ＜＝strL／2
tStr ＝Tstr ＆Mid（xStr ，i ，1）＆Mid（xStr ，strL－i＋1，1）
i ＝i ＋l
Loop
Fun ＝tStr
End Function
在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程：
Private Sub Co mmandI＿Click（）
Di mS1As Stri ng
S1＝＂abedef＂
Pri m UCase（Fun（S1））
End Sub
程序运行后，单击命令按钮，输出结果是（　　）。 [1分]

、 ABCDEF

、 abcdef

、 AFBECD

、 DEFABC

答案：

5、【单选题】
下列关于栈的描述正确的是（　　）。 [1分]

、在栈中只能插入元素而不能删除元素

、在栈中只能删除元素而不能插入元素

、栈是特殊的线性表，只能在一端插入或删除元素

、栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

答案：

6、【单选题】
下列程序段的运行结果是（　　）。
Sub sele（　　）
Di mn As Integer
i ＝21：n ＝3
Do While i ＞n
i ＝i －n
Loop
Print i
End Sub [1分]

、 2

、 4

、 5

、 3

答案：

7、【单选题】
复选框的Value 属性为0时，表示该复选框（　　）。 [1分]

、未被选中

、被选中

、框内有灰色的勾

、操作有误

答案：

8、【单选题】
在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是（　　）。
　

　 [1分]

、 Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂
For k ＝0To 3
If Check1（k）．value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格 End If Next k
End Sub

、 Private Sub Check1＿Click（Index As Integer）
For k ＝0To 3
If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格
End If
Next k
End Sub

、 Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂ For k ＝0To 3 If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（Index）．Caption ＆＂＂双引号中是空格
End If
Next k
End Sub

、 Private Sub Check1＿Click（Index As Integer）
Text1．Text ＝＂＂ For k ＝0To 3
If Check1（k）．Value ＝1Then
Text1．Text ＝Text1．Text ＆Check1（k）．Caption ＆＂＂双引号中是空格
Exit For
End If
Next k
End Sub

答案：

9、【单选题】
在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出（　　）。
For i ＝1To 4
For j＝1To 3
x＝3
For k ＝1To 2
x＝x＋3
Next k
Next j
Next i
Textl ．Text ＝Str（x） [1分]

、 3

、 6

、 9

、 12

答案：

10、【单选题】
下列关于Sub 过程的叙述正确的是（　　）。 [1分]

、一个Sub 过程必须有一个Exit Sub 语句

、一个Sub 过程必须有一个End Sub 语句

、在Sub 过程中可以定义一个Function 过程

、可以用Goto 语句退出Sub 过程

答案：

11、【单选题】
下列叙述中正确的是（）。 [1分]

、在窗体的Form＿Load 事件过程中定义的变量是全局变量

、局部变量的作用域可以超出所定义的过程

、在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程

、在调用过程时，所有局部变量被系统初始化为0或空字符串

答案：

12、【单选题】
编写如下两个事件过程：
Private Sub Form＿KeyDown （KeyCode As Integer，Shift As Integer）
Print Chr（KeyCode）
End Sub
Private Sub Form＿KeyPress（KeyAscii As Integer）
Print Chr（KeyAscii）
End Sub
在一般情况下（即不按住Shift 键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（　　）。 [1分]

、 A
a

、 a
A

、 A
A

、 a
a

答案：

13、【单选题】
在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：
Option Base 0
Private Sub Co mmand1＿Click（）
Di m A1（4）As Integer ，A2（4）As Integer
For k ＝0To 2
A1（k ＋1）＝InputBox（＂请输入一个整数＂）
A2（3－k）＝A1（k ＋1）
Next k Print A2（k）
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（　　）。 [1分]

、 0

、 1

、 2

、 3

答案：

14、【单选题】
下面语句正确的是（　　）。 [1分]

、 If x＜3＊y And x＞y Then y ＝x＾3

、 If x＜3＊y And x＞y Then y ＝3x

、 If x＜3＊y ：x＞y Then y ＝x＾3

、 If x＜3＊y And x＞y Then y ＝x＊＊3

答案：

15、【单选题】
下面程序的输出结果是（　　）。
Private Sub Co mmand1＿Click（）
Ch$＝＂ABCDEF＂
proc ch ：Print ch
End Sub
Private Sub proc（ch As Stri ng）
s ＝＂＂
For k ＝Len（ch）To 1Step －1
s ＝s ＆Mid（ch ，k ，1）
Next k
ch ＝s
End Sub [1分]

、 ABCDEF

、 FEDCBA

、 A

、 F

答案：

16、【单选题】
语句Di ma（－3To 4，3To 6）As Integer 定义的数组元素个数是（　　）。 [1分]

、 18

、 28

、 21

、 32

答案：

17、【单选题】
以下叙述中错误的是（　　）。 [1分]

、一个工程中只能有一个Sub Main 过程

、窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体

、窗体的Hide 方法和Unload 方法的作用完全相同

、若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

答案：

18、【单选题】
在窗体上先后画2个图片框，名称分别为Picture1和banana，banana 中添加了香蕉图片，如图1所示，且将banana．Drag Mode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1中，如图2所示。能实现此功能的事件过程是（　　）。
　

　 [1分]

、 Private Sub Form＿DragDrop（Source As Control ，XAs Si ngle ，Y As Si ngle）
banana ． Move Picture1 ． Left ＋X，Picture1 ． Top ＋Y
End Sub

、 Private Sub banana＿DragDrop（Source As Control ，XAs Si ngle ，Y As Si ngle）
Source ． Move Picture1 ． Left ＋X，Picture 1 ． Top ＋Y
End Sub

、 Private Sub Picture1＿DragDrop（Source As Control ，X As Si ngle ，Y As Si ngle）
Source ． Move Picture1 ． Left ＋X，Picture1 ． Top ＋Y
End Sub

、 Private Sub Picture1＿DragDrop（Source As Control ，X As Si ngle ，Y As Si ngle）
banana ． Move banana ． Left ＋X，banana ． Top ＋Y
End Sub

答案：

19、【单选题】
用Print 方法在Forml 窗体中显示出4个＃号的正确代码为（　　）。 [1分]

、 Debug ．Print＂＃＃＃＃＂

、 Print＂＃＃＃＃＂

、 Forml-Print＂＃＃＃＃＂

、 Forml ．Print＂＃＃＃＃＂

答案：

20、【单选题】
一个模块内部各个元素彼此结合的紧密程度的度量称为（　　） [1分]

、耦合性

、内聚性

、复杂性

、数据传输特性

答案：

21、【单选题】
函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Si nx As Si ngle
Cosx As Si ngle
End Type
Private Sub Form＿Click（）
Di m Y As Si ngle
Di mi As Integer
Di m Ksc As Ang
Open ____________
Y ＝3．14159／180
For i ＝1To 90
Ksc ．K ＝i
Ksc ．Si nx＝Si n（i＊Y）
Ksc ．Cosx＝Cos（i ＋Y）
________
Next i
Close ＃2
Elld Stub [1分]

、＂．．＼Datal ．txt＂For Rando mAs ＃1Len ＝10 Put ＃1，i ，Ksc

、＂．．＼Datal ．txt＂For Rando m As ＃1Len ＝10 Put ＃1，Y ，Ksc

、＂．．＼Datal ．txt＂For Rando m As ＃1 Put ＃1，i ，Ksc

、＂．．＼Datal ．txt＂For Rando m As ＃1 Put ＃1，Y ，Ksc

答案：

22、【单选题】
下列程序运行时输出的结果是（　　）。
Option Base 1
Const a＝10
Private Sub Form＿Click0
Di mx（a）As Integer
k ＝－1
For i ＝1To a
x（i）＝i＊k
k ＝（－1）＊k
Next i
For i ＝1To 10
Print x（i）
Next i
End Sub [1分]

、 1 3 5 7 9 10

、－1－3－5－7－9

、－1 2－3 4－5 6－7 8－9 10

、 1－2 3－4 5－6 7－8 9－10

答案：

23、【单选题】
某人为计算n！（O ＜n ＜＝12）编写了下面的函数过程：
Private Function fun（n As Integer）As Long
Di m P As Long
P＝l
For k ＝n －1To 2Step －1
p ＝p＊k
Next k
fun ＝p
End Function
在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是（　　）。 [1分]

、把p ＝1改为p ＝11

、把For k ＝n －1To 2Step －1改为For k ＝1To n －1

、把For k ＝n －1To 2Step －1改为For k ＝1To n

、把Fo rk －－n －1To 2Step －1改为For k ＝2To n

答案：

24、【单选题】
要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（　　）。 [1分]

、设置BorderStyle 的值为Fi xed Tool Wi ndow

、设置BorderStyle 的值为Sizable Tool Wi ndow

、设置BorderStyle 的值为Fi xed Dialog

、设置BorderStyle 的值为Sizable

答案：

25、【单选题】
设在窗体上有一个文本框，然后编写如下的事件过程：
Private Sub Text1＿KeyDown （KeyCode As Integer ，Shift As Integer）
Const Alt ＝4
Const Key＿F2＝＆H71
altdown ％＝（Shift And Alt）＞0
f2down ％＝（KeyCode ＝Key＿F2）
If altdown ％And f2down ％Then
Text1．Text ＝＂abl＂
End If
End Sub
程序运行后，清除文本框中原有内容，如果按Shift ＋F2键，则在文本框中显示的是（）。 [1分]

、 Alt ＋F2

、 abl

、随机出几个数

、不发生变化

答案：

26、【单选题】
在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：
Private Sub Co mmand1＿Click（）
x＝0
DO While x＜50
x＝（x＋2）＊（x＋3）
n ＝n ＋l
Loop
Text1．Text ＝Str（n）
Text2．Text ＝Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（　　）。 [1分]

、 1和0

、 2和72

、 3和50

、 4和168

答案：

27、【单选题】
下列叙述中错误的是（　　）。 [1分]

、软件测试的目的是发现错误并改正错误

、对被调试的程序进行"错误定位"是程序调试的必要步骤

、程序调试通常也称为Debug

、软件测试应严格执行测试计划，排除测试的随意性

答案：

28、【单选题】
一个工程必须包含的文件的类型是（）。 [1分]

、＊．vbp＊．frm＊．frx

、＊．vbp＊．cls＊．bas

、＊．bas＊．ocx＊．res

、＊．frm＊．cls＊．bas

答案：

29、【单选题】
在文本框中输入字符时，通过（）事件过程可以得到字符的ASCII 码值。 [1分]

、 Change

、 GotFocus

、 KeyPress

、 LostFocus

答案：

30、【单选题】
在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（　　）。 [1分]

、并

、交

、投影

、笛卡儿乘积

答案：

31、【单选题】
有两个关系R ，S 如下：
　

　
由关系R 通过运算得到关系S，则所使用的运算为（　　）。 [1分]

、选择

、投影

、插入

、连接

答案：

32、【单选题】
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是（　　）。 [1分]

、 12345ABCDE

、 EDCBA54321

、 ABCDEl2345

、 54321EDCBA

答案：

33、【单选题】
在窗体上建立通用对话框需要添加的控件是（　　）。 [1分]

、 Data 控件

、 Form 控件

、 Co mmonDialog 控件

、 VBComboBox 控件

答案：

34、【单选题】
在窗体上画2个命令按钮，名称分别为Co mmand1、Co mmand2，然后编写下列事件过程。
Const n ＝5，m＝4
Di ma（m，n）
Private Sub Co mmand1＿Click（）
k ＝1
For i ＝1To m
For j＝1To n
a（i ，j）＝k
k ＝k ＋1
Next j
Next i
End Sub
Private Sub Co mmand2＿Click（）
summ＝0
For i ＝1To m
For j＝1To n
If i ＝1Or i ＝m Then
summ＝summ＋a（i ，j）
Else
If j＝1Or j＝n Then
summ＝summ＋a（i ，j）
End If
End If
Next j
Next i
Print summ
End Sub
过程Command1＿Click（）的作用是在二维数组a 中存放1个m 行n 列的矩阵；过程Command2＿Click（）的作用是（　　）。 [1分]

、计算矩阵外围一圈元素的累加和

、计算矩阵除外围一圈以外的所有元素的累加和

、计算矩阵第1列和最后一列元素的累加和

、计算矩阵第1行和最后一行元素的累加和

答案：

35、【单选题】
下列关于复选框的说法，正确的是（　　）。 [1分]

、复选框的Enabled 属性用于决定该复选框是否可见

、复选框的Value 属性用于决定该复选框是否被选中

、复选框的Tabi ndex 属性用于决定该复选框在控件数组中的序号

、复选框的Visi ble 属性用于决定该复选框是否可用

答案：

36、【单选题】
按照"后进先出"原则组织数据的数据结构是（　　）。 [1分]

、队列

、栈

、双向链表

、二叉树

答案：

37、【单选题】
当一个复选框被选中时，它的Value 属性的值是（）。 [1分]

、 3

、 2

、 1

、 0

答案：

38、【单选题】
已知在4行3列的全局数组score（4，3）中存放了4个学生3门课程的考试成绩（均为整数）。现需要计算每个学生的总分，某人编写程序如下：
Option Base 1
Private Sub Co mmand1＿Click（　　）
Di msum As Integer
Sum＝0
For i ＝1To 4
For j＝1To 3
Sum＝sum＋score（i ，j）
Next j
Print ＂第＂＆i ＆＂个学生的总分是：＂；sum Next i
End Sub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是（　　）。 [1分]

、把外层循环语句For i ＝1TO 4改为For i ＝1To 3内层循环语句For j＝1TO 3改为For j＝1TO 4

、把sum＝0移到For i ＝1TO 4和For j ＝1TO 3之间

、把sum＝sum＋score（i ，j）改为sum＝sum＋score（j，i）

、把sum＝sum＋score（i ，j）改为sum＝score（i ，j）

答案：

39、【单选题】
设有数组定义语句：Di ma（5）As Integer ，List1为列表框控件。下列给数组元素赋值的语句错误的是（　　）。 [1分]

、 a（3）＝3

、 a（3）＝InputBox（＂i nput data＂）

、 a（3）＝List1．ListIndex

、 a＝Array（1，2，3，4，5，6）

答案：

40、【单选题】
下列（）标识符不能作为Visual Basic 的变量名。 [1分]