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

admin2009-03-15  21

问题 下列程序功能是,产生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/PD1p777K
0

最新回复(0)