[填空题] 下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。 Private Sub Form_Click() Dim an(10) As Integer Dim

26 查阅

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

计算机考试