以下程序的功能是,产生10个0~1000的随机整数,放入数组Arr中,然后输出其中的最大值。请完善下列程序。 Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer

admin2009-02-13  24

问题 以下程序的功能是,产生10个0~1000的随机整数,放入数组Arr中,然后输出其中的最大值。请完善下列程序。
   Option Base 1
   Private Sub Form_Click()
      Dim Arr(10)As Integer
      Dim  Max  As  Integer
       Randomize
      For i = 1 To 10
         Arr(i)= Int(Rnd * 1000)
      Next i
      Max =【  】
      For i = 2 To 10
         If【  】Then
               Max = Arr(i)
         End If
      Next i
      Print Max
   End Sub

选项

答案Arr(1) , Arr(i)>Max

解析 本题用Int(Rnd*1000)产生0~1 000的随机整数,通过一个For循环将这些整数放入数组Arr中,变量Max用来存放数组的最大值。为了求出数组的最大值,首先应将数组的第一个元素(即Arr(1))赋给变量Max,然后进入循环,将Max依次与数组中的其他各元素进行比较,如果某个元素比 Max大,就将该元素的值赋给Max。循环结束后,变量Max中存放的就是数组的最大值。最后输出Max的值。Randomize语句称为初始化随机数生成器,即为Rnd函数产生新的随机整数。
转载请注明原文地址:https://jikaoti.com/ti/XTq0FFFM
0

最新回复(0)