简单问题用*画园

Question

读入半径r，在屏幕上用“*”拼成一个半径为r的圆。
请写出完整代码，谢谢~！

Answer 1

可以参考下这个……http://community.csdn.net/Expert/topic/3367/3367252.xml?temp=.4584467

Answer 2

Private Sub Command1_Click()
Form1.ScaleMode = 3
Dim r As Integer '半径
Dim centerx As Long, centery As Long  '圆中心点的位置
centerx = Form1.ScaleWidth / 2
centery = Form1.ScaleHeight / 2
r = Text1.Text
For i = 0 To 2 * 3.14159 Step 3.14159 / 30
    Form1.CurrentX = centerx + r * Sin(i)
    Form1.CurrentY = centery + r * Cos(i)
    Form1.Print "*"
Next
End Sub