下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标,请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As Integer,i As Integer

admin2009-02-13  25

问题 下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标,请填空。
   Option Base 1
   Private Sub Form_Click()
      Dim a(10) As Integer,i As Integer
      Dim max As Integer,max_i As Integer
      Randomize
      For i=1 To 10
         a(i)=【  】
      Next i
      max=a(1):max_i=1
      For i=1 To 10
         If【  】Then
            max=a(i)
            max_i=i
         End If
      Next i
      Print max,max_i
   End Sub

选项

答案Int(90*Rnd)+10 , max<a(i)

解析 本题通过一个循环给数组的各个元素赋一个两位随机数,两位数的范围为10~99,  产生的随机数公式是:Int((99-10+1)*Rnd)+10。求一维数组的最大值及其下标的方法是:首先认为第一个元素a(1)最大,并用一个表示最大值的变量max记下它,用一个表示最大值的下标变量max_i记下它的下标1。然后用最大值max和后面的每个元素比较,如果后面的元素值大,则用max记下它,用max_i记下它的下标。故[13]处应填“max<a(i)”。
转载请注明原文地址:https://jikaoti.com/ti/Ikq0FFFM
0

最新回复(0)