二、填空題

(1) 在樹結構中，樹根結點沒有 【1】 。
解析： 在樹結構中，每一個結點只有一個前件，稱為父結點，沒有前件的結點只有一個，稱為樹的根結點；每一個結點可以有多個后件，它們都稱為該結點的子結點。沒有后件的結點稱為葉子結點。
(2) Jackson結構化程序設計方法是英國的M.Jackson提出的，它是一種面向 【2】 的設計方法。
解析： 結構化分析方法主要包括：面向數據流的結構化分析方法(SA-Structured analysis），面向數據結構的Jackson方法(JSD-Jackson system development method) 和面向數據結構的結構化數據系統開發方法(DSSD-Data structured system development method）。
(3) 面向對象的模型中，最基本的概念是對象和 【3】 。
解析： 面向對象模型中，最基本的概念是對象和類。對象是現實世界中實體的模型化；將屬性集和方法集相同的所有對象組合在一起，可以構成一個類。
(4) 軟件設計模塊化的目的是 【4】 。
解析： 模塊化是指解決一個復雜問題時自頂向下逐層把軟件系統劃分成若干模塊的過程，由此分解來降低復雜性。
(5) 數據模型按不同應用層次分成3種類型，它們是概念數據模型、 【5】 和物理數據模型。
解析：數據模型按不同層次分成概念數據模型、邏輯數據模型和物理數據模型三類。

(6) 在Visual Basic的立即窗口內輸入以下語句
X＝65<CR>
?Chr$(X) <CR>
在窗口中顯示的結果是 【6】 。
解析： Chr＄(）是求ASCII字符的函數，格式是Chr＄(表達式），其中"表達式"應該是合法的ASCII碼值，Chr＄(）函數把"表達式"的值轉換為相應的ASCII字符。本題中X＝65對應的ASCII碼是字符A，所以顯示的結果應該是A。
(7) 下列程序是判斷一個整數(>=3) 是否為素數，請補充完整。
Dim n As Integer
n=InputBox("請輸入一個整數(>=3) ")
k=Int(Sqr(n) )
i=2
swit=0
While i <=k And swit=0
     If n Mod i=0 Then
         【7】
     Else
         【8】
     End If
Wend
If swit=0 Then
     Print n; "是一個素數。"
Else
     Print n; "不是一個素數。"
End If
解析：素數是只能被1和本身整除的正整數，在本題的程序中，swit是一個標志變量，如果"swit＝0"，則表示n不能被整除；如果能被一個整數整除，則swit變為1；
While循環執行的條件有兩個，一個是"I<=k",另一個是"swit=0",必須兩個條件同時成立才執行循環，當I>k時，顯然不必再檢查n是否能被I整除；而如果"swit=1"，則表示n已被整除，肯定不是素數，也不必檢查了。
只有"I<=k"和"swit=0"兩者同時成立時才需要檢查"n是否為素數"，循環只有一個判斷操作，即判斷n能否被I整除，如果不能，則I=I+1。以便為下一次判斷作準備。
(8) 下面程序是用來打印九九乘法表的，請補充完整。
Dim i As Integer, j As Integer, Str1$
Str1=""
For i=1 To 9
    For j=1 To 9
       If 【9】 Then
          Str1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i �� j) )
       Else
          Str1=Str1 & Chr(13)
            【10】
        End If
        Next j
Next i
Print Str1
解析： (1) Exit語句總是出現在If語句或Select Case語句內部，而If語句或Select Case語句在循環內嵌套，用Exit語句中斷循環。函數首先定義了兩個Integer型變量i、j，并將空格賦給Str1；第一個For循環的變量I從1到9步長為1，第二個循環的變量i也是從1到9步長為1，循環體為選擇結構，它是用來輸出i*j的值，所以j的值應該小于此時i的值，那么If的判斷語句為j<=i，當滿足條件時執行Then后面的語句，即輸出i*j的值，如果不滿足執行Else后面的語句，并跳出內循環。
(9) 在窗體上有一個命令按鈕，然后編寫如下程序：
Function Trans(ByVal num As Long) As Long
   Dim k As Long
   k=1
   Do While num
      k=k * (num Mod 10)
      num=num ＼ 10
   Loop
   Trans=k
   Print Trans
End Function
Private Sub Command1_Click()
   Dim m As Long
   Dim s As Long
   m=InputBox("請輸入一個數")
   s=Trans(m)
End Sub
程序運行時，單擊命令按鈕，在輸入對話框中輸入"789"，輸出結果為 【11】 ,在輸入
對話框中輸入"987"輸出 【12】 ,在輸入對話框中輸入"879"，輸出結果為 【13】 。
解析： 關鍵字ByVal用來實現傳值，也就是說在定義通用過程時，如果形參前面有關鍵字Byval，則該參數用傳值方式傳遞，否則用傳址方式傳遞；在Sub過程中，先將輸入的"456"賦給變量m，m作為參數，調用Trans過程；在Trans過程中以num作為Do While的循環條件；在循環體中，調用Mod函數，將num的個位數字與k相乘，然后賦給k，第一次循環時，num的值是789，所以k的值為9，執行num = num ＼ 10后，num的值為78，循環三次后，num變為0，退出循環，k值等于9×8×7＝504，并將k的值作為返回值；當輸入"987"或"879"時執行相同的操作，結果都為504。可以看出，此程序可用于求一個數值各位上數值的乘積。
(10) 下面程序的功能是產生10個小于100(不含100) 的隨機正整數，并統計其中5的倍數所占比例，但程序不完整，請補充完整。
Sub PR()
    Randomize
    Dim a(10)
    For j=1 To 10
     a(i) =Int( 【14】 )
     If 【15】 Then k=k + 1
     Print a(j)
   Next j
   Print
   Print k / 10
End Sub
解析： 小于100的隨機正整數用(99 * Rnd）+ 1來表示；求倍數用取模來表示，即a(j) Mod 5 = 0，用k作計數器，累計計算能被5整除的數的個數。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目