|
|
这是什么问题呢？
..........
'将这些点写入记事本bb1中
Open "bb1" For Output As #2
Print #2, "查得主视图各点坐标如下："
Print #2, "共有："; m1 + 1; "点"
Print #2, "*****************"
For m = 0 To m1
Print #2, "第"; m + 1; "点的坐标为："
Print #2, "x="; mpoints(m, 0)
Print #2, "y="; mpoints(m, 1)
Print #2, "------------------"
Next m
Close #2
i = MsgBox("可读得的顶点数为：" & m1 + 1 & _
vbCrLf & "显示各点坐标？", vbYesNo + vbQuestion)
If i = 6 Then information.show
selset.Delete '删除选择集
在 information.show这里出现编译错误，方法和数据成员未找到，这是怎么回事？
|
|
置顶卡
