求助

xgngg

dim a as double a=textbox1
dim plineobj as AcadLWPolyline
points1(0 to 9) as double
points1(0) = 0: points1(1) = 0
points1(2) =1000: points1(3) =0 'a=" "时，跳过该语句，直接执行
points1(4) =1000: points1(5) = 1000+a
points1(6) =0: points1(7) = 1000
points1(8) = 0: points1(9) =0
假如textbox1不输入数据时，则points1(4)和points1(5)不起作用,程序直接执行 points1(6)和points1(7) 请帮忙！谢谢!

efan2000

要对文本框的各种可能情况进行判断。 dim a as double if textbox1.text<>"" then if isnumeric(textbox1.text) then a=textbox1.text end if end if

xgngg

谢谢，我试一下。