在VB下可以定义常量数组吗？可以给数组一次性赋值吗？如何实现？

Question

RT.

Answer 1

Dim str(30) As StringFor i = 0 To 30
    str(i) = i
    Debug.Print str(i)
Next

Answer 2

Dim b(5, 4) As Double    Dim i As Integer
    For i = 0 To 4
        For j = 0 To 4
            b(i, j) = i + 1
        Next
    Next
    
    For i = 0 To 4
        b(5, i) = Int(Rnd * 5)
    Next

Answer 3

一维数据的定义和赋值，我已经试出来了
'纸张类型
Dim PaperType As Variant
PaperType = Array("A4 横向 宽297mm 高210mm", "A4 纵向 宽210mm 高297mm", "A3 横向 宽420mm 高297mm", "A3 纵向 宽297mm 高420mm")那多维数组哪？

Answer 4

变通解决。
'纸张类型
Dim PaperType As Variant'页面参数
Dim PageParam As VariantPrivate Sub Class_Initialize()
  '纸张类型
  PaperType(0) = "A4 横向 宽297mm 高210mm"
  PaperType(1) = "A4 纵向 宽210mm 高297mm"
  PaperType(2) = "A3 横向 宽420mm 高297mm"
  PaperType(3) = "A3 纵向 宽297mm 高420mm"
  
  '页面参数
  PageParam(0) = Array(297, 210, 7, 7, 7, 7, 20, 5, 5, 5, 15, 15, 15, 55)
  PageParam(1) = Array(210, 297, 7, 7, 7, 7, 5, 5, 20, 5, 55, 15, 15, 15)
  PageParam(2) = Array(420, 297, 7, 7, 7, 7, 20, 5, 5, 5, 15, 15, 15, 55)
  PageParam(3) = Array(297, 420, 7, 7, 7, 7, 5, 5, 20, 5, 55, 15, 15, 15)
End Sub

Answer 5

同意 hc_z()
>在VB下可以定义常量数组吗？可以给数组一次性赋值吗？如何实现？
如果需要许多的串（例如资源串），可以将所有的串都放在一个变量当中。
中间用一个特殊的符号分开（例如chr(0)).这样用Split函数一次读取。
方案二：使用一个INI文件。
方案三：如果有特殊的需要INI文件不能够满足，可以自己定义一个“INI”文件，
来实现需求。
'***********************************************************
'*希望能够对你有所帮助！
'***********************************************************
'*欢迎访问我的网站，给我的作品提宝贵意见！希望和大家交朋友！
http://www.softboyzhou.com
'*下载EasyDialog:
http://www.softboyzhou.com/download/EasyDialog.asp