(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
希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇
更多信息請訪問：考試吧計算機等級考試欄目
