2007年9月全国计算机等级考试二级VB模拟试题(13)及答案

(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)