如河利用VB画同心圆？

来源：百度知道 编辑：UC知道 时间：2024/06/18 10:38:14
在界面上画一个文本框，让用户输入第一个圆的半径，根据这些值画5个（包括第一个）半径依次增加100、200、300、400的圆。圆心位置为（2500，1500）
举例，若输入第一个圆的半径为100，则其余4个圆的半径依次为200、400、700、1100。

高手帮忙把程序复制上来

Private Sub Command1_Click()
n = Val(InputBox("输入第一个圆的半径"))
Circle (2500, 1500), n
Circle (2500, 1500), n + 100
Circle (2500, 1500), n + 200
Circle (2500, 1500), n + 300
Circle (2500, 1500), n + 400
End Sub

Private Sub Command1_Click()
dim r as integer
r = Val(InputBox("请输入第一个圆的半径",,100))
Circle (2500, 1500), n
Circle (2500, 1500), n + 100
Circle (2500, 1500), n + 300
Circle (2500, 1500), n + 600
Circle (2500, 1500), n + 1000
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim R As Long
Dim i As Integer

If KeyAscii = &HD Then
R = Abs(Val(Text1.Text))
For i = 0 To 500 Step 100
R = R + i
Circle (2500, 1500), R
Next i
End If
End Sub

---------------------------------------------------------------------
等着您的悬赏呢。。。

下载CAD2004或2007啊 很容易