一个简单数组的问题！！在线等

Question

dim i as integer,j as integer, ss as string
    i=5:j=5
   dim aa() as string
   redim aa(i) 
   dim bb() as string
   redim bb(i) 
   for i =1 to 5
     aa(i)=i
   next i
   ?????????我想输出的效果为 ss=1,2,3,4,5 应该怎么做？？？

Answer 1

Private Sub Command1_Click()
    Dim i As Integer, j As Integer, ss As String
    i = 5: j = 5
    Dim aa() As String
    ReDim aa(i)
    Dim bb() As String
    ReDim bb(i)
    For i = 1 To 5
        aa(i) = i
    Next i
    
    For i = 1 To 5
         Print aa(i)
    Next i
End Sub

Answer 2

pcwak(书剑狂生[MS MVP]) 
 不对啊，我不是这个意思，可能是我没表达清楚。
 我知道a(1)~ a(5)的值为 1到5
 我想得到的是 ss=1+2+3+4+5 这个表达式，也就是
 print ss 显示  " 1+2+3+4+5 "

Answer 3

Private Sub Command1_Click()
    Dim i As Integer, j As Integer, ss As String
    i = 5: j = 5
    Dim aa() As String
    ReDim aa(i)
    Dim bb() As String
    ReDim bb(i)
    For i = 1 To 5
        aa(i) = i
    Next i
    
    For i = 1 To 5
         if i<>5 then
           ss=ss & aa(i) & "+"
          else
           ss=ss & aa(i) 
         endif
    Next i
    print ss
End Sub