Question

vb中在文本框中输入一点的坐标（x，y），怎样把输入的数据中分离出坐标x，y然后对他们进行判断正负

Answer 1

'你输入的必须是x,y。不能加括号哦。
dim a()
a=split(text1.text,",")
if a(0)>0 then msgbox "x值为正!"
if a(0)<0 then msgbox "X值为负!"
if a(0)=0 then msgbox "X值为零!"
if a(1)>0 then msgbox "y值为正!"
if a(1)<0 then msgbox "y值为负!"
if a(1)=0 then msgbox "y值为零!"

Answer 2

dim a()
a=split(text1.text,",")
if a(0)>0 then msgbox "x值为正!"
elseif a(0)<0 then msgbox "X值为负!"
else:msgbox "X值为零!"
end if

if a(1)>0 then msgbox "y值为正!"
elseif a(1)<0 then msgbox "y值为负!"
else:msgbox "y值为零!"
end if