![[填空题] 下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim](http://www.mshxw.com/aiimages/31/260793.png "[填空题] 下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim")
[填空题] 下列程序功能是，产生10个0-100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
Dim an(10)As Integer
Dim max As Integer
Randomize
For i%=1 To 10
an(i%)= 【10】
Next
max=an(1)
For i%=2 to 10
if an(i%)＞max then
max=an(i%)
End If
Next
Print max
End Sub
参考答案：
Int(Rnd*1000)问题解析:
Rnd(x)产生一个0-1之间的单精度随机数。
