用VB编写一个程序， 输入a、b、c三个数，要求按由大到小的顺序显示

Private Sub Form_Click()
Dim A(1 To 3), I, J, X As Integer
For I = 1 To 3
A(I) = Val(InputBox("请输入数字"))
Next I
For I = 1 To 2
For J = I + 1 To 3
If A(I) < A(J) Then
X = A(I)
A(I) = A(J)
A(J) = X
End If
Next J
Next I
For I = 1 To 3
Print A(I)
Next I
End Sub

代码如下：

Private Sub Command1_Click()

Dim int1, int2,int3 As Integer

int1 = CInt(Text1.Text)

int2 = CInt(Text2.Text)
int3 = CInt(Text3.Text)
If int1 > int2,int1 > int3 then Text4.Text =Text1,text
Else
If int2 > int1,int2 > int3 then Text4.Text =Text2,text
Else
If int3 > int2,int3 > int1 then Text4.Text =Text3,text
End Sub