设计步骤如下: (1)建立应用程序用户界面。 2)设置对象属性 3)编写程序代码。 在通用模块中声明符号常数及窗体级变量: Const pi=3.14159 Dim XO As Single, YO As Single, t As Integer 编写窗体的Load事件代码 Private Sub Form Load With Shape l ag= Width/2 圆的半径 XO=Left +Tag 圆心的x坐标 Y0=Top +Tag 圆心的y坐标 End with设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性 (3) 编写程序代码。 在通用模块中声明符号常数及窗体级变量： Const pi = 3.14159 Dim X0 As Single, Y0 As Single, t As Integer 编写窗体的Load事件代码： Private Sub Form_Load() With Shape1 .Tag = .Width / 2 ' 圆的半径 X0 = .Left + .Tag ' 圆心的x坐标 Y0 = .Top + .Tag ' 圆心的y坐标 End With