Question

VB编程小问题

DIM a,b,c as integer
将TEXT1.TEXT设为a
将TEXT2.TEXT设为b
将TEXT3.TEXT设为c
使在label1.caption中自动将三个文本框里的数据按照从大到小排列，求教

还要从小到大的

Answer 1

Private Sub Command1_Click()
Dim d(3)
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

d(1) = a: d(2) = b: d(3) = c
For i = 1 To 3
For j = i + 1 To 3
If d(i) < d(j) Then
tem = d(i)
d(i) = d(j)
d(j) = tem
End If
Next j
Next i

Label1.Caption = d(1) & " " & d(2) & " " & d(3)
Label2.Caption = d(3) & " " & d(2) & " " & d(1)

End Sub

Answer 2

Private Sub Command1_Click()
x=text1.text
y=text2.text
z=text3.text
if x>y then
t=x
x=y
y=t
end if
if y>z then
t=y
y=z
z=t
end if
label1.caption=str(z) & str(z) & str(z)
end sub

Answer 3

Private Sub Command1_Click()
Dim a, b, c As Integer
a = Text1
b = Text2
c = Text3
If a < b Then
d = a
a = b
b = d
End If
If c >= a Then
Label1.Caption = c &