VB软件_模拟逐点比较法逆圆弧插补的程序设计_程序.docVIP

五、算法程序 Private Sub Command1_Click() Picture1.ForeColor = vbBlack Picture1.DrawWidth = 2 Picture1.Line (0, 4000)-(9000, 4000) Picture1.Line (4500, 0)-(4500, 8000) End Sub Private Sub Command2_Click() Picture1.ForeColor = vbBlue Picture1.DrawWidth = 2 If Val(Text1.Text) * Val(Text1.Text) + Val(Text2.Text) * Val(Text2.Text) Val(Text3.Text) * Val(Text3.Text) + Val(Text4.Text) * Val(Text4.Text) Then ans = MsgBox(出错了，该象限所绘圆弧不以原点为圆心, 48, 提示信息) Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Else If Option1.Value