vb比较3个数的大小

Question

用随即函数生成3个200以内的正整数,按从小到大的顺序依次输入,谢谢了
本人初学者 最好编能够让我看懂的 谢谢了啊

Answer 1

Private Function min(a As Integer, b As Integer) As Boolean
If a < b Then
min = True
Else
min = False
End If
End Function
Private Sub Form_Activate()
Randomize
Dim number As Integer
Dim value(1 To 3) As Integer
Dim i As Integer

For i = 1 To 3
number = (1 - 200) * Rnd + 200
value(i) = number
Print number

Next i
Dim mmin As Integer
If min(value(1), value(2)) = True Then
mmin = value(1)
Else
mmin = value(2)
End If
If min(mmin, value(3)) = False Then
mmin = value(3)

End If
Print "从小到大的顺序为:"
Print mmin
Dim a(1 To 2) As Integer
Dim j As Integer
j = 1
For i = 1 To 3
If value(i) <> mmin Then
a(j) = value(i)
j = j + 1
End If
Next i
If min(a(1), a(2)) = True Then
Print a(1)
Print a(2)
Else
Print a(2)
Print a(1)

End If

End Sub