#逐点比较法三、四象限逆圆插补计算
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
逐点比较法三、四象限逆圆插补计算第三象限
第四象限
Private Sub Command1_Click(>
Picture1.ForeColor = vbBlack
Picture1.DrawWidth = 2
Picture1.Line (500, 1000>-(8500, 1000> '画直线坐标轴Picture1.Line (4500, 1000>-(4500, 5000>
Picture1.CurrentX = 230 '当前位置
Picture1.CurrentY = 900
Picture1.Print "-X" '坐标轴标注
Picture1.CurrentX = 4300
Picture1.CurrentY = 800
Picture1.Print "(0,0>"
Picture1.CurrentX = 8650
Picture1.CurrentY = 900
Picture1.Print "X"
Picture1.CurrentX = 4400
Picture1.CurrentY = 5100
Picture1.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>
End Sub
Private Sub 坐标判别_Click(>
If Not (Option1.Value = True Or Option2.Value = True> Then ans = MsgBox("出错了，请选择象限", 48, "提示信息"> End If
Dim a, b, c, d, n, m As Integer
Dim r As Single
a = Val(Text1.Text>
b = Val(Text2.Text>
c = Val(Text3.Text>
d = Val(Text4.Text>
n = a * a + b * b
m = c * c + d * d
r = Sqr(n>
If Option1.Value = True Then
If Not (a <= 0 And b <= 0 And c <= 0 And d <= 0> Then
GoTo ww
ElseIf Not (a < c And b > d> Then
GoTo ww1
ElseIf n <> m Then
GoTo ww2
End If
End If
If Option2.Value = True Then
If Not (a >= 0 And b <= 0 And c >= 0 And d <= 0> Then
GoTo ww
ElseIf Not (a < c And b < d> Then
GoTo ww1
ElseIf n <> m Then
GoTo ww2
End If
End If
GoTo ww4
ww: ans = MsgBox("出错了，逆圆弧起点、终点不在该象限，请重新输入", 48, "提示信息">
GoTo ww3
ww1: ans = MsgBox("出错了，逆圆弧起点、终点位置错误，请重新输入", 48, "提示信息"> GoTo ww3
ww2: ans = MsgBox("出错了，该象限所绘圆弧不以原点为圆心，请重新输入", 48, "提示信息">
ww3: Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
GoTo ww4
ww4:
End Sub
Private Sub Command4_Click(>
If Not (Option1.Value = True Or Option2.Value = True> Then
ans = MsgBox("出错了，请选择象限", 48, "提示信息">
End If
Dim a, b, c, d, n, m As Integer
Dim r As Single
a = Val(Text1.Text>
b = Val(Text2.Text>
c = Val(Text3.Text>
d = Val(Text4.Text>
n = a * a + b * b
m = c * c + d * d
r = Sqr(n>
If Option1.Value = True Then
If Not (a <= 0 And b <= 0 And c <= 0 And d <= 0> Then
GoTo ww
ElseIf Not (a < c And b > d> Then
GoTo ww1
ElseIf n <> m Then
GoTo ww2
End If
End If
If Option2.Value = True Then
If Not (a >= 0 And b <= 0 And c >= 0 And d <= 0> Then
GoTo ww
ElseIf Not (a < c And b < d> Then