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

yuezifeng 2007-08-15 08:17:06
dim nCntArray as Integer '此变量是一计数器

dim sPrtTime as String '此变量是一形式为10.51的字符串

Private sArray() As String '数组

While sNextFile <> ""


nCntArray = nCntArray + 1

sNextFile = Dir$

Wend

For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i
...全文
373 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
KGallery 2007-08-15
  • 打赏
  • 举报
回复
dim nCntArray as Integer '此变量是一计数器

dim sPrtTime as String '此变量是一形式为10.51的字符串

dim sArray() As String '数组

While sNextFile <> ""


nCntArray = nCntArray + 1

sNextFile = Dir$

Wend

redim sArray(1 to nCntArray) As String

For i = 1 To nCntArray
sArray(i) =sPrtTime '此处出错,应该如何赋值,将sPrtTime存入数组???
Next i
嗷嗷叫的老马 2007-08-15
  • 打赏
  • 举报
回复
动态数组,需要使用REDIM定义大小
jadeluo 2007-08-15
  • 打赏
  • 举报
回复
Redim sArray(1 to nCntArray) '需要定义数组的大小, 否则不能操作它

For i = 1 To nCntArray
sArray(i) =sPrtTime
Next i
嗷嗷叫的老马 2007-08-15
  • 打赏
  • 举报
回复
redim sArray(0)

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

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧