VB程序设计循环结构课件

循环结构华毓斋主人这是什么？思考：我们可以用哪个函数进行画圆？ Circle (1500,1500),r x y 半径小任务：请大家画出5个同心圆圆心在(1500,1500)；半径分别为100、200、300、400、500方法一：Private Sub Form_Click() Circle (1500, 1500), 100 Circle (1500, 1500), 200 Circle (1500, 1500), 300 Circle (1500, 1500), 400 Circle (1500, 1500), 500 End Sub方法二：Private Sub Form_Click() r = InputBox(“请输入圆的半径！“, “输入圆的半径“) Circle (1500, 1500), r End Sub 然后将100到500依次输入到inputbox里。想一想如果现在我们要画100个或者成千上万个同心圆怎么办 ？For-next循环语句For = To Step Next For i = 100 To 500 Step 100r = iCircle (1500, 1500), r Next iFor = To Step Next For i = 100 To 500 Step 100r = iCircle (1500, 1500), r Next i程序执行次数 i (r=i)是否超过程序执行过程：For i = 100 To 450 Step 100r = iCircle (1500, 1500), r Next iFor i = 100 To 450 Step 100r = iCircle (1500, 1500), r Next i第一次100否 第二次200否 第三次300否 第四次400否 第五次500是 -不再画圆，退出循环动动手：利用For-Next循环语句画出5个同心圆；想一想： 如何让程序先画大圆，然后再画小圆？Private Sub Form_Click() For I = 500 To 100 Step -100r = iCircle (1500, 1500), r Next i End Sub动动手：利用循环语句实现下面结果：Private Sub Form_Click() For i = 1 To 10Print i Next i End SubFor-Next循环语句For i = 100 To 500 Step 100r = iCircle (1500, 1500), r Next iFor-Next循环语句格式动动手：利用循环语句实现下面结果：下课请大家摆好椅子、键盘！