VB问题~~~

LISTBOX1中的是ichi,Akita,Fukui,Fukuoka,Fukushima,Gifu,Kochi,Kumamoto

有个按键1点了后LISTbox1的这几个单词COPY到LISTbox2中.

按键2清楚LISTBOX2中的单词.

按键3是复制+整理(讲1中复制到2中后在进行整理,有个像公式一样的东西
Array。sort（ArrayName）,如果不行按照从短的单词到长的单词按顺序整理也可以)

哪个大虾帮个忙,运行成功的话追加赏分

一个窗体，2个LIST，3个按钮，复制一下代码即可

Dim str(7)

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub

Private Sub Command2_Click()
List2.Clear
End Sub

Private Sub Command3_Click()
List2.Clear
Dim arr As String
Dim a(7) As String
Dim temp As String
Dim i As Integer

For i = 0 To 7
For j = 0 To 6 - i
If (Len(str(j)) > Len(str(j + 1))) Then '对数据进行排序过程
temp = str(j)
str(j) = str(j + 1)
str(j + 1) = temp
End If
Next j

Next i
For i = 0 To 7
List2.AddItem str(i)
Next
'List1.Sorted
End Sub

Private Sub Form_Load()

str(0) = "ichi"
str(1) = "Akita"
str(2) = "Fukui"
str(3) = "Fukuoka"
str(4) = "Fukushima"
str(5) = "Gifu"
str(6) = "Kochi"
str(7) = "Kumamoto"
List1.AddItem "ichi"
List1.AddItem "Akita"
List1.AddItem "Fukui"
List1.AddItem "Fukuoka"
List1.AddItem "Fukushima"
List1.AddItem "Gifu"
List1.AddItem "Kochi"
List1.AddItem "Kumamoto"
End Sub

VB中sort 是排序属性

但是只读属性，也就是说只能从属性窗口中去指定

所以要想实现你说的按长短按排序的话，就得自己写一个过程了 按理讲，前两个问题，你应该能解决吧 实在不行，加我QQ吧

你能给我说的再明白一点么 我觉得 我应该能帮你弄出来

可以Q我 点我名字 出来一个网站 IE后面的号码就是我Q

可以加我

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息