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