填空题

下面的程序的作用是利用随机函数产生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)
<上一题 目录 下一题>
热门 试题

填空题
如果存在如下过程：Private Function FMax(a( )As Integer)Dim First As Integer，Last As Integer，i As IntegerFirst=LBound(A) Last=UBound(A) Max=a(First)For i=First To LastIf a(i) ＞ Max Then Max=a(i)Next iFMax=MaxEnd Function在窗体上添加一个命令按钮，然后编写如下事件过程：Private Sub Command1 Click( )ReDim m(1 To 4) As Integerm(1)=20：m(2)=30：m(3)=50：m(4)=100c=FMax(m)Print cEnd Sub单击命令按钮，其输出结果为【 】。
填空题
以下过程的作用是将26个小写字母逆序打印出来，请补充完整。Sub Inverse()For i=122 To 【 】 Print 【 】 ；Next iEnd Sub
相关试题