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
请会的朋友帮我改改.谢谢！

晕   动态数组...

帮找下出错的地方，谢谢

要用循环?不能a=val()
改为 for i = 1 to 900000
a(i)=val()
next i
自己想想其他的地方,快熄灯了,要关机了!明天想好了告诉你!

怎么可能呢，用split（）是可以给数组赋值的。。

a = Val(Split(Text2.Text, ",")) 'Split函数返回的是个数组……Val的参数是什么？

'你可以:

Private Sub CmdEx_Click()
on Error GoTo err1
Dim a() As Single
Dim x, y As Single
a = Split(Text2.Text, ",")
x = Val(a(0))
y = Val(a(1))
Call Dline(x, y)
Else
Exit Sub
End If
err1:
TextInf = TextInf + "您输入的命令不正确！"
Text1.Text = TextInf
Text2.Text = "您输入的命令不正确！"
End Sub

还有你这里我没有看到IF……这个还是错的

没有if