玉鼎与杨戬的情谊

　　Private Sub Command1_Click() Dim arrN(30)
　　As Integer Dim Max As Integer Randomize For i = 1 To 30 arrN(i) = Int(Rnd(1000 - 0 + 1) + 0)
　　Next i Max = arrN(1) For i = 2 To 30 If arrN(i) > Max Then Max = arrN(i) End If Next i Print Max End Sub

该作者现在暂无推文