VB高手请进来

随机画360个圆弧。但由于圆心和半径都相同，所以画的所有圆弧都重叠在一起。

以2000，2000为圆心，500为半径，0为起点，随机颜色cr ，终点为ang画圆弧

随机画圆弧

circle(2000,2000),500,cr,0,ang
k=0时先画1个以(2000,2000)为原点,500为半径的圆（其实是起点为0，终点为ang＝0的弧）
k＝2后，因为ang为负，则画以(2000,2000)为原点,500为半径，角度为正ang的一半径
于是最终形成一圆被均分成360个扇形，每个扇形的边颜色不同，取决于cr=int(160*rnd)的值
因为你这半径太少（只有500），扇形太多，实际执行的结果只看到一圆，里面一堆杂色

附：
circle
在对象上画圆、椭圆或弧。

语法

object.Circle [Step] (x, y), radius, [color, start, end, aspect]

Circle 方法的语法有如下的对象限定符和部分：

部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字 ，指定圆、椭圆或弧的中心，它们相对于当前 object 的 CurrentX 和 CurrentY 属性提供的坐标。
(x, y) 必需的。 Single （单精度浮点数），圆、椭圆或弧的中心坐标。object 的 ScaleMode 属性决定了使用的度量单位。
radius 必需的。Single （单精度浮点数），圆、椭圆或弧的半径。 object 的 ScaleMode 属性决定了使用的度量单位。
color 可选的。Long （长整型数），圆的轮廓的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
start, end 可选的。 Single （单精度浮点数），当弧、或部分圆或椭圆画完以后，start 和 e