为什么显示编译异常，要求常量表达式

为什么显示编译错误，要求常量表达式？

VB code

Private Sub Command1_Click()Dim a, b, i, j As Integera = Val(Text1.Text)b = Val(Text2.Text)Dim multi(1 To a, 1 To b) As IntegerFor i = 1 To aFor j = 1 To bmulti(i, j) = i + jPrint multi(i, j)NextNextEnd Sub

[解决办法]
Dim multi() As Integer
...

redim multi(1 To a, 1 To b)

[解决办法]
Private Sub Command1_Click()
Dim a, b, i, j As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)

Dim multi(1 To a, 1 To b) As Integer'a,b不能是变量，如果希望是变量，使用Redim

For i = 1 To a
For j = 1 To b
multi(i, j) = i + j
Print multi(i, j)
Next
Next
End Sub

[解决办法]

探讨

Private Sub Command1_Click()
Dim multi() As Integer
Dim a, b, i, j As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
ReDim multi(1 To a, 1 To b)
For i = 1 To a
For j = 1 To b
multi(i, j) = i……

[解决办法]
qb支持这种语法。
[解决办法]
vb动态数组
需用Redim~~~~

查看更多 下一篇