编写代码:
Private Sub Command1-Click()
Dim max as IntegerDim f(9) as integer
Dim mystr as String
mystr=" "
For i=0 to 9
f(i)=Int(Rnd()*1000+5)
mystr=mystr+" "+str(f(i))
'print Str(f(i))
Next i
Print mystr
max=f(0)
For i=1 to 9
If f(i)>max then
max=f(i)
End if
Next i
Print Str(max)
End Sub