用VB編寫程序,隨機產生4個兩位數正整數,顯示出其中最大的數字和最小的數字.

Private Sub Command1_Click()

Dim a(4) As Integer

For i = 1 To 4

a(i) = Int(Rnd * 90 + 9)

Next i

For i = 1 To 4

For j = i + 1 To 4

If a(i) > a(j) Then

t = a(i)

a(i) = a(j)

a(j) = t

End If

Next j

Next i

Print "最大值是：" & a(4)

Print "最少值是：" & a(1)

End Sub