vb怎么将三个数排序并用文本框输出中间的一个数？

Question

饿...我的意思是三个文本框，输入数据，另有三个文本框输出数据要求从小到大排序，最小和最大我都知道怎么输出但是中间的数怎么输出啊？

Answer 1

你首先找出这三个数据中最大的，然后找到最小的，中间的那个就是排除掉最大最小后，剩余的就是了。

Answer 2

Dim n(3), t, i, j
n(1) = text1.text
n(2) = text2.text
n(3) = text3.text
For i = 1 To 2
For j = i + 1 To 3
If n(i) > n(j) Then
t = n(i)
n(i) = n(j)
n(j) = t
End If
Next j
Next i
Text4.Text = n(1)
text5.text=n(2)
text6.text=n(3)本回答被提问者采纳