vb数组如何定义未知行数

2024-11-15 18:32:05

推荐回答（4个）

回答（1）：

Private Sub Form_Load()
Dim strT() As String
Open "z:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
ReDim Preserve strT(x) As String
strT(x) = temp
x = x + 1
Loop
Close #1
End Sub

无语了我给的代码不就是将每行内容保存在数组变量中么？
x=0 为第一行 msgbox strt(0)
msgbox strt(ubound(strt))即最后一行内容

回答（2）：

Dim str( ) As String
用动态数组

回答（3）：

Dim str() As String
redim str(a) ,A,B为数值

回答（4）：

用Redim重定义，或者用动态数组