填空题

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

【参考答案】

(99*Rnd)+1
<上一题 目录 下一题>
热门 试题

填空题
在菜单编辑器中建立一个菜单，其主菜单项的名称为mnuEdit，Visible属性为False，程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit相应的菜单。以下是实现上述功能的程序，请填空。Private Sub Form【 】(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button=2 Then【 】mnuEdit End If End Sub
填空题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()n = 5f = 1s = 0For i = 1 To nf = f【 】s = s + fNextPrint sEnd Sub该事件过程的功能是计算s=1+1 2!+1 3!+…+1 n! 的值。请填空。
相关试题