如何将字符串赋值给字符数组???

Question

dim nCntArray as Integer '此变量是一计数器dim sPrtTime as String   '此变量是一形式为10.51的字符串Private sArray() As String '数组While sNextFile <> ""
        nCntArray = nCntArray + 1    sNextFile = Dir$
    
WendFor i = 1 To nCntArray
    sArray(i) =sPrtTime   '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i

Answer 1

redim sArray(0)For i = 1 To nCntArray
    redim preserve sprttime(ubound(sprttime)+1)
    sArray(ubound(sprttime)) =sPrtTime
Next i

Answer 2

Redim sArray(1 to nCntArray)   '需要定义数组的大小, 否则不能操作它For i = 1 To nCntArray
    sArray(i) =sPrtTime   
Next i

Answer 3

动态数组,需要使用REDIM定义大小

Answer 4

dim nCntArray as Integer '此变量是一计数器dim sPrtTime as String   '此变量是一形式为10.51的字符串dim sArray() As String '数组While sNextFile <> ""
        nCntArray = nCntArray + 1    sNextFile = Dir$
    
Wendredim sArray(1 to nCntArray) As StringFor i = 1 To nCntArray
    sArray(i) =sPrtTime   '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i