作者adku (╮(╯_╰)╭)
看板Visual_Basic
标题[VB6 ] 大小排序
时间Mon May 22 21:46:20 2006
我想要用inputbox让user输入十个数字,
然後让电脑去排序这些数字。
由大到小将十个数字列出来
可是我写出来的程式,很明显是错的~"~
请板上高手帮我解惑一下看是哪里出了问题。
Private Sub Form_Load()
Dim x(1 To 10)
For i = 1 To 10
'告诉user输入数值
x(i) = InputBox("请输入第" & i & "个数字")
Next
For i = 1 To UBound(y)
For j = i + 1 To UBound(y)
If y(i) < y(j) Then
'将较大的数值移到前面
m = y(i)
n = y(j)
y(i) = n
y(j) = m
End If
Next
Next
For i = 1 To 10
'将结果显示在Label2
Label2.Caption = y(i)
Next
End Sub
谢谢~"~
--
﹒﹒
˙ · .
‥ ˙ ·
﹒﹒˙ · 人从来没有完美的,只有尽力做到最好的。 nicky
 ̄ ̄ ̄ ̄ ̄ ̄﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉﹉ ̄ ̄ ̄ ̄ ̄ ̄。
˙、﹒
· .﹒‧·.﹒
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.128.142.241
1F:推 fumizuki:你阵列明明是x 排序和输出怎麽会是y 05/22 22:28
2F:推 ytlty:for i=1 to Ubound(x)-1 05/23 00:10