VB在窗体上显示坐标系，　　PrivateSubCommand1_Click()　　Cls'清除窗体　　Form1.ForeColor=RGB(255,0,0)'设置颜色　　Form1.FontBold=True'加粗　　Line(0,0)-(3000,0)'水平方向画直线　　Line(0,0)-(0,2500)'垂直方向上画直线　　CurrentX=0'设置坐标　　CurrentY=0　　Print"原点"'在新坐标位置上输出　　CurrentX=