vb编程 现在想输入坐标进行计算，比如想x，y两个值 用inpuntbox 输入x，y值，首先输入有几个点
现在想输入坐标进行计算，比如想输入x，y两个坐标值 用inpuntbox 输入x，y值，首先输入有几个点，然后输入每个点的xy坐标，现在要怎么提取这些点的单独坐标值进行计算呢
例如text45里面输入7，表示需要输入7个坐标xy值，点击command16 弹出inputbox 依次输入这些点的xy坐标值 要怎么提取每个点的x，y值进行计算呢 谢谢因为没积分抱歉
Dim b()
Dim c()
Dim i As Integer
For i = 1 To Val(Text45)
b(i) = InputBox("请输入第" & i & "个坐标X", "shuru", "235")
c(i) = InputBox("请输入第" & i & "个坐标y", "shuru", "667")
第1个回答 2012-12-20
你可以在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
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个回答 2012-12-19
你不是用b和c数组存了这些数据么 你想问什么追问
不知道怎么提出来，比如输入7个点的坐标，要提取第一个点的坐标x值乘以第二个点的y值坐标，第一个点的y值乘以二个点的x值，然后依次这样。也不一定是7个坐标，可以是任意几个点或者几十个点，要怎么提取啊
vb怎么画多边形,输入坐标,画出这些点围起来的图形,怎么做啊
Step 可选的。关键字，指定相对于线的起点的终点坐标。(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。B 可选的。如果...
相似回答
