Const pi = 3.1415926 '常量声明
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim r, x, y, a, b As Single
If KeyAscii = 13 Then '回车绘图
Cls
n = Val(Text1) '取用户输入值
r = Form1.ScaleHeight / 4 '设置圆半径
a = Form1.ScaleWidth / 2 '设置圆心
b = Form1.ScaleHeight / 2
st = pi / n ' 等分圆周为2*n份
For i = 0 To 2 * pi Step st ' 循环绘制圆
x = r * Cos(i) + a
y = r * Sin(i) + b '取圆周等分点
Circle (x, y), r * 0.9 '绘圆
Next i
End If
End Sub