For A = 1 To 5
    strA$ = "a"
    MsgBox strA
Next返回结果是5次a如何返回一次“aaaaa”

解决方案 »

  1.   

    For A = 1 To 5
        strA$ = strA$ & "a"
    Next
    MsgBox strA
      

  2.   

    你的是正确的,但是我刚才用这个例子表达不明确。看下面这一个。
    For A = 0 To (lstSeries(0).ListCount - 1)
        strA$ = lstSeries(0).ListColumnText(A, 1)
    Next
    MsgBox strA我的意思吧。假设strA第一次循环是“A”,第二次是“B”然后我想打印出“AB”这个是动态的值,怎么做?
      

  3.   

    Dim i As Integer
        Dim tmpA As String
        Dim strA As String
        
        tmpA = "a"
        
        For i = 1 To 5
            strA = strA & tmpA
        Next i
        
    MsgBox strA
      

  4.   


        strA$ =strA$ & lstSeries(0).ListColumnText(A, 1)