本资料来自于资源最齐全的２１世纪教育网www.21cnjy.com
For
循环语句
同步练习
任务一
已知:画一个圆的VB程序为：
Private
Sub
form_click()
Circle
(2000,
2000),
500
End
Sub
问题一：如何编程才能画出5个同心圆，半径分别为100,200,300,400,500
问题二：能力提高：画10个同心圆怎么编程呢？半径为100,200,300。。。1000
任务二
请问：循环三要素是什么？
指出程序中的循环三要素
例题：
For
i=1
to
2
循环变量：
s=s+i
步长值：
Next
i
循环语句：
计算题：
计算题一：1+2+3+…+10=？
与上面例题比较，哪个循环要素改变了？
计算题二：1+3+5+7+9=？
与上面例题比较，哪个循环要素改变了？
任务三
用for循环画10个同心圆？半径分别为100,200,300,……,1000
Private
Sub
form_click()
s
=
0
For
i
=
1
To
10
step
2
循环变量：
s
=
s
+
i
步长值：
Next
i
循环语句：
Text1.Text
=
s
End
Sub
作业题：用VB程序实现：宝塔共24层，第1层有2件宝物，第2层有4件宝物，第3层有6件宝物，
……第23层有46件宝物，第24层有48件宝物，计算这座宝塔共有多少件宝物 21世纪教育网版权所有
Private
Sub
form_click()
s
=
0
For
i
=
1
To
10
step
2
循环变量：
s
=
s
+
i
步长值：
Next
i
循环语句：
Text1.Text
=
s
End
Sub
21世纪教育网
--
中国最大型、最专业的中小学教育资源门户网站。
版权所有@21世纪教育网
