07年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB考前密卷(2)

(31) 定義過(guò)程的格式中，Static關(guān)鍵字的作用是指定過(guò)程中的局部變量在內(nèi)存中的存儲(chǔ)方式。若使用了Static關(guān)鍵字，則
  A) 每次調(diào)用此過(guò)程，該過(guò)程中的局部變量都會(huì)被重新初始化
  B) 在本過(guò)程中使用到的，在其他過(guò)程中定義的變量也為Statci型
  C) 每次調(diào)用此過(guò)程時(shí)，該過(guò)程中的局部變量的值保持在上一次調(diào)用后的值
  D) 定義了該過(guò)程中定義的局部變量為"自動(dòng)"變量

(32) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為
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) 單擊按鈕時(shí)，以下程序運(yùn)行后的輸出結(jié)果是
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) 單擊命令按鈕時(shí)，下列程序的運(yùn)行結(jié)果為
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) 單擊命令按鈕時(shí)，下列程序的運(yùn)行結(jié)果為
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) 數(shù)據(jù)的邏輯結(jié)構(gòu)有線性結(jié)構(gòu)和 【1】 兩大類(lèi)。

(2) 順序存儲(chǔ)方法是把邏輯上相鄰的結(jié)點(diǎn)存儲(chǔ)在物理位置 【2】 的存儲(chǔ)單元中。

(3) 一個(gè)類(lèi)可以從直接或間接的祖先中繼承所有屬性和方法。采用這個(gè)方法提高了軟件的 【3】 。

(4) 軟件工程研究的內(nèi)容主要包括： 【4】 技術(shù)和軟件工程管理。

(5) 關(guān)系操作的特點(diǎn)是 【5】 操作。

(6) 函數(shù)Str$(256.36) 的值是 【6】 。

(7) 執(zhí)行下面的程序段，x的值為 【7】 。
Private Sub Command1_Click()
   For i=1 To 9
      a=a + i
   Next i
   x=Val(i)
   MsgBox x
End Sub

(8) 以下程序的功能是從鍵盤(pán)輸入若干個(gè)學(xué)生的考試成績(jī)，統(tǒng)計(jì)并輸出最高分和最低分，當(dāng)輸入負(fù)數(shù)時(shí)結(jié)束輸入，輸出結(jié)果。請(qǐng)補(bǔ)充完整下列程序段。
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) 下列程序的輸出結(jié)果為 【10】 。
num=2
While num <=3
   num=num + 1
   Print num
Wend

(10) 以下是一個(gè)計(jì)算矩形面積的程序，調(diào)用過(guò)程計(jì)算矩形面積，請(qǐng)將程序補(bǔ)充完整。
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事件過(guò)程中，KeyAscii是所按鍵的 【13】 值。

(12) 有一個(gè)事件過(guò)程，其功能是：從已存在于磁盤(pán)上的順序文件NM1.txt中讀取數(shù)據(jù)，計(jì)算讀出數(shù)據(jù)的平方值，將該數(shù)據(jù)及其平方值存入新的順序文件NM2.txt中。請(qǐng)?zhí)羁铡?BR>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

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問(wèn)：考試吧計(jì)算機(jī)等級(jí)考試欄目