2007年秋江苏省计算机等级考试二级VB考试真题及答案

2007年秋江苏省计算机等级考试二级VB考试真题及答案

第二部分 Visual Basic 程序设计

一、选择题（用答题卡答题，答案依次填在21～30答题号内）

21．下列语句中，正确的是

A. Text1.SetFocus

B. Form1.Clear

C. Label1.SetFocus

D.

List1.Cls

22．创建一个名为“文件”的菜单项，使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入

A. 文件($F)

B. 文件(&F)

C. 文件(#F)

D. 文件(%F)

23．数学表达式的VB算术表达式为

A. Sin(27) + Sqr(x + Exp3)/(x + y)

B. Sin(27 * 3.14159 / 180) + Sqr(x + Exp(3)) / Abs(x + y)

C. Sin(27 * 3.14159 / 180) + Sqr(x + e ^ 3) / Abs(x + y)

D. Sin(27 * pi / 180) + Sqr(x + Exp(3) / Abs(x + y)

24．以下说法不正确的是 24 。

A. 使用不带关键字Preserve的ReDim语句可以重新定义数组的维数

B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界

C. 使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D. 使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化

25．下列是合法的变量名。

A. abs

B. -a1

C. cdc d

D. Abc_10

26．要向文件data.txt添加数据，正确的文件打开命令是

A.Open data1.txt For Output As #1

B.Open data1.txt For Input As #1

C.Open data1.txt For Append As #5

D.Open data1.txt For Write As #5

27. 以下对数组参数的说明中，错误的是

A.在过程中可以用Dim语句对形参数组进行声明

B.形参数组只能按地址传递

C.实参为动态数组时，可用ReDim 语句改变对应形参数组的维界

D.只需把要传递的数组名作为实参，即可调用过程

28．设a = 3，b = 2，c = 1，运行print a > b > c的结果是 28 。

A. True

B. False

C. 1

D. 出错

29．能够将任意一个两位整数X的个位数与十位数对调（例如将78 转换为87）的表达式是 29 。

① Val(Right(X, 1) & Left(X, 1))

② Val(Right(Str(X), 1) & Left(Str(X), 1))

③ Val(Right(CStr(X), 1) & Left(CStr(X), 1))

④ Val(Mid(X, 2, 1) + Mid(X, 1, 1))

A. ③

B. ②③

C. ①④

D. ①③④

30．下列是正确的VB常量。

A. D-6

B. E-6

C. 5D

D. 5E-6

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占一行）1．执行下面程序，单击Command1，则窗体上显示的第一行

是（1），第二行是（2），第三行

是（3）。

Option Explicit

Private Sub Command1_Click()

Dim a As String, i As Integer

Dim x As String, z As String

a = iamstudent

i = InStr(5, a, d)

Do

x = Mid(a, i, 3)

z = Right(x, 1)

z = UCase(x & z)

i = i - 2

Print z

Loop Until i = 1

End Sub

2. 执行以下程序，单击Command1，则在Picture1上显示的第一行是（4），第二行是（5），第三行

是（6）。

Option Explicit

Private Sub Command1_Click()

Dim A(3, 3) As Integer, i As Integer, j As Integer

Dim k As Integer

i = 3 : j = 2 : A(i, j) = 1 : k = 1

Do Until k > 9

k = k + 1

If i + 1 > 3 And j + 1 <= 3 Then

i = 1 : j = j + 1

ElseIf i + 1 <= 3 And j + 1 > 3 Then

i = i + 1 : j = 1

ElseIf i + 1 > 3 And j + 1 > 3 Then

i = i - 1

ElseIf i + 1 <= 3 And j + 1 <= 3 And A(i + 1, j + 1) <>

0 Then

i = i - 1

Else

i = i + 1 : j = j + 1

End If

A(i, j) = k

Loop

For i = 1 To 3

For j = 1 To 3

Picture1.Print A(i, j)

Next j

Picture1.Print

Next i

End Sub

3. 执行下面的程序，单击Command1，则窗体上第一行显示的

是（7），第二行显示的是（8）。

Option Explicit

Dim x As Integer

Private Sub Command1_Click()

Dim y As Integer

x = 10 : y = 2

Call process(y)

Print x, y