教科版（云南）信息技术八年级下册 第十四课《循环结构一一画同心圆》.pptx

第14课

循环结构一一画同心圆

教科版(云南)信息技术八年级下册

新课导入

问题与任务：

在指定的窗口画10个同心圆(图14-1),其中第一个圆半径为100,其他的圆半径比前一个多100。

同心圆

一、画同心圆原理分析

资料室

同心圆

同一平面内到定点(圆心)的距离等于定长(半径)的点的集合叫作圆。同心圆指同一平面上具有同一圆心而半径不同的圆。如图14-1所示就

是同心圆。

因此要想完成任务，就必须要知道以下几点。

1.如何找出指定窗口的中间点?

2.在VB中如何画圆?

3.在VB中如何有规律地画多个圆?

画10个同心圆，其实就是先以指定窗口的中间点为圆

心，画出第一个圆，然后再逐渐增大半径，画出其余的圆。

二、VB坐标系

VB中的窗体默认坐标系也由坐标原点、坐标度量单位和坐标轴的方向三个要素构成(“图14-2

VB窗体默认坐标系”)。

Form1(0,0)

Height

y

ScaleWidth

X▲

ScaleHeight

Width

练一练

对比图14-2所示VB窗体默认坐标系和图14-3所示平面坐标系，说说两者的不同之处，并填写在“表14-1VB窗体默认坐标系和平面坐标系的比较”中。

坐标原点

坐标度量单位

坐标轴的方向

VB窗体默认

坐标系

平面坐标系

在VB中，除了窗体外，PictureBox等容器类

控件(能够存储其他控件的控件)也有自己独立的坐标系。

为了方便表示某个控件的位置，VB通过控件的Left属性值和Top属性值分别表示控件的X坐标值与

Y坐标值。

按照“图14-4控件位置”所示范例，标记出控件

Text1和Text2的Left和Top属性值。

三、Circle法

从数学的角度分析，要画一个圆就必须要确定圆心和半径。实际上，我们平时用圆规画圆就是遵循了这个原理：先将圆规的尖脚固定在一点，然后按要求的距离分开圆规，转动圆规一圈即可得到圆。

在VB中画圆时使用的是Circle法，也是遵循

这个数学原理的，其使用格式如下。

对象名.Circle(x,y),r

其中，(x,y)指圆心的坐标，r指圆的半径。

练一练新建一个工程，以窗体中PictureBox控

件的中心点为圆心画一个半径为100的圆。

四、For循环语句

?想一想由画一个圆拓展到画十个同心圆，你会怎样修改程序?

如果使用前面的知识，我们可能会将画圆的代码复制9次，再逐个更改圆的半径，那么这样的程序代码又长，修改又麻烦。我们仔细观察这些代码，

发现它们的不同之处仅是半径r以每次增加100的规律变化。

For循环语句将程序变得短小简洁。

For循环语句的格式如下：

For循环变量=初值To终值Step步长值循环体

Next

执行这种有规律变化的重复代码，可以使用

其中循环变量为数值型变量，初值、终值、步

长值均为数值型。步长值指循环变量每次的增量，可以为负数。

当步长值为正数时，For循环的执行过程如下。

(1)将循环变量赋初值。

(2)比较循环变量是否大于终值，如果大于终值，则

退出循环执行Next后面的语句；如果小于等于终值，则运行一次循环体中的语句。

(3)遇到Next语句，循环变量增加步长值，转到(2)继续循环。

上述的执行过程可以用“图14-5For语句执

行过程”的流程图来直观表示。

循环变量=初值

循环变量超过终值

否

循环体

循环变量增加—个步长值

是

结合任务的要求，如果用For循环语句来简化程序，

循环变量是,初值是,终值是

,步长值是

五、程序的完善和调试

根据For循环语句的特点和任务需求，程序代码如“图14-6画同心圆的程序代码”所示。

PicshowClick

PrivateSubPicshow_Click()

Dimx,yAsSingle

.idth/2

Forr=100To1000Step100Picshow.Circle(x,y),r

Nextr

EndSub

t/2

W

r

gh

le

ge

ei

a

te

H

c

n

le

S

I

Sca

ow

As

o

s

程序输入完毕后，按[F8]键逐语句执行程序，

将鼠标指向循环体中的变量r,稍停片刻，就会显示

出变量r的当前值。

通过此方式监视循环变量r的变化，并将结果填写在“表14-2循环执行过程”中。

循环次数

人工计算的r值

计算机