vb窗体上以鼠标按下左键为圆心,松开到圆心的距离为半径画圆

Dim cx As IntegerDim cy As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Thencx = Xcy = YPSet (X, Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Thenr = Sqr((X - cx) ^ 2 + (Y - cy) ^ 2)Me.Circle (cx, cy), rEnd IfEnd Sub 收起