[填空題] 以下程序的功能是，產(chǎn)生10個(gè)0～1000的隨機(jī)整數(shù)，放入數(shù)組Arr中，然后輸出其中的最大值。請(qǐng)完善下列程序。 Option Base 1 Priva
[填空題] 以下程序的功能是，產(chǎn)生10個(gè)0～1000的隨機(jī)整數(shù)，放入數(shù)組Arr中，然后輸出其中的最大值。請(qǐng)完善下列程序。 Option Base 1 Private Sub Form_Click() Dim Arr(10)As Integer Dim Max As Integer Randomize For i = 1 To 10Arr(i)= Int(Rnd * 1000) Next i Max = 【14】 For i = 2 To 10If 【15】 Then Max = Arr(i)End If Next i Print Max End Sub
正確答案：[14]Arr(1)[分析]： 本題用Int(Rnd*1000)產(chǎn)生0～1 000的隨機(jī)整數(shù)，通過(guò)一個(gè)For循環(huán)將這些整數(shù)放入數(shù)組Arr中，變量Max用來(lái)存放數(shù)組的最大值。為了求出數(shù)組的最大值，首先應(yīng)將數(shù)組的第一個(gè)元素(即Arr(1))賦給變量Max，然后進(jìn)入循環(huán)，將Max依次與數(shù)組中的其他各元素進(jìn)行比較，如果某個(gè)元素比 Max大，就將該元素的值賦給Max。循環(huán)結(jié)束后，變量Max中存放的就是數(shù)組的最大值。最后輸出Max的值。Randomize語(yǔ)句稱(chēng)為初始化隨機(jī)數(shù)生成器，即為Rnd函數(shù)產(chǎn)生新的隨機(jī)整數(shù)。
參考解析：[15] Arr(i)＞Max
詞條內(nèi)容僅供參考，如果您需要解決具體問(wèn)題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢(xún)相關(guān)領(lǐng)域?qū)I(yè)人士。