VB程序设计循环结构课件
15页1、循环结构华毓斋主人这是什么?思考:我们可以用哪个函数进行画圆? 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,
2、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循环语句格式动动手:利用循环语句实现下面结果:下课请大家摆好椅子、键盘!
《VB程序设计循环结构课件》由会员飞***分享,可在线阅读,更多相关《VB程序设计循环结构课件》请在金锄头文库上搜索。
人教版一年级下册数学第二单元20以内的退位减法测试卷精品【考试直接用】
人教版一年级下册数学第二单元20以内的退位减法测试卷(实用)word版
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案(夺冠)
人教版一年级下册数学第二单元20以内的退位减法测试卷(典型题)
人教版一年级下册数学第二单元20以内的退位减法测试卷精品(a卷)
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案【精品】
部编版二年级上册道德与法治期中测试卷 (考试直接用)
部编版二年级上册道德与法治期中测试卷 带答案(培优)
部编版二年级上册道德与法治期中测试卷 含答案(精练)
部编版二年级上册道德与法治期中测试卷 及答案【各地真题】
部编版二年级上册道德与法治期中测试卷 及完整答案【名校卷 】
部编版二年级上册道德与法治期中测试卷 【考点精练】
部编版三年级上册道德与法治期末测试卷 (重点)
部编版三年级上册道德与法治期末测试卷 (模拟题)word版
部编版三年级上册道德与法治期末测试卷 附答案(预热题)
部编版三年级上册道德与法治期末测试卷 附参考答案(b卷 )
部编版三年级上册道德与法治期末测试卷 答案下载
部编版三年级上册道德与法治期末测试卷 含答案【夺分金卷 】
部编版三年级上册道德与法治期末测试卷 含完整答案【网校专用】
部编版三年级上册道德与法治期末测试卷 及答案(最新)
2023-11-14 7页
2023-02-28 15页
2023-02-20 60页
2023-02-20 52页
2023-01-31 8页
2022-12-27 23页
2022-11-29 36页
2022-11-28 41页
2022-11-16 26页
2022-11-09 71页