Question

用vb画圆

在界面上画一个文本框，让用户输入第一个圆的半径，根据这些值画5个（包括第一个）半径依次增加100、200、300、400的圆。圆心位置为（2500，1500）
举例，若输入第一个圆的半径为100，则其余4个圆的半径依次为200、400、700、1100。

急急急！
请各位帮帮忙！
生死攸关啊！！！
与问题无关的请勿留言
跪求答案！
急啊 要考试啊！！！

Answer 1

R = Val(Text1.Text)
For N = 1 To 5
R = R + (N - 1) * 100
Circle (2500, 1500), R
Next

Answer 2

r = 100
r1 = r
r2 = r + 100
r3 = r + 100 + 200
r4 = r + 100 + 200 + 300
r5 = r + 100 + 200 + 300 + 400
x = 2500
y = 1500
For i = 0 To 6.29 Step 0.001
xx = Cos(i) * r1
yy = Sin(i) * r1
Me.PSet (xx + x, yy + y), RGB(0, 0, 255)
xx = Cos(i) * r2
yy = Sin(i) * r2
Me.PSet (xx + x, yy + y), RGB(0, 0, 255)
xx = Cos(i) * r3
yy = Sin(i) * r3
Me.PSet (xx + x, yy + y), RGB(0, 0, 255)
xx = Cos(i) * r4
yy = Sin(i) * r4
Me.PSet (xx + x, yy + y), RGB(0, 0, 255)
xx = Cos(i) * r5
yy = Sin(i) * r5
Me.PSet (xx + x, yy + y), RGB(0, 0, 255)
Next i

有点复杂,有待修改……

Answer 3

我只知道用line方法，还是楼主想想算法吧。