怎么定义VB动态数组?

如题所述

Dim d() As String '定义动态数组
Dim n As Integer
n = 0
Open "C:\文件.txt" For Input As #1
Do While Not EOF(1)
n = n + 1
ReDim Preserve d(n) '动态改变数组的规模
Input #1, d(n) '将数据读取到数组里
Loop
Close #1
温馨提示:答案为网友推荐,仅供参考
相似回答