Question

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

Private Sub Command1_Click()
Dim a()
Dim x, y, R As String
a = Split(Text1.Text, ",")
x = a(0)
y = a(1)
If x > 0 And y > 0 Then
MsgBox "(" & x & "," & y & ")" & "是在第一象限", 1 + vbInformation, "消息框"
ElseIf x > 0 And y < 0 Then
MsgBox "(" & x & "," & y & ")" & "是在第二象限", 1 + vbInformation, "消息框"
ElseIf x < 0 And y < 0 Then
MsgBox "(" & x & "," & y & ")" & "是在第三象限", 1 + vbInformation, "消息框"
Else
MsgBox "(" & x & "," & y & ")" & "是在第四象限", 1 + vbInformation, "消息框"
End If
End Sub

不知道为什么运行时显示a = Split(Text1.Text, ",")这有错误？

Answer 1

更改dim a() as string
若还有错，检查a = Split(Text1.Text, ",")中的逗号与实际输入text的逗号是否相同，中英文逗号的区别

Answer 2

定义a的时候把后面的括号去掉!
dim a
split函数里面的逗号一定要是英文状态下输入的,在运行的时候在文本框中也一样.你再试试看.

Answer 3

Dim a() As String

就可以了~~~~~~~~~~~~~~

Answer 4

?_?意思啊