7,763
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
'Option Base 0
Private Sub Command1_Click()
Dim linestring() As String
Dim strCoord() As String
Dim i&, p&, m&, strTemp$
strTemp = Text1.Text
linestring = Split(strTemp, vbCrLf)
m = UBound(linestring)
' 坐标组数 = m+1
' 下面这句,如果最后一行结尾是空行,则去掉它
If (Right$(strTemp, 2) = vbCrLf) Then m = m - 1
ReDim strCoord(1, m)
For i = 0 To m
strTemp = linestring(i)
p = InStr(strTemp, ",")
strCoord(0, i) = Left$(strTemp, p - 1)
strCoord(1, i) = Mid$(strTemp, p + 1)
Next
For i = 0 To m
Print "第 " & i + 1 & " 组坐标: X = " & _
strCoord(0, i) & " Y= " & strCoord(1, i)
Next
End Sub