当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 下列程序功能是,产生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  

  

参考答案:

Int(Rnd*1000)

  参考解析

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

微信端