Question

vb如何画常规坐标系

Answer 1

最简单的方法，就是使用Line方法了，举个例子
把代码复制到窗体代码区，单击窗体就好

代码
Private Sub Form_Click()
Scale (-5, 5)-(5, -5) '定义左上角，右下角坐标
Line (-5, 0)-(5, 0)
Line (4, 1)-(5, 0)
Line (5, 0)-(4, -1)
Print "X轴" '绘制X轴
Line (0, -5)-(0, 5)
Line (-1, 4)-(0, 5)
Line (0, 5)-(1, 4)
Print "Y轴" '绘制Y轴
CurrentX = 0.5: CurrentY = 0.5
Print "0" '绘制“原点”
End Sub

这里有关于"Line"方法的详细介绍，如果陌生的话可以看下
这是网址 http://zhidao.baidu.com/question/26269221.html
如果还有问题再找我吧，希望对你有帮助~

Answer 2

好像用的是SCACLE

Answer 3

Private Sub Command1_Click()
Pic.Scale (-30, 30)-(30, -30)
Pic.Line (0, -30)-(0, 30)
Pic.Line (-30, 0)-(30, 0)
Pic.DrawWidth = 5
Pic.CurrentX = 0
Pic.CurrentY = 0
Pic.PSet (0, 0)
Pic.Print "(0,0) "
Pic.CurrentX = 12
Pic.CurrentY = 16
Pic.PSet (12, 16)
Pic.Print "(12,16) "

End Sub