VB任意输入三个整数,单击排序按钮后,在排序结果的三个文本框中将自动按从大到

Question

VB任意输入三个整数,单击排序按钮后,在排序结果的三个文本框中将自动按从大到

Answer 1

在按钮的事件中编写如下代码：
a=val(text1.text)
b=val(text2.text)
c=val(text3.text) '将三个文本框的数值赋给3个变量
if a<b then
s=b
b=a
a=s
end if '将a,b进行大小排列，s为中间变量，排序之后a>=b
if b<c then
t=c
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,数值依次从大到小排列

Answer 2

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