07年4月计算机等级二级VB考前密卷二

(21) 当滚动条位于最左端或最上端时，Value属性被设置为

　　A) Min

　　B) Max

　　C) Max和Min之间

　　D) Max和Min之外

　　(22) 下面的数组声明语句中正确的是

　　A) Dim gg[1,5] As String

　　B) Dim gg[1 To 5,1 To 5] As String

　　C) Dim gg(1 To 5) As String

　　D) Dim gg[1 :5,1: 5] As String

　　(23) 下列说法正确的是

　　A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器

　　B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

　　C) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器

　　D) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器

　　(24) 下列各选项说法错误的一项是

　　A) 文件对话框可分为两种，即打开(Open) 文件对话框和保存(Save As) 文件对话框

　　B) 通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题

　　C) 打开文件对话框可以让用户指定一个文件，由程序使用;而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件

　　D) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性

　　(25) 用InputBox函数设计的对话框，其功能是

　　A) 只能接收用户输入的数据，但不会返回任何信息

　　B) 能接收用户输入的数据，并能返回用户输入的信息

　　C) 既能用于接收用户输入的信息，又能用于输出信息

　　D) 专门用于输出信息

　　(26) 下列程序段的执行结果为

Word-WRAP: break-word" bgColor=#f3f3f3>以下是引用片段：
　　I=4
　　x=5
　　Do
　　I=I + 1
　　x=x + 2
　　Loop Until I>=7
　　Print "I="; I
　　Print "x="; x

　　A) I=4x=5

　　B) I=7x=15

　　C) I=6x=8

　　D) I=7x=11

　　(27) 下列程序段的执行结果为

　　a=1

　　b=5

　　Do

　　a=a + b

　　b=b + 1

　　Loop While a < 10

　　Print a; b

　　A) 1 5

　　B) 12 7

　　C) a b

　　D) 10 25

　　(28) 下列程序段的执行结果为

以下是引用片段：
　　a=75
　　If a > 60 Then I=1
　　If a > 70 Then I=2
　　If a > 80 Then I=3
　　If a < 90 Then I=4
　　Print "I="; I

　　A) I=1

　　B) I=2

　　C) I=3

　　D) I=4

　　(29) 有如下事件过程：

以下是引用片段：
　　Private Sub Command1_Click()
　　b=10
　　Do Until b=-1
　　a=InputBox("请输入a的值")
　　a=Val(A)
　　b=InputBox("请输入b的值")
　　b=Val(b)
　　a=a * b
　　Loop
　　Print a
　　End Sub

　　程序运行后，依次输入数值30，20，10，-1，输出结果为

　　A) 6000

　　B) -10

　　C) 200

　　D) -6000

　　(30) 下面程序段执行结果为

以下是引用片段：
　　x=Int(Rnd() + 3)
　　Select Case x
　　Case 5
　　Print "Excellent"
　　Case 4
　　Print "good"
　　Case 3
　　Print "pass"
　　Case Else
　　Print "fail"
　　End Select

　　A) excellent

　　B) good

　　C) pass

　　D) fail

(31) 定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则

　　A) 每次调用此过程，该过程中的局部变量都会被重新初始化

　　B) 在本过程中使用到的，在其他过程中定义的变量也为Statci型

　　C) 每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值

　　D) 定义了该过程中定义的局部变量为"自动"变量

　　(32) 单击命令按钮时，下列程序的执行结果为

Word-WRAP: break-word" bgColor=#f3f3f3>以下是引用片段：
　　Private Sub Command1_Click()
　　Dim x As Integer, y As Integer
　　x=50: y=78
　　Call PPP(x, y)
　　Print x; y
　　End Sub
　　Public Sub PPP(ByVal n As Integer, ByVal m As Integer)
　　n=n \ 10
　　m=m \ 10
　　End Sub

　　A) 08

　　B) 5078

　　C) 450

　　D) 7850

　　(33) 单击按钮时，以下程序运行后的输出结果是

以下是引用片段：
　　Private Sub proc1(x As Integer, y As Integer, z As Integer)
　　x=3 * z
　　y=2 * z
　　z=x + y
　　End Sub
　　Private Sub Command1_Click()
　　Dim x As Integer, y As Integer, z As Integer
　　x=1: y=2: z=3
　　Call proc1(x, x, z)
　　Print x; x; z
　　Call proc1(x, y, y)
　　Print x; y; y
　　End Sub

　　A) 6 6 12

　　6 10 10

　　B) 9 5 10

　　5 10 10

　　C) 9 6 12

　　9 10 15

　　D) 9 10 10

　　5 4 10

　　(34) 单击命令按钮时，下列程序的运行结果为

以下是引用片段：
　　Private Sub Command1_Click()
　　Print MyFund(20, 18)
　　End Sub
　　Public Function MyFund(m As Integer, n As Integer) As Integer
　　Do While m <> n
　　Do While m > n: m=m - n: Loop
　　Do While m < n: n=n - m: Loop
　　Loop
　　MyFund=m
　　End Function

　　A) 0

　　B) 2

　　C) 4

　　D) 6

　　(34) 单击命令按钮时，下列程序的运行结果为

以下是引用片段：
　　Private Sub Command1_Click()
　　Print MyFund(20, 18)
　　End Sub
　　Public Function MyFund(m As Integer, n As Integer) As Integer
　　Do While m <> n
　　Do While m > n: m=m - n: Loop
　　Do While m < n: n=n - m: Loop
　　Loop
　　MyFund=m
　　End Function

　　A) 0

　　B) 2

　　C) 4

　　D) 6

二、填空：

　　(1) 数据的逻辑结构有线性结构和 【1】 两大类。

　　(2) 顺序存储方法是把逻辑上相邻的结点存储在物理位置 【2】 的存储单元中。

　　(3) 一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的 【3】 。

　　(4) 软件工程研究的内容主要包括： 【4】 技术和软件工程管理。

　　(5) 关系操作的特点是 【5】 操作。

　　(6) 函数Str$(256.36) 的值是 【6】 。

　　(7) 执行下面的程序段，x的值为 【7】 。

Word-WRAP: break-word" bgColor=#f3f3f3>以下是引用片段：
　　Private Sub Command1_Click()
　　For i=1 To 9
　　a=a + i
　　Next i
　　x=Val(i)
　　MsgBox x
　　End Sub

　　(8) 以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。

以下是引用片段：
　　Dim x, amax, amin As Single
　　x=InputBox("Enter a score")
　　amax=x
　　amin=x
　　Do While 【8】
　　If x > amax Then
　　amax=x
　　End If
　　If 【9】 Then
　　amin=x
　　End If
　　x=InputBox("enter a score")
　　Loop
　　Print "max="; amax, "min="; amin

　　(9) 下列程序的输出结果为 【10】 。

以下是引用片段：
　　num=2
　　While num <=3
　　num=num + 1
　　Print num
　　Wend

　　(10) 以下是一个计算矩形面积的程序，调用过程计算矩形面积，请将程序补充完整。

以下是引用片段：
　　Sub RecArea(L, W)
　　Dim S As Double
　　S=L * W
　　MsgBox "Total Area is " & Str(S)
　　End Sub
　　Private Sub Command1_Click()
　　Dim M, N
　　M=InputBox("What is the L?")
　　M=Val(M)
　　【11】
　　N=Val(N)
　　【12】
　　End Sub

　　(11) 在KeyPress事件过程中，KeyAscii是所按键的 【13】 值。

　　(12) 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。

以下是引用片段：
　　Private Sub Form_Click()
　　Dim x As Single, y As Single
　　Open "NM1.txt" For Input As #1
　　Open "NM2.txt" For Input As #2
　　Do While Not EOF(1)
　　【14】
　　Print x
　　y=x ^ 2
　　【15】
　　Print y
　　Loop
　　Close #1, #2
　　End Sub

　　一、选择题：

　　01-05 D C C D B

　　06-10 A A C B A

　　11-15 C D D C D

　　16-20 A B A B C

　　21-25 A C C D B

　　26-30 D B D B C

　　31-35 C B A B B

　　二、填空题：

　　(1) 非线性结构

　　(2) 相邻

　　(3) 可重用性

　　(4) 软件工程经济学

　　(5) 集合

　　(6)(256.36)

　　(7) 10

　　(8) x>0

　　x

　　(9) (3 4)

　　(10) N = InputBox("What is the W?")

　　Call RecArea(M, N)/RecArea(M, N)

　　(11) ASCII码

　　(12) Input

　　Getput