[填空题]要打印50个在-100～100之间不同的随机整数，并找出第几个是最大数。给定的程序不完整，将程序补充完整。
OptionBase1
PrivateSubCommand1_Click()
Dimb()
Randomize
(12)
Do
x=Rnd
Ifx＞0.5Theny=1Elsey=-1
t=y*Int(Rnd*100)+1
(13)
DoWhilek＜j
Ift＜＞b(k)Then
k=k+1
Else
ExitDo
EndIf
Loop
Ifk=jThen
ReDimPreserveb(k)
b(k)=t
Printb(k)；
j=j+1
EndIf
LoopUntilj＞50
Print
(14)
Max=b(1)
Forn=2To50
Ifb(n)＞MaxThen
(15)
p=n
EndIf
Nextn
Print"最大数是："；Max
Print"位置在第"；p；"个"
EndSub