【文档说明】4.4.2《循环语句》PPT课件3-八年级信息技术【苏科版】.ppt，共(9)页，1.868 MB，由小喜鸽上传

转载请保留链接：https://www.ichengzhen.cn/view-93645.html

以下为本文档部分文字说明：

For……Next计数循环语句想要亲手设计你家的个性化墙纸花纹嘛？可以用VB程序来绘制花纹嘛？x=Rnd*Form1.ScaleWidth/圆心横坐标x取窗体宽度值中的任一值y=Rnd*Form1.ScaleHeight/圆心纵

坐标y取窗体高度值中的任一值Circle(x,y),500/画圆，半径为500Circle(x,y),r画圆函数Rnd()产生[0，1)随机数与圆心坐标值相乘*能够生成随机的圆心坐标值。请同学们画一个随机圆

心的圆，半径值为500。试一试比一比PrivateSubCommand1_Click()ClsRandomizex=Rnd*Form1.ScaleWidthy=Rnd*Form1.ScaleHeightCircle(x,y),500x=Rnd*Form1.Sca

leWidthy=Rnd*Form1.ScaleHeightCircle(x,y),500x=Rnd*Form1.ScaleWidthy=Rnd*Form1.ScaleHeightCircle(x,y),500x

=Rnd*Form1.ScaleWidthy=Rnd*Form1.ScaleHeightCircle(x,y),500x=Rnd*Form1.ScaleWidthy=Rnd*Form1.ScaleHeightCircle(x,y),500EndSub想一想如果需要画出10

0个随机圆心的圆呢难道要重复书写100遍画圆的代码嘛……一起来学习FOR…NEXT…计数循环语句吧！以画5个随机圆心的圆为例：Fori=1To5Step1x=Rnd*Form1.ScaleWidthy=Rnd*Fo

rm1.ScaleHeightCircle(x,y),500Nexti循环过程推演：当i=1时，执行画圆语句i=i+1(1是step步长值)i=2小于等于终值5当i=2时，执行画圆语句i=i+1i=3小于等于终值5……依次类推当i

=5时，执行画圆语句i=i+1i=6大于终值5退出循环，结束计数循环语句的标准格式：For〈循环变量＝初值To终值〉[Step步长][循环体]Next[循环变量]当步长Step为1时，可省略不写。当步长Step不等于1

呢我们通过Rnd()函数来实现了圆心坐标值的随机生成，那同样的方法，请你用Rnd()函数来实现随机半径值的生成吧。巩固练习同学们，我们能试着利用FOR…NEXT…循环语句，画出不同圆心，不同半径的圆嘛？想想那些美丽的墙纸图案，我们

的小程序是不是已经渐渐在向它们靠近了呢？提示：你可以将半径值设置的大一些开动脑筋绘制彩色的圆－－代码FillStyle=0/填充样式为实体填充FillColor=RGB(Rnd*255,Rnd*255,Rnd*255)/填充

颜色Circle(x,y),r,FillColor