[讨论]看看这个问题
<p>这是什么问题呢?</p><p>..........</p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">'</font>将这些点写入记事本<font face="Times New Roman">bb1</font>中<p></p></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Open "bb1" For Output As #2<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "</font>查得主视图各点坐标如下:<font face="Times New Roman">"<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "</font>共有:<font face="Times New Roman">"; m1 + 1; "</font>点<font face="Times New Roman">"<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "*****************"<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">For m = 0 To m1<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "</font>第<font face="Times New Roman">"; m + 1; "</font>点的坐标为:<font face="Times New Roman">"<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "x="; mpoints(m, 0)<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "y="; mpoints(m, 1)<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Print #2, "------------------"<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Next m<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">Close #2<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">i = MsgBox("</font>可读得的顶点数为:<font face="Times New Roman">" & m1 + 1 & _<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">vbCrLf & "</font>显示各点坐标?<font face="Times New Roman">", vbYesNo + vbQuestion)<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">If i = 6 Then information.show<p></p></font></p><p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt;"><font face="Times New Roman">selset.Delete<span style="mso-spacerun: yes;"> '</font></span>删除选择集<p></p></p><p>在 information.show这里出现编译错误,方法和数据成员未找到,这是怎么回事?</p> <p>方法和数据成员未找到,就是方法和数据成员未找到,还有怎么回事的吗?</p><p>没有就是没有</p>
页:
[1]