填空题

下列程序功能是，产生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