逐点比较法三、四象限逆圆插补计算第三象限第四象限PrivateSubCommand1_Click()Picture1.ForeColor=vbBlackPicture1.DrawWidth=2Picture1.Line(500,1000)-(8500,1000)'画直线坐标轴Picture1.Line(4500,1000)-(4500,5000)Picture1.CurrentX=230'当前位置Picture1.CurrentY=900Picture1.Print"-X"'坐标轴标注Picture1.CurrentX=4300Picture1.CurrentY=800Picture1.Print"(0,0)"Picture1.CurrentX=8650Picture1.CurrentY=900Picture1.Print"X"Picture1.CurrentX=4400Picture1.CurrentY=5100Picture1.Print"-Y"Picture1.Line(500,1000)-(600,950)'箭头Picture1.Line(500,1000)-(600,1050)Picture1.Line(8500,1000)-(8400,950)Picture1.Line(8500,1000)-(8400,1050)Picture1.Line(4500,5000)-(4450,4900)Picture1.Line(4500,5000)-(4550,4900)EndSubPrivateSub坐标判别_Click()IfNot(Option1.Value=TrueOrOption2.Value=True)Thenans=MsgBox("出错了，请选择象限",48,"提示信息")EndIfDima,b,c,d,n,mAsIntegerDimrAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)n=a*a+b*bm=c*c+d*dr=Sqr(n)IfOption1.Value=TrueThenIfNot(a<=0Andb<=0Andc<=0Andd<=0)ThenGoTowwElseIfNot(ad)ThenGoToww1ElseIfn<>mThenGoToww2EndIfEndIfIfOption2.Value=TrueThenIfNot(a>=0Andb<=0Andc>=0Andd<=0)ThenGoTowwElseIfNot(amThenGoToww2EndIfEndIfGoToww4ww:ans=MsgBox("出错了，逆圆弧起点、终点不在该象限，请重新输入",48,"提示信息")GoToww3ww1:ans=MsgBox("出错了，逆圆弧起点、终点位置错误，请重新输入",48,"提示信息")GoToww3ww2:ans=MsgBox("出错了，该象限所绘圆弧不以原点为圆心，请重新输入",48,"提示信息")ww3:Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusGoToww4ww4:EndSubPrivateSubCommand4_Click()IfNot(Option1.Value=TrueOrOption2.Value=True)Thenans=MsgBox("出错了，请选择象限",48,"提示信息")EndIfDima,b,c,d,n,mAsIntegerDimrAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)d=Val(Text4.Text)n=a*a+b*bm=c*c+d*dr=Sqr(n)IfOption1.Value=TrueThenIfNot(a<=0Andb<=0Andc<=0Andd<=0)ThenGoTowwElseIfNot(ad)ThenGoToww1ElseIfn<>mThenGoToww2EndIfEndIfIfOption2.Value=TrueThenIfNot(a>=0Andb<=0Andc>=0Andd<=0)ThenGoTowwElseIfNot(amThenGoToww2EndIfEndIfPicture1.ForeColor=vbBluePicture1.DrawWidth=2IfOption1.Value=TrueThenIfb=0ThenIfc=0ThenPicture1.Circle(4500,1000),r*300,,3.14159,3*3.14159/2ElsePicture1.Circle(4500,1000),r*300,,3.14159,Atn(d/c)+3.14159EndIfElseIfc=0ThenPicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159,3*3.14159/2ElsePicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159,Atn(d/c)+3.14159EndIfEndIfIfOption2.Value=TrueThenIfa=0ThenIfd=0ThenPicture1.Circle(4500,1000),r*300,,3*3.14159/2,2*3.14159ElsePicture1.Circle(4500,1000),r*300,,3*3.14159/2,Atn(d/c)+3.14159*2EndIfElseIfd=0ThenPicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159*2,2*3.14159ElsePicture1.Circle(4500,1000),r*300,,Atn(b/a)+3.14159*2,Atn(d/c)+3.14159*2EndIfEndIfGoToww4ww:ans=MsgBox("出错了，逆圆弧起点、终点不在该象限，请重新输入",48,"提示信息")GoToww3ww1:ans=MsgBox("出错了，逆圆弧起点、终点位置错误，请重新输入",48,"提示信息")GoToww3ww2:ans=MsgBox("出错了，该象限所绘圆弧不以原点为圆心，请重新输入",48,"提示信息")ww3:Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text1.SetFocusGoToww4ww4:EndSubPrivateSubCommand2_Click()Dimk,m,j,l,n,F(30),X(30),Y(30)AsInteger,aAsInteger,bAsInteger,cAsInteger,dAsIntegera=Int(Text1)b=Int(Text2)c=Int(Text3)d=Int(Text4)m=0l=0k=0F(m)=0X(m)=aY(m)=bPicture1.ForeColor=vbGreenPicture1.DrawWidth=3j=Abs(Abs(a)...
