[填空題] 以下程序的功能是，產(chǎn)生10個0～1000的隨機整數(shù)，放入數(shù)組Art中，然后輸出其中的最大值。請?zhí)羁铡? Option Base 1 Private
[填空題] 以下程序的功能是，產(chǎn)生10個0～1000的隨機整數(shù)，放入數(shù)組Art中，然后輸出其中的最大值。請?zhí)羁铡?/p>
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
正確答案：Arr(1)
參考解析：本題用Int(Rnd*1000)產(chǎn)生0～1000的隨機整數(shù)，通過一個For循環(huán)把這些整數(shù)放入數(shù)組Arr中。變量Max用來存放數(shù)組的最大值。為了求出數(shù)組的最大值，首先應(yīng)把數(shù)組的第一個元素(即Arr(1))賦給變量Max，然后進入循環(huán)，把Max依次與數(shù)組中的其他各元素進行比較，如果某個元素比Max大，就把該元素的值賦給Max。循環(huán)結(jié)束后，變量Max中存放的就是數(shù)組的最大值。最后輸出Max的值。Randomize語句稱為初始化隨機數(shù)生成器，即為Rnd函數(shù)產(chǎn)生新的隨機整數(shù)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。