请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?如图所示,list1中的数字到list2中后按从小到大排列,然后在list1中加入新数字,左右互换后,两边的数字依然按从小到大排列.Private
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/23 23:09:26
![请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?如图所示,list1中的数字到list2中后按从小到大排列,然后在list1中加入新数字,左右互换后,两边的数字依然按从小到大排列.Private](/uploads/image/z/8717943-39-3.jpg?t=%E8%AF%B7%E9%97%AEVB%E5%BD%93%E4%B8%AD%E5%BD%93list1%E9%87%8C%E7%9A%84%E6%95%B0%E5%AD%97%E5%88%B0list2%E4%B8%AD%E5%90%8E%E6%8C%89%E5%A4%A7%E5%B0%8F%E6%8E%92%E5%88%97%E7%9A%84%E4%BB%A3%E7%A0%81%E8%AF%A5%E6%80%8E%E4%B9%88%E5%86%99%3F%E5%A6%82%E5%9B%BE%E6%89%80%E7%A4%BA%2Clist1%E4%B8%AD%E7%9A%84%E6%95%B0%E5%AD%97%E5%88%B0list2%E4%B8%AD%E5%90%8E%E6%8C%89%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%88%97%2C%E7%84%B6%E5%90%8E%E5%9C%A8list1%E4%B8%AD%E5%8A%A0%E5%85%A5%E6%96%B0%E6%95%B0%E5%AD%97%2C%E5%B7%A6%E5%8F%B3%E4%BA%92%E6%8D%A2%E5%90%8E%2C%E4%B8%A4%E8%BE%B9%E7%9A%84%E6%95%B0%E5%AD%97%E4%BE%9D%E7%84%B6%E6%8C%89%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%88%97.Private)
请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?如图所示,list1中的数字到list2中后按从小到大排列,然后在list1中加入新数字,左右互换后,两边的数字依然按从小到大排列.Private
请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?
如图所示,list1中的数字到list2中后按从小到大排列,然后在list1中加入新数字,左右互换后,两边的数字依然按从小到大排列.
Private Sub command1_click()
Dim a As Integer
a = 0
Do While a < List1.ListCount
If List1.Selected(a) = True Then List2.AddItem List1.List(a):List1.RemoveItem a Else a = a + 1
Loop
End Sub
Private Sub command2_click()
Dim a As Integer
a = List1.ListCount - 1
For i = 0 To a
List2.AddItem List1.List1(i)
Next i
List1.Clear
End Sub
Private Sub command3_click()
Dim a As Integer
a = 0
Do While a < List2.ListCount
If List2.Selected(a) = True Then List1.AddItem List2.List(a):List2.RemoveItem a Else a = a + 1
Loop
End Sub
Private Sub Command4_Click()
Dim a As Integer
a = List2.ListCount - 1
For i = 0 To a
List1.AddItem List2.List(i)
Next i
List2.Clear
End Sub
Private Sub form_load()
List1.Clear
List2.Clear
List1.AddItem "7"
List1.AddItem "18"
List1.AddItem "25"
List1.AddItem "13000"
List1.AddItem "2000"
List1.AddItem "50000"
List1.AddItem "299"
Command1.Caption = ">"
Command2.Caption = ">>"
Command3.Caption = "<"
Command4.Caption = "<<"
Command5.Caption = "从小到大排序"
Command6.Caption = "左右互换"
Label2.Caption = "数字一"
Label3.Caption = "数字二"
Label1.Caption = "按Shift或Ctrl键可以多选"
End Sub
这是我前面已经写好的代码,就是比大小的代码如何写不知道,
请问VB当中当list1里的数字到list2中后按大小排列的代码该怎么写?如图所示,list1中的数字到list2中后按从小到大排列,然后在list1中加入新数字,左右互换后,两边的数字依然按从小到大排列.Private
在List2的属性中设置 Sorted 属性为 True 即可,这个属性是设置是否自动按字母顺序排列的属性.