(9) 下面的程序的作用是利用隨機函數產生10個100~300(不包含300) 之間的隨機整數，打印其中7的倍數的數，并求它們的總和，請填空。
Sub TOF()
   Randomize
   Dim s As Double
   Dim a(10) As Integer
   For i=0 To 9
       【10】
   Next
   For i=0 To 9
        If 【11】 Then
           Print a(i)
           s=s + a(i)
         【12】
   Next i
   Print
   Print "S="; s
End Sub
正確答案:  1.(a(i) = Int(Rnd * 200 + 100)) 2.(a(i) Mod 7 = 0) 3.(End If)

(10) 下面的程序是計算給定函數的值，自變量x，y的值用InputBox函數輸入，函數如下：
f(x,y) =
程序不完整，請填空，將程序的補充完整。
Option Explicit
Dim x As Single
Dim y As Single
Dim z As Single
Private Sub Command1_Click()
   x=Val(InputBox("x=") )
   y=Val(InputBox("y=") )
End Sub
Private Sub Command2_Click()
   If 【13】 Then
      z=x ^ 2 + y ^ 2
   ElseIf 【14】 Then
      z=x ^ 2 - 2 * y ^ 2
    【15】
      z=y ^ 2 - 3 * x ^ 2
   End If
   Form1.Print "當x，y的值為："; x, y
   Form1.Print "f(x,y) 的值為："; z
End Sub
正確答案:  1.(x > 0 And y > 0) 2.(x < 0 And y > 0) 3.(Else)

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

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