如河利用VB画同心圆？

2024-12-16 22:49:19

推荐回答（5个）

回答1：

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

回答2：

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

回答3：

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

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

回答4：

下载CAD2004或2007啊很容易

回答5：

下边是个实例，放一个text，一个按钮，text里输入几个就画几个
private
sub
command2_click()
dim
i
as
integer
for
i
=
1
to
val(text2.text)
form3.picture1.circle
(120,
260),
i
*
10,
vbred
'在左边为120.260的位置为圆心，i*10的数量为半径画个圆
next
form3.picture1.refresh
end
sub