问题详情

要打印出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


请帮忙给出正确答案和分析，谢谢！