下列程序的输出图形是( )。 For k=0 To 360 cr=Int(160 * RnD)ang=-1415926/180*k Circle(2000,2000),500,cr,0,ang Next

admin2010-03-30  47

问题 下列程序的输出图形是(    )。    For k=0 To 360       cr=Int(160 * RnD)ang=-1415926/180*k       Circle(2000,2000),500,cr,0,ang    Next

选项 A、一段彩色圆弧
B、一个彩色扇形
C、一个彩色空心圆
D、一个辐射状彩色圆形

答案8

解析 解本题主要是理解用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
转载请注明原文地址:https://jikaoti.com/ti/2sq0FFFM
0

最新回复(0)