作者clifflu ( 杀气模式)
看板Visual_Basic
标题Re: [VB6 ] 大小排序
时间Mon May 22 22:11:49 2006
※ 引述《adku (╮(╯_╰)╭)》之铭言：
: Private Sub Form_Load()
: Dim x(1 To 10)
宣告时最好加上型别，如 Double 或 Integer
: For i = 1 To 10 '告诉user输入数值
: x(i) = InputBox("请输入第" & i & "个数字")
: Next
: For i = 1 To UBound(y)
^ 怎麽变成 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
交换可以不用这样写，另外，你的 m,n 也都没宣告喔。
m = y(i)
y(i) = y(j)
y(j) = m
这样就够了。
: End If
: Next
: Next
: For i = 1 To 10 '将结果显示在Label2
: Label2.Caption = y(i)
: Next
这样写会使 Label2 的内容一直闪动
建议使用字串串接
Label2.Caption = Label2.Caption + str(y(i)) + " "
: End Sub
: 谢谢~"~
--
鬼压床怎麽办
骑上去啊
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.217.134
1F：推 adku:怕x混淆 不过好像是多此一举="= 05/22 22:22
2F：推 adku:而且我如果加上Dim m, n As Integer 05/22 22:25
3F：→ adku:他会说没有定义这个SUB或FUNCTION 我不懂="= 05/22 22:26