(31) 定义过程的格式中，Static关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Static关键字，则
A) 每次调用此过程，该过程中的局部变量都会被重新初始化
B) 在本过程中使用到的，在其他过程中定义的变量也为Statci型
C) 每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值
D) 定义了该过程中定义的局部变量为"自动"变量
(32) 单击命令按钮时，下列程序的执行结果为
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】 。
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
希望与更多计算机等级考试的网友交流，请进入计算机等级考试论坛
更多信息请访问：考试吧计算机等级考试栏目
