Question

VB中关于随机数与Listbox的一道题，求解答。。。最好把完整的式子写出来~

程序运行初期，在窗体左边的列表框中生成10个由小到大排列的10到100之间的随机整数，单击窗体中“右移”按钮，则左边列表框的10个数移动到右边的列表框中，并由大到小排列，此时“左移”按钮变为有效。单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。单击“退出”按钮或按ESC键，可退出程序。
移动要求用additem和removeitem
以下是我写的。。但是右边的数不会从大到小排列。。而且还少了2个数，要怎么改
Private Sub Form_Load()
For i = 1 To 10
Randomize
se = Int(Rnd * 91 + 10)
List1.AddItem se
Next i
End Sub

Private Sub Command1_Click()
List1.RemoveItem se
For i = 1 To 1
List2.AddItem List1.List(i)
Next i
End Sub

Answer 1

Private Sub Command1_Click() '右移
For d = 1 To List1.ListCount
a = CByte(List1.List(0))
b = 0
For x = 0 To List1.ListCount - 1
If CByte(List1.List(x)) > a Then
a = CByte(List1.List(x))
b = x
End If
Next
List2.AddItem a
List1.RemoveItem (b)
Next
End Sub

Private Sub Form_Load()
Randomize
For i = 1 To 10
se = Int((91 * Rnd) + 10)
List1.AddItem se
Next i
End Sub

Private Sub Command2_Click() '左移
For i = 0 To List2.ListCount - 1
List1.AddItem List2.List(i)
Next i
List2.Clear
End Sub

Answer 2

这样你试一试

Private Sub Form_Load()
For i = 1 To 10
Randomize
se = Int(Rnd * 90 + 10)
List1.AddItem se
Next i
End Sub

Private Sub Command1_Click()
For i = 9 To 0 Step -1
List2.AddItem List1.List(i)
List1.RemoveItem i
Next i
End Sub

追问

问一下~要怎么使“左移”按钮变为有效啊？我知道不可用就是设置其enabled=flase，然后怎么办？

追答

Private Sub Command1_Click()
For i = 9 To 0 Step -1
List2.AddItem List1.List(i)
List1.RemoveItem i
Next i

Command2.enabled=true

End Sub

追问

哦~单击“左移”按钮，右边列表框中的数又被移到左边的列表框中。这个要怎么做~~
我这样写完全没用。。
Private Sub Command2_Click()
For i = 1 To 10
List1.List(i) = List2.List(i)
Next i
End Sub
是不是list1的Sorted还要改成false？
麻烦再解答下~~~