填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所
占比例，但程序不完整，请补充完整。　Sub PR( )　　　Randomize　　　Dim a(10)　　　For j=1 To 10　　　　　a(i)=Int( 【14】 )　　　　　If 【15】Then k=k+1　　　　　Print a(j)　　　　Next j　　　　Print　　　　Print k/10　　End Sub

【参考答案】

【14】(99*Rnd)+1
【15】a(j)Mod 5=0
<上一题 目录 下一题>
热门 试题

填空题
在窗体上有一个命令按钮，然后编写如下程序： Function Trans(ByVal num As Long) As Long Dim k As Long k=l Do While num k=k * (num Mod 10) num=num 10 Loop Trans=k Print Trans End Function Private Sub Commandl_Click( ) Dim m As Long Dim s As Long m=InputBox( 请输入一个数 ) s=Trans(m) End Sub 程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【11】 ，在输入对话框中输入“987”输出 【12】 ，在输入对话框中输入“879”，输出结果为 【13】 。
填空题
下列程序是判断一个整数(>=3)是否为素数，请补充完整。 Dim n As Integer n=InputBox( 请输入一个整数(>=3) ) k=Int(Sqr(n)) i=2 swit=0 While i 【7】 Else 【8】 End If Wend If swit=0 Then Print n； 是一个素数。 Else Print n； 不是一个素数。 End If
相关试题