下列程序功能是，产生10个0～100的随机数，输出其中的最大值。请将程序补充完整。
Private Sub Form_Click()
　　Dim an (10) As Integer
　　Dim max As Integer
　　Randomize
　 For i%=1 To 10
　　 an(i%)= (14)
　 Next i%
　　max=an(1)
　 For i%=2 To 10
　　　if (15) then
　　　 max=an(i%)
　　 End If
　 Next i%
　 print max
　 End Sub
End Sub