vb程序中输3个数求最大和最小值（最大和最小值分别在2个text中)

当然先建立两个text1和text2,并调整好大小，程序如下：
Option Explicit
Private Sub Form_Load()
Dim I As Integer
Dim A(3) As Single
Dim Min As Single, Max As Single
Dim St As String
Randomize
For I = 1 To 3
St = InputBox("第" & I & "个数", "输入", Rnd * 100)
If St = "" Then
I = I - 1
Else
A(I) = Val(St)
End If
Next
Min = A(1)
Max = A(1)
For I = 2 To 3
If Min > A(I) Then Min = A(I)
If Max < A(I) Then Max = A(I)
Next
Text1.Text = "最小值：" & Min
Text2.Text = "最大值：" & Max
End Sub

最简单的语句如下：
dim a(3)%
For I = 1 To 3
St = InputBox("","", i* 100)
If St = "" Then
I = I - 1
Else
A(I) = Val(St)
End If
Next
'以上部分是输入三个数
Min = A(1)
Max = A(1)
For I = 2 To 3
If Min > A(I) Then Min = A(I)
I