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

[填空题] 要打印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

j=1