vb编程 现在想输入坐标进行计算,比如想x,y两个值 用inpuntbox 输入x,y值,首先输入有几个点

2025-06-29 18:23:43
推荐回答(2个)
回答1:

你可以在text1里这样输入坐标:x1,y1|x2,y2|x3,y3|x4,y4

Private Sub Command1_Click()
Dim x() As Integer
Dim y() As Integer
Dim a
Dim c As Integer
Dim i As Integer

a = Split(Text1.Text, "|")
c = UBound(a)
ReDim x(c)
ReDim y(c)

For i = 0 To c
x(i) = Split(a(i), ",")(0)
y(i) = Split(a(i), ",")(1)
Next
End Sub

回答2:

你不是用b和c数组存了这些数据么 你想问什么