填空题

下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。 　　Sub TOF( ) 　　Randomize 　　Dim s As Double 　　Dim a(10) As lnteger 　　For i=0 To 9 　　　　　【 】 　　Next 　　For i=0 To 9 　　　　If【 】Then 　　　　　Print a(i) 　　　　　s=s+a(i) 　　　　　【 】　 　　Next i 　　Print 　　Print "S=" ; s 　　End Sub

【参考答案】

a(i)=Int(Rnd * 200+100)
<上一题 目录 下一题>
热门 试题

填空题
下列程序是判断一个整数(>=3)是否为素数，请补充完整。Dim n As Integern=InputBox( 请输入一个整数(>=3) )k=Int(Sqr(n))i=2swit=0While i<=k And swit=0If n Mod i=0 Then【 】 Else【 】 End IfWendIf swit=0 ThenPrint n； 是一个素数。 ElsePrint n； 不是一个素数。 End If
填空题
设有如下程序：Private Sub Form_Click()Dim n As Integer, s As Integer n = 8s = 0 Do s = s + n n = n - 1Loop While n > 0Print sEnd Sub以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。
相关试题