下列程序功能是,产生10个0 100的随机数,输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim max As Integer Randomize For i%

admin2010-11-20 77

问题下列程序功能是,产生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
if an(i%)>max then
max=an(i%)
End If
Next
Print max
End Sub

选项

答案Int(Rnd*1000)

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

转载请注明原文地址:https://kaotiyun.com/show/Fqmp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类