2007年9月計(jì)算機(jī)二級(jí)VB模擬試題(13)及答案

(9) 下面的程序的作用是利用隨機(jī)函數(shù)產(chǎn)生10個(gè)100~300(不包含300) 之間的隨機(jī)整數(shù)，打印其中7的倍數(shù)的數(shù)，并求它們的總和，請(qǐng)?zhí)羁铡?BR>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) 下面的程序是計(jì)算給定函數(shù)的值，自變量x，y的值用InputBox函數(shù)輸入，函數(shù)如下：
f(x,y) =
程序不完整，請(qǐng)?zhí)羁眨瑢⒊绦虻难a(bǔ)充完整。
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 "當(dāng)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)

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

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