vb 动态添加代码？急！！！

来源：百度知道 编辑：UC知道 时间：2024/06/19 23:04:42
VB有什么办法，通过循环来实现代码的添加？
如
Arr_s(1)="f"
Arr_s(2)="ff"
Arr_s(3)="fff"
for i!=1 to 3
c=Arr_s(i)
next

希望实现的结果等同于在代码中写入
c="f"
c="ff"
c="fff"
这三个语句。

上面的例子，只是说明一下问题！

dim c(2) as string
for i = 1 to 3
c(i-1)=string(i,"f")
next

Private Sub Form_Load()
Dim Arr_s(1 To 100)
Arr_s(1) = "f"
For i! = 2 To 100
Arr_s(i!) = "f" & Arr_s(i! - 1)
Debug.Print Arr_s(i!)
Next
End Sub

Dim C() as string '定义数组C，但未指定长度
'当获取了数组C的长度L之后
ReDim C(L) as strin '实现动态定义

cc