2010年3月计算机等考二级VB模拟题及解析(2)

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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] 下一页