A-A+

下列程序功能是 产生10个0-100的随机数 输出其中的最大值。请将程序补充完整。 Priv

2022-08-12 20:25:40 问答库 阅读 197 次

问题详情

下列程序功能是,产生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之间的单精度随机数。

考点:程序,最大值