Question

在VB中如何在3个文本随便输入数字能在label中由大到小排列

在VB中一个画面有4个文本框，在前3个文本框随便输入数字，点击界面能在最后个文本框中由大到小排列。谁会的话写入代码

Answer 1

设4个文本框是textbox1~4
sub Form_Click() '事件：
long a
long b
long c
'3个变量，保存3个数
a = val(textbox1.text) '将1中的转换成数字格式给a
b = val(textbox2.text)
c = val(textbox3.text)
long max1,max2,max3 '第一第二第三大的数

'找最大的
max1 = a
if max1 < b then max2 = b
if max1 < c then max2 = c

'找第二大的
max2 = a
if max2 < b and max2 < max 1 then max2 = b
if max2 < c and max2 < max 1 then max2 = c

’找最小的那个
max3 = a
if max3 < b and max3 < max 2 then max3 = b
if max3 < b and max3 < max 2 then max3 = c

text4.text = str(max1) + str(max2) + str(max3) '输出

end sub

Answer 2

3个文本框中的数字?我给你个通用法吧,代码多了点,但万能些.不管他是3个,还是4个文本框,还是100个文本框,建议用气泡法来排序,就能任意多文本框的数字都可以从小或从大排序了.

n=3 '这里n是你的文本框个数
建立数组
dim tn(3)

以下是点击界面时,在onfocus时执行的内容
tn(0)=val(text1.text) '将文件框数字分别放入数组
tn(1)=val(text2.text)
tn(2)=val(text3.text)

For j = 1 To n - 1 '外循环

For i = 0 To n - j '内循环
If tn(i) > tn(i+1) Then '是从大还是从小排列,就看这里的大于还是小于
t = tn(i)
tn(i) = tn(i + 1)
tn(i+1) = t
End If
Next i
Next j

for i=0 to n-1 '最后从这里循环输出最终排列
tex4.text =text4.text & tn(i)
next

Answer 3

kfgfg

Answer 4

1122555