Question

Vb数据大小比较再输出应该怎么编程

假设text1.text=1
text2.text=2
text3.text=3
如何编程实现text4>text5>text6
将最大的赋值给T4，第二的赋值给T5，最小的给T6
急!!!!!!
我在线等,希望懂的帅哥美女们帮帮忙

Answer 1

Dim a, b, c As Integer

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

If a > b Then
If a > c Then
T4 = a
If b > c Then
T5 = b
T6 = c
Else
T5 = c
T6 = b
End If
Else
T4 = c
T5 = a
T6 = b
End If
Else
If b > c Then
T4 = b
If c > a Then
T5 = c
T6 = a
Else
T5 = a
T6 = c
End If
Else
T4 = c
T5 = b
T6 = a
End If
End If

行不？？？

Answer 2

dim t as double
--t1,t2,t3升序
if t2<t1 then --交换
t=t1
t2=t1
t1=t
end if

if t3<t2 then --交换
t=t2
t2=t3
t3=t
end if