数组重命名

已知一个 string类型的s
如何创建数组  名为s





或者实现当i=1时  访问数组s1
          i=2时  访问数组s2

例     For m = 1 To l
            Dim s As String
            s = "DynaArr" & Str(m)
            Dim s() As String = {}
        Next
--------------------编程问答-------------------- 关注。。。 --------------------编程问答--------------------

引用楼主 gglovehh 的回复:

例 For m = 1 To l
  Dim s As String
  s = "DynaArr" & Str(m)
  Dim s() As String = {}
  Next

VB里同一过程序或函数里根本不允许这样做

也不知道楼主这样做的目的是什么？有意义吗？ --------------------编程问答-------------------- 看懂以下代码，也许就可以实现你想要的了。

Private Sub Command1_Click()

   Dim s1 As String

   Dim s2(1 To 2) As String

   Dim s(1 To 2) As Variant

   

   s1 = "xxxxxxxxxxxxx"

   s2(1) = "yyyyyyyyyyyyy"

   s2(2) = "zzzzzzzzzzzzz"

   s(1) = s1

   s(2) = s2

   

   Print s(1)

   Print s(2)(1)

   Print s(2)(2)

   

End Sub

--------------------编程问答-------------------- 不懂呀 --------------------编程问答-------------------- 二维数组
dim S(2,10) AS STRING

补充：VB ,  控件