[填空題] 要打印出50個(gè)在-100～100之間不同的隨機(jī)整數(shù)，并找出第幾個(gè)是最大數(shù)。給定的程序不完整，將程序補(bǔ)充完整。

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 "最大數(shù)是："；Max

Print "位置在第"；p；"個(gè)"

End Sub

正確答案：

[12] j=1[13] k=1[14] p=1[15] Max=b(n)解析：[分析]： 變量j是記錄已產(chǎn)生數(shù)據(jù)的個(gè)數(shù)，變量k是查找是否有重復(fù)時(shí)記錄用，變量 p是記錄最大數(shù)據(jù)的位置。在查找最大數(shù)據(jù)之前，將數(shù)組的第一個(gè)下標(biāo)和數(shù)據(jù)先記錄到p和Max中。