[求助]不能给数组赋值
Private Sub CmdEx_Click()On Error GoTo err1
Dim a() As single
Dim x, y As Single
a = Val(Split(Text2.Text, ","))
x = a(0)
y = a(1)
Call Dline(x, y)
Else
Exit Sub
End If
err1:
TextInf = TextInf + "您输入的命令不正确！"
Text1.Text = TextInf
Text2.Text = "您输入的命令不正确！"
End Sub
请会的朋友帮我改改.谢谢！
