Dim i As Integer
Dim min As Integer
Dim max As Integer
Dim m As Integer
min = 100
max = 0
For i = 0 To 9
m = Int(Rnd * 100)
Print m
If min > m Then min = m
If max < m Then max = m
Next i
Print "最小数=" & min
Print "最大数=" & max