UC知道vb数组赋值的问题
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:48:10
我在通用_声明中定义了2个数组
Dim label1_top(0 To 9) As Long
Dim label1_left(0 To 9) As Long
然后，赋值
label1_left = Array(b120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
label1_top = Array(720, 1200, 1200, 2160, 2160, 2160, 3000, 3000, 3000, 1680)
但是提示错误
---------------------------
Microsoft Visual Basic
---------------------------
编译错误:
不能给数组赋值
---------------------------
确定 帮助
---------------------------
我尝试把2个数组的类型变成Variant
也不行
谁知道怎么回事？
b没有的，输入错误
Dim label1_top(0 To 9) As Long
Dim label1_left(0 To 9) As Long
然后，赋值
label1_left = Array(b120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
label1_top = Array(720, 1200, 1200, 2160, 2160, 2160, 3000, 3000, 3000, 1680)
但是提示错误
---------------------------
Microsoft Visual Basic
---------------------------
编译错误:
不能给数组赋值
---------------------------
确定 帮助
---------------------------
我尝试把2个数组的类型变成Variant
也不行
谁知道怎么回事？
b没有的，输入错误
因为在数组初始化中不能直接定义数组的维数，故你错在Dim label1_top(0 To 9) As Long
Dim label1_left(0 To 9) As Long
指明0-9，去掉(0-9)，还有你一个数据中有个b，也不对（细心阿）这样就ok了
Option Explicit
Dim i
Private Sub Form_Click()
Dim label1_top
Dim label1_left
label1_left = Array(120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
label1_top = Array(720, 1200, 1200, 2160, 2160, 2160, 3000, 3000, 3000, 1680)
For i = 0 To 9
Print label1_top(i)
Next i
End Sub
我运行了一个，可以
另一个留给你了
得一项一项赋值,
你的写法vb6不支持,
label1_left(0)=120,
label1_left(1)=3000,……
label1_top数组也一样。
label1_left = Array(b120, 3000, 4200, 960, 2520, 4080, 960, 2520, 4080, 5760)
中的Array(b120 改成Array(120试试
b120含非法字符，看定义数组为字符串
你定义的变量名含有非法字符：label1和下滑线