[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Cl

[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
Option base 1
Private Sub Command1_Click( )
　　Dim b( )
　　Randomize
　　______
　　Do
　　　　x = Rnd
　　　　If x ＞ 0.5 Then y = 1 Else y = -1
　　　　t = y * Int(Rnd * 100)+ 1
　　　　______
　　　　Do While k < j
　　　　　　If t ＜＞ b(k)Then
　　　　　　　　k = k + 1
　　　　　　Else
　　　　　　　　Exit Do
　　　　　　End If
　　　　Loop
　　　　If k = j Then
　　　　　　ReDim Preserve b(k)
　　　　　　b(k)= t
　　　　　　Print b(k);
　　　　　　j = j + 1
　　　　End If
　　Loop Until j ＞ 50
　　Print
　　______
　　Max = b(1)
　　For n = 2 To 50
　　　　If b(n)＞ Max Then
　　　　　　______
　　　　　　p = n
　　　　End If
　　Next n
　　Print "最大数是："; Max
　　Print "位置在第"; p; "个"
End Sub<

参考答案：

问题解析: