VB程序设计循环结构课件.pptVIP

循环结构 华毓斋主人 这是什么？ 思考： 我们可以用哪个函数进行画圆？ 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 100 r = i Circle (1500, 1500), r Next i For 循环变量 = 初值 To 终值 Step 步长 循环体 Next 循环变量 For i = 100 To 500 Step 100 r = i Circle (1500, 1500), r Next i 程序执行次数 i (r=i) 是否超过终值 程序执行过程： For i = 100 To 450 Step 100 r = i Circle (1500, 1500), r Next i For i = 100 To 450 Step 100 r = i Circle (1500, 1500), r Next i 第一次 100 否 第二次 200 否 第三次 300 否 第四次 400 否 第五次 500 是 --→不再画圆，退出循环 动动手： 利用For-Next循环语句画出5个同心圆； 想一想： 如何让程序先画大圆，然后再画小圆？ Private Sub Form_Click() For I = 500 To 100 Step -100 r = i Circle (1500, 1500), r Next i End Sub 动动手： 利用循环语句实现下面结果： Private Sub Form_Click() For i = 1 To 10 Print i Next i End Sub For-Next循环语句 For i = 100 To 500 Step 100 r = i Circle (1500, 1500), r Next i 循环变量 循环变量 初值 终值 步长 循环体 For-Next循环语句格式 动动手： 利用循环语句实现下面结果： 下课 请大家摆好椅子、键盘！