[填空题] 下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form

[填空题] 下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10)As Integer Dim max As Integer 　　Randomize 　　For i %=1 To 10 　　　　an(i%)=______ 　　Next 　　max=an(1) 　　For i%=2 to 10 　　　　ifan(i%)＞max then 　　　　　　max=an(i%) 　　　　End If 　　Next 　　Print max End Sub

Int(Rnd*1000)

Rnd(x)产生一个0～1之间的单精度随机数。