填空题

下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For i=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](Rnd*99) +1

<上一题目录下一题>

热门试题

填空题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。Private Sub Form_Click() Dim i As IntegerOpen Num.txt For Output As#1For i=1 To 8______NextClose #1End Sub

填空题

执行下面程序，第一行输出结果是 [11] ，第二行输出结果是 [12] 。Option ExplicitPrivate Sub Form_Click() Dim A As IntegerA=2Call Sub1(A) End SubPrivate Sub1(x As Integer) x=x*2+1If x＜10 ThenCall Sub1(x) End Ifx=x*2+1Print xEnd Sub

相关试题