…………○…………外…………○…………装…………○…………订…………○…………线…………○…………※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
…………○…………外…………○…………装…………○…………订…………○…………线…………○…………
※※请※※不※※要※※在※※装※※订※※线※※内※※答※※题※※
…………○…………内…………○…………装…………○…………订…………○…………线…………○…………
2.8循环结构——for循环一课一练
一、填空题
1.程序填空，求8=1+2+3+…+100的和。
PrivateSubForm_Click()
n=1
s=0
Dowhile??????
s=??????
n=n+1
Loop
Prints
Endsub
2.程序填空，鸡兔同笼问题：若干只鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?
程序代码如下：
PrivateSubFormClick()
DimjiAsInteger???‘鸡
DimtuAsInteger???‘兔
DimtuiAsInteger???‘腿数
DimtouAsInteger???‘头数
??Forji=??????
????Fortu=1to25
??????tui=???????????‘计算腿的数量
??????tou=ji+tu???‘计算头的数量
??????IF??????Them
????????Printji,tu
??????EndIf
????Nexttu
??Nextji
Endsub
3.利用for循环遍历列表中每个元素然后输出，请补充完整程序。
list1=[1，2，5，6，9]
foriteminlist1：
????print(??????)
二、单选题
4.阅读下图，回答下面小题。
PrivateSubTimer1_Time()
???Fori=0To10Step1
???????Shapel(0)BackColor=RGB(Int(Rnd*256),Int(Rnd*256),In(Rnd*256)
???Nexti
EndSub
（1）.小明在编写逐帧动画的程序时，运行时如果出现下边错误说明（???）
A.?工程没有保存?????????????????B.?Timer1没有定义??????????????????C.?i没有定义?????????????????D.?Shape没有定义
（2）.小明只需要在代码的第一行输入（???）语句就能改正错误。
A.?Dimiasinteger????????????????????B.?DimShapeasinteger?????????????????????C.?i=0????????????????????D.?Dimi
5.下面程序的执行结果是（?）
PrivateSubCommand1_Click()
a=10
fork=1to5Step-1
a=a-k
Nextk
Printa，k
Endsub
A.?-56?????????????????????????????????????B.?-5-5?????????????????????????????????????C.?100?????????????????????????????????????D.?101
6.在VB中，循环结构可以让我们的代码变得短小精悍，减少我们编写重复性代码工作。如图12所示，认真阅读程序并观察运行结果，完成以下题目。
VB中，For循环语句的格式如下：
For循环变量=初值To终值Step步长值语句组
Next
（1）在图12中，椭圆形区域内的“输出按钮”对应的是(???)控件。
A.标签
B.按钮
C.单选框
D.图像框
（2）在图12中的代码窗口中循环语句Fori=1To10step1中，该循环语句的步长值是(???)。
A.1
B.2
C.3
D