![[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Cl](http://www.mshxw.com/aiimages/31/258356.png "[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。 Option Base 1 Private Sub Command1_Cl")
[填空题] 要打印出50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
Option base 1
Private Sub Command1_Click()
Dim b()
Randomize
【12】
Do
x=Rnd
If x＞0.5 Then y=1 Else y=-1
t=y*Int(Rnd*100)+1
【13】
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
【14】
Max=b(1)
For n=2 To 50
If b(n)＞Max Then
【15】
p = n
End If
Next n
Print "最大数是："；Max
Print "位置在第"；p；"个"
End Sub
参考答案：
[12] j=1[13] k=1[14] p=1[15] Max=b(n)解析：[分析]： 变量j是记录已产生数据的个数，变量k是查找是否有重复时记录用，变量 p是记录最大数据的位置。在查找最大数据之前，将数组的第一个下标和数据先记录到p和Max中。问题解析:
解析无
