UC知道用vb画圆
来源：百度知道 编辑：UC知道 时间：2024/05/31 15:09:33
在界面上画一个文本框，让用户输入第一个圆的半径，根据这些值画5个（包括第一个）半径依次增加100、200、300、400的圆。圆心位置为（2500，1500）
举例，若输入第一个圆的半径为100，则其余4个圆的半径依次为200、400、700、1100。
急急急！
请各位帮帮忙！
生死攸关啊！！！
与问题无关的请勿留言
跪求答案！
急啊 要考试啊！！！
举例，若输入第一个圆的半径为100，则其余4个圆的半径依次为200、400、700、1100。
急急急！
请各位帮帮忙！
生死攸关啊！！！
与问题无关的请勿留言
跪求答案！
急啊 要考试啊！！！
R = Val(Text1.Text)
For N = 1 To 5
R = R + (N - 1) * 100
Circle (2500, 1500), R
Next
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
有点复杂,有待修改……
我只知道用line方法，还是楼主想想算法吧。