[填空題] 要打印50個(gè)在-100～100之間不同的隨機(jī)整數(shù)，并找出第幾個(gè)是最大數(shù)。給定的程序不完整，將程序補(bǔ)充完整。 Option Base 1 Priv
2021-07-20
[填空題] 要打印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
(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
正確答案：j=1
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。