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

admin2009-03-15 28

问题下列程序功能是，产生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://jikaoti.com/ti/Biq0FFFM

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