2014年全国计算机等级《二级VB》上机考试冲刺试题1-2_计算机等级考试

11、以下关于文件及相关操作的叙述中错误的是（　　）。
A．以Append 方式打开的文件可以进行读写操作
B．文件记录的各个字段的数据类型可以不同
C．随机文件各记录的长度是相同的
D．随机文件可以通过记录号直接访问文件中的指定记录

12、下列程序代码实现生成20个0~100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段（　　），完成程序。
Private Sub Co mmand1Click（　　）
Di marr（1To 20）
For i ＝1To 20
arr（i）＝_________
Textl ．Text ＝Textl ．Text ＆arr（i ）＆Chr（13）＆Chr（10）
Next i
Sum＝0
For Each X
If X＞50Then
Print Tab（20）；X
Sum＝Sum＋X
End If
Next X
Print Tab（20）；＂Sum＝＂；Sum
End Sub
A．Int（Rnd＊99＋1）In arr
B．Int（Rnd）In arr
C．Int（Rnd＊99＋1）In arr（　　）
D．Int（Rnd）In arr（　　）

13、在窗体上画1个命令按钮，并编写如下事件过程：
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m or n=4-m Then
a(m,n)=m+n
Else
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序，单击命令按钮，窗体上显示的内容为（　　）。
A．200
040
006
B．204
040
406
C．230
340
006
D．200
045
056

14、最简单的交换排序方法是（　　）。
A．快速排序
B．选择排序
C．堆排序
D．冒泡排序

15、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp 的事件过程如下：
Private Sub Text1＿KeyUp（KeyCode As Integer ，shiftAs Integer）
Di m CAs stri ng
Text2．Text ＝Chr（Asc（c）＋2）
End Sub
当向文本框Text1中输入小写字母a 时，文本框Text2中显示的是（　　）。
A．A
B．a
C．C
D．c

16、假定有下列程序段：
For i ＝1TO 3
For j＝5To 1Step －1
Print i＊j
Next j
Next i
则语句Print i＊j 的执行次数是（　　）。
A．15
B．16
C．17
D．18

17、下列描述中正确的是（　　）。
A．程序就是软件
B．软件开发不受计算机系统的限制
C．软件既是逻辑实体，又是物理实体
D．软件是程序、数据与相关文档的集合

18、窗体上有1个名称为Text1的文本框和1个名称为Co mmand1．的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out ．txt 中，每次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是（　　）。
A．Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Input As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
B．Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Output As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
C．Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Append As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub
D．Private Sub Co mmand1＿Click（）
Open ＂out ．txt＂For Rando m As ＃1
Print ＃1，Text1．Text
Close ＃1
End Sub

19、设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs ，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（　　）。
A．Private Sub Form＿MouseDown（Button As Integer ，Shift As Integer ，X As Si ngle ，Y As Si ngle） If Button ＝2Then Popup Menu Bs ，2
End Sub
B．Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu Bs
End Sub
C．Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） Popup Menu Bs ，0
End Sub
D．Private Sub Form＿MouseDown（Button As Integer ，ShiftAs Integer ，X As Single ，Y As Single） If （Button ＝vbLeftButton）Or （Button ＝vbRightButton）Then Popup Menu Bs
End Sub

20、为了使命令按钮（名称为Co mmand1）右移200，应使用的语句是（　　）。
A．Co mmand1．Move －200
B．Co mmand1．Move 200
C．Co mmand1．Left ＝Co mmand1．Left ＋200
D．Co mmand1．Left ＝Co mmand1．Left －200