vb对list排序问题求详细代码，要求数字从小到大排序不管后面的英文！

Posted 2023-05-17

前面是数字 后面是英文 的数据怎么排序啊！顺便怎么导出？

Private Sub Command1_Click()
Dim ttl As Integer
Dim temp As String
ttl = List1.ListCount

For a = 0 To ttl - 1
For b = a + 1 To ttl - 1
If List1.List(b) < List1.List(a) Then
temp = List1.List(a)
List1.List(a) = List1.List(b)
List1.List(b) = temp

End If

Next

Next

End Sub追问

谢谢了！不过还是那个问题啊！总共是九位数字的排前面，十位的排后面这个怎么写啊？？

追答

Dim ttl, c, d As Long
Dim temp As String
ttl = List1.ListCount

For a = 0 To ttl - 1
For b = a + 1 To ttl - 1
c = List1.List(b)
d = List1.List(a)

If Val(c) < Val(d) Then
temp = List1.List(a)
List1.List(a) = List1.List(b)
List1.List(b) = temp

End If

Next
Next

追问

运行时类型不匹配啊！要不你打包发我邮箱[e-mail]吧！谢谢了！

参考技术A list有一个sort属性可以设置列表排序追问

不是很完美啊！九位数字排序到十位数字之后了！

求100以内的所有质数(素数) 要求:用VB的for语句写

参考技术A Private Sub Command1_Click()
For n = 2 To 100 '2到100循环
For i = 2 To Int(Sqr(n)) 'sqrt(n)求开方用int取整
If n Mod i = 0 Then Exit For '如果2到100中的有数字满足不能被2到该数字开方的自然数除尽,它就是你要的素数!
Next i
If i > Int(Sqr(n)) Then '从2到int(sqrt(n))没有找到可以除尽的数字,[循环到i=int(sqrt(n))+1,不满足范围,推出循环]n就是素数!
textbox1.text+=n.tostring+" "
End If
Next n
End Sub 参考技术B Private Sub Command1_Click()
For n = 2 To 100 '2~100
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Exit For
Next i
If i > Int(Sqr(n)) Then
Print n & "是素数"
End If
Next n '2~100

End Sub本回答被提问者采纳