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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024