高校问答炉石传说火山:VB程序类型不匹配!!
来源：百度文库 编辑：高校问答 时间：2024/05/05 01:05:18
Private Sub Command1_Click()
Dim i As Double
Dim j As Double
A1(1) = CVar(Text1.Text)
A2(1) = CVar(Text2.Text)
A3(1) = CVar(Text3.Text)
A4(1) = CVar(Text4.Text)错误是类型不匹配!!!哪位大哥帮我解决一下啊???
Dim i As Double
Dim j As Double
A1(1) = CVar(Text1.Text)
A2(1) = CVar(Text2.Text)
A3(1) = CVar(Text3.Text)
A4(1) = CVar(Text4.Text)错误是类型不匹配!!!哪位大哥帮我解决一下啊???
把您的程序做如下修改试试：
Private Sub Command1_Click()
Dim i As Double
Dim j As Double
Dim a1(1), a2(1), a3(1), a4(1)
A1(1) = CVar(Text1.Text)
A2(1) = CVar(Text2.Text)
A3(1) = CVar(Text3.Text)
A4(1) = CVar(Text4.Text)
原因是您忘了数组使用前应定义。