vb:利用随机函数产生并显示10个三位整数,同时找出其最小数,用print语句显示出

Answer 1

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i, min, max As Integer
For i = 1 To 10
a(i) = Int((200 - 100 + 1) * Rnd + 100)
Next i
max = a(1)
min = a(1)
For i = 2 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Next i
Print "最大数是" & max
Print "最小数是" & min
End Sub

下次再折腾人拒绝回答

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i, j, t As Integer
For i = 1 To 10
a(i) = Int((100 - 0 + 1) * Rnd + 0)
Next i
For i = 1 To 10
Print a(i);
Next i
Print

For i = 1 To 9
For j = 1 To 9
If (a(j) > a(j + 1)) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i

For i = 1 To 10
Print a(i);
Next i
End Sub