在按钮的事件中编写如下代码：
a=val(text1.text)
b=val(text2.text)
c=val(text3.text) '将三个文本框的数值赋给3个变量
if as=b
b=a
a=s
end if '将a,b进行大小排列，s为中间变量，排序之后a>=b
if b
c=b
b=t
end if '将b,c进行大小排序，t为中间变量，排序之后b>=c
text1.text=str(a)
text2.text=str(b)
text3.text=str(c) '将结果输入到文本框中，文本框1,2,3,数值依次从大到小排列
Private Sub Command1_Click()
Dim a(2)
For i = 0 To 2
a(i) = Val(Text1(i))
Next i
For i = 0 To 1
For j = i + 1 To 2
If a(j) < a(i) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
For i = 0 To 2
Text1(i).Text = a(i)
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！