vb编程 现在想输入坐标进行计算,比如想x,y两个值 用inpuntbox 输入x,y值,首先输入有几个点
现在想输入坐标进行计算,比如想输入x,y两个坐标值用inpuntbox输入x,y值,首先输入有几个点,然后输入每个点的xy坐标,现在要怎么提取这些点的单独坐标值进行计算呢...
现在想输入坐标进行计算,比如想输入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") 展开
例如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") 展开
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询