权健主持人简单的主持:VB中字符问题?高手请进,谢谢

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/30 01:10:11
Private Sub Command1_Click()
Dim a(5) As String
Dim jj As Integer
Dim yy As Integer
Dim chan As String

a(0) = "1"
a(1) = "2"
a(2) = "3"
a(3) = "1"
a(4) = "3"
For jj = 0 To 5 - 1
For yy = 0 To 5 - 1 - jj
If strcmp(a(yy), a(yy + 1)) > 0 Then

chan = a(yy + 1)
a(yy + 1) = chan
chan = a(yy)
End If
Next
Next
For jj = 0 To 5
Print a(jj)
Next
End Sub

-----------------------------------------我是分割线-------------
这样搞的话就是没交换到,怎么样才能交换,我记得C语言里面有个strcmp涵数的,在VB中有这东西吗?