关于函数的有关问题

Question

Dim i As Integer
    Dim strAll As String
    Dim strCity() As String
    strAll = "北京_上海_湖北_江西_浙江"
    strCity = Split(strAll, "_", , vbTextCompare)
    For i = 0 To UBound(strCity)
        Debug.Print strCity(i)
    Next

Answer 1

Dim i As Integer
    Dim strAll As String
    Dim strCity() As String
    strAll = "北京_上海_湖北_江西_浙江"
    strCity = Split(strAll, "_", , vbTextCompare)
    For i = 0 To UBound(strCity)
        Debug.Print strCity(i)
    Next

Answer 2

Private Sub Command1_Click()
    Dim Str As String
    Dim TempStr As String
    Str = "北京_上海_湖北_江西_浙江"
    List1.Clear
    Do While Not InStr(Str, "_") = 0
        List1.AddItem Left(Str, InStr(Str, "_") - 1)
        Str = Right(Str, Len(Str) - InStr(Str, "_"))
    Loop
    If Not Len(Str) = 0 Then
        List1.AddItem Str
    End If
End SubPrivate Sub Form_Load()
    List1.Top = 50
    List1.Left = 50
    Command1.Top = 50
    Command1.Left = 50 + List1.Width + 50
    Width = List1.Width + Command1.Width + 300
    Height = List1.Height + 600
    Command1.Caption = "Begin"
End Sub

Answer 3

Private Sub Form_Load()
    List1.Top = 50
    List1.Left = 50
    Command1.Top = 50
    Command1.Left = 50 + List1.Width + 50
    Width = List1.Width + Command1.Width + 300
    Height = List1.Height + 600
    Command1.Caption = "Begin"
End SubPrivate Sub Command1_Click()
    Dim Str As String
    Dim TempStr As String
    Str = "北京_上海_湖北_江西_浙江"
    List1.Clear
    Do While Not InStr(Str, "_") = 0
        List1.AddItem Left(Str, InStr(Str, "_") - 1)
        Str = Right(Str, Len(Str) - InStr(Str, "_"))
    Loop
    If Not Len(Str) = 0 Then
        List1.AddItem Str
    End If
End Sub'VB5.0、VB6.0都通过

Answer 4

Private Sub Form_Load()
    List1.Top = 50
    List1.Left = 50
    Command1.Top = 50
    Command1.Left = 50 + List1.Width + 50
    Width = List1.Width + Command1.Width + 300
    Height = List1.Height + 600
    Command1.Caption = "Begin"
End SubPrivate Sub Command1_Click()
    Dim Str As String
    Dim TempStr As String
    Str = "北京_上海_湖北_江西_浙江"
    List1.Clear
    Do While Not InStr(Str, "_") = 0
        List1.AddItem Left(Str, InStr(Str, "_") - 1)
        Str = Right(Str, Len(Str) - InStr(Str, "_"))
    Loop
    If Not Len(Str) = 0 Then
        List1.AddItem Str
    End If
End Sub'VB5.0、VB6.0都通过

Answer 5

Private Sub Command1_Click()
Dim i As Integer
Dim strAll As String
Dim strCity() As String
    strAll = "北京_上海_湖北_江西_浙江"
    strCity = Split(strAll, "_", , vbTextCompare)
    For i = 0 To UBound(strCity)
        List1.AddItem strCity(i)
    Next
End Sub
'VB6.0通过 VB5.0通不过