vb怎么将坐标所有点依次连起来 程序如下
答案:1 悬赏:0 手机版
解决时间 2021-01-24 23:06
- 提问者网友：别再叽里呱啦
- 2021-01-24 01:53
vb怎么将坐标所有点依次连起来 程序如下
最佳答案
- 五星知识达人网友：像个废品
- 2021-01-24 03:22
Private Sub m1_Click()
Open "C:UsersAdministratorDesktop新建文件夹1.txt" For Input As #1
Dim s As String, b As Boolean, a
Line Input #1, s
Do Until EOF(1)
Line Input #1, s
a = Split(s)
If b Then
Line -(Val(a(0)), Val(a(1))), vbRed
Else
PSet (Val(a(0)), Val(a(1))), vbRed
b = True
End If
Loop
Close
End Sub
Open "C:UsersAdministratorDesktop新建文件夹1.txt" For Input As #1
Dim s As String, b As Boolean, a
Line Input #1, s
Do Until EOF(1)
Line Input #1, s
a = Split(s)
If b Then
Line -(Val(a(0)), Val(a(1))), vbRed
Else
PSet (Val(a(0)), Val(a(1))), vbRed
b = True
End If
Loop
Close
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯