[填空題] 要打印出50個在-100～100之間不同的隨機(jī)整數(shù)，并找出第幾個是最大數(shù)。給定的程序不完整，將程序補(bǔ)充完整。 Option Base 1 Priva
[填空題] 要打印出50個在-100～100之間不同的隨機(jī)整數(shù)，并找出第幾個是最大數(shù)。給定的程序不完整，將程序補(bǔ)充完整。 Option Base 1 Private Sub Command1_Click() Dim b() Randomize 【12】 Dox=RndIf x＞0.5 Then y=1 Else y=-1t=y*Int(Rnd*100)+1 【13】 Do While k＜j If t ＜＞ b(k)Then k = k + 1 Else Exit Do End IfLoopIf k=j Then ReDim Preserve b(k) b(k)=t Print b(k)； j=j+1End If Loop Until j＞50 Print 【14】 Max=b(1) For n=2 To 50If b(n)＞Max Then 【15】 p = nEnd If Next n Print "最大數(shù)是："；Max Print "位置在第"；p；"個" End Sub
正確答案：[12] j=1[分析]： 變量j是記錄已產(chǎn)生數(shù)據(jù)的個數(shù)，變量k是查找是否有重復(fù)時記錄用，變量 p是記錄最大數(shù)據(jù)的位置。在查找最大數(shù)據(jù)之前，將數(shù)組的第一個下標(biāo)和數(shù)據(jù)先記錄到p和Max中。
參考解析：[13] k=1[14] p=1[15] Max=b(n)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。