问题
单项选择题
下列程序的输出图形是( )。
For k=0 To 360
cr=Int(160 * Rnd)
ang=-3.1415926/180*k
Circle(2000,2000),500,cr,0,ang
Next
A.一段彩色圆弧
B.一个彩色扇形
C.一个彩色空心圆
D.一个辐射状彩色圆形
答案
参考答案:D
解析: 解本题主要是理解用Circle画圆弧的方法,它以弧度为单位,给出定义弧线start和end的角度参数。画圆弧的语法是:
[object.]Circle[Step](x,y),radius,[color],start,end[,aspect]
题中,圆心不变,半径500不变,用变量cr表示颜色,是随机变化的,弧线终点也在变化,所以经过360次循环会画出一段辐射状彩色的圆形。
[知识拓展]如果start参数或end参数是负数的话,Visual Basic将画一条连接圆心到负端点的线。例如,下面的过程将用消除切片方式画出一个饼。
Private Sub Form_Click()
Const PI=3.14159265
Circle(3500,1500),1000,,-PI/2,-PI/3
End Sub