高中信息技术-DO循环语句教学设计学情分析教材分析课后反思

PAGE1PAGE学生已经掌握VB基本操作和赋值语句、选择语句的用法，通过信息技术基础模块第三章第四节和本模块第一章的学习，已经了解了循环结构的算法流程，但学生并没有学习或掌握怎么样用程序设计语言中的循环语句来实现循环结构算法，而这也是这一节课学习的重点。这节课学生可能会遇到的最大问题有两个：一是用For语句和Do语句来实现循环结构算法的区别;二是循环语句中由于受传统数学思维的影响，学生较难理解在循环体中变量值怎么会不断发生变化。鉴于此，在教学中要积极引导学生采取分解动作、实践认知、比较迁移等学习策略。在教学中要注意引导学生形成自主学习、合作探究的方法和意识，发挥同伴互助作用，共同提高课堂效率。本节课在教师的引导帮助下，对循环结构以及控制语句都会有比较深刻的认识，全体学生的潜力得到很大限度的挖掘，智力好的学生吃得饱，中等水平的学生吸收得好，差的学生消化得了，学生人人学有所得。课堂教学中充分体现师生平等、教学民主的思想，师生信息交流畅通，情感交流融洽，合作和谐，配合默契，教与学的气氛浓厚，课堂教学效果较好。教师教得轻松，学生学得愉快。教学内容选自广东版信息技术（选修1）《算法与程序设计》教材第二章“程序设计基础”第四节“程序的循环结构”第二部分内容“Do循环语句”。通过本内容的学习，让学生掌握VB语言中的Do循环语句，使学生学会使用Do循环语句实现循环控制结构，解决比较复杂的实际问题，并初步掌握程序调试、运行的方法。通过本内容的学习，学生学习本模块的兴趣会得到进一步的提高，能够激发他们运用计算机程序来解决问题的学习热情。从《课程标准》和《学科教学指导意见》对本课教学内容的要求来看，要求学生能从问题出发，用循环语句实现简单的算法。对学生来说，理解循环语句用法的难度系数比赋值和选择语句要高得多，而本课从教材体系和学生认知结构来看，又起到了一个承上起下的作用，是学生程序设计学习一定要突破的一个瓶颈，所以为了使学生在这节课里获得明确的解题规则和方法，加强实践环节的训练应该作为一个教学重点。Do循环练习1.写下列程序运行结果。(1) s=0 I=1 Whilei<=5 S=s+i Prints; I=i+1 Wend(2) i=10 While7-i PrintI; I=i-1 Wend(3) s=0:n=1 Whilen<s S=s+n N=n+2 Ifn=5thenn=n-1 Wend Prints;n2.程序填空(1)计算：s=20! S=1K=1While_________S=_________K=k+1WendPrint“20!=”;s(2)任意输出20个数，求最大值 N=1 Inputx Max=x Whilen<=20 Ifmax<xthen________ N=n+1 _________ Wend Printmax(3)s=,N为何值时S大于104 S=0:n=0 Whiles<1E4 ________ S=s+___________ Wend Printx3.下列循环语句能正常结束的是________。A)i=5

B)i=1

Do

Do

i=i+1

i=i+2

LoopUntili<0

LoopUntili=10

C)i=10

D)i=6

Do

Do

i=i-1

i=i-2

LoopUntili<0

LoopUntili=1

4.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a-1

LoopWhilea<=0

Prints;a

EndSub程序运行后，单击命令按钮，则窗体上显示的内容是______。A)7

9

B)340

C)9

7

D)死循环3.下面程序段的执行结果为______。I=4A=5Do

I=I+1

A=A+3LoopUntilI>=9Print"I=";IPrint"A=";AA)I=9

B)I=10

C)I=10

D)I=9A=20

A=20

A=23

A=235.以下能够正确计算n!的程序是______。A)PrivateSubCommand1_Click()

N=5:X=1

Do

x=x*i

i=i+1

LoopWhilei<n

PrintxEndSubB)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei<n

PrintxEndSubC)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei<=n

PrintxEndSubD)PrivateSubCommand1_Click()

N=5:x=1:i=1

Do

x=x*i

i=i+1

LoopWhilei>n

PrintxEndSub6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序运行后，单击命令按钮，则窗体上显示的内容是______。A)1

3.4

5.8

B)1

3

5

C)1

4

7

D)无数据输出7.执行以下程序段时，______。x=1DoWhile

x<>0

x=x*x

printx;LoopA)循环体将执行1次

B)循环体将执行0次C)循环体将执行无限次

D)系统将提示语法错误8.设窗体中包含1个命令按钮Command1,1个标签Label1;并有以下的事件过程。程序运行后，单击Command1按钮，标签中显示的内容是_______。

PrivateSubCommand1_Click()

DimIAsInteger,nAsInteger

I=1:n=0

Do

While

I<10

n=n+I

I=I*(I+1)

Loop

Label1=I&”-”&n

EndSubA)6-3

B)24-9

C)42-9

D)6-99.有如下程序：Do

循环体LoopWhile<条件>则以下叙述中错误的是_______。A)若“条件”是一个为0的常数，则一次也不执行循环体B)“条件”可以是关系表达式、逻辑表达式或常数C)循环体中可以使用ExitDo语句D)如果“条件”总是为True，则不停地执行循环体10.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()M1=1

M2=2

DoWhileM2<>5

M1=M1*M2

M2=M2+1

LoopPrint"M1=";M1,"M2=";M2EndSub程序运行后，如果单击命令按钮，输出结果是______。A)M1=24

M2=5

B)M1=1

M2=2C)M1=24

M2=5

D)M1=1

M2=2

11.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Commandl)，然后编写如下事件过程：PrivateSubCommandl_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。A)1和0

B)2和72

C)3和50

D)416812.在窗体上画两个名称分别为Text1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<20

x=x*3

n=n+1

Loop

Text1.Text=Str(x)

Text2.Text=Str(n)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别是______。A)15和1

B)27和3

C)195和3

D)600和413.下列语句组中,不能循环100次的有______。A)N=0DON=N+1LOOPUNTILN>=100B)N=0DON=N+1LOOPWHILEN<100C)N=0DON=N+1LOOPUNTILN<100D)N=0DO

WHILEN<100N=N+1LOOP14.假定有如下事件过程：

PrivateSubForm_Click()

DimxAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub程序运行后，单击窗体，输出结果是______。A)81

4

B)56

3

C)28

1

D)243

515.设有如下程序PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

c=4

d=InputBox("请输入一个整数")

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox("请输入一个整数")

Loop

Printc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是______。A)12

B)11

C)10

D)916.在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox("请输入a的值")a=Val(A)b=InputBox("请输入b的值")b=Val(B)

x=InputBox("请输入x的值")x=Val(x)

a=a+b+xLOOPPrintaEndSub程序运行后，单击命令按钮，依次在输入对话框中输入5、4、3、2、1、-1，输出结果为______。A)2

B)3

C)14

D)1517.关于Do…Loop循环结构执行循环体次数的描述正确的是_______。A)DoWhile…Loop循环和Do…LoopUntil循环至少都执行一次

B)DoWhile…Loop循环和Do…LoopUntil循环可能都不执行C)DoWhile…Loop循环至少执行一次，Do…LoopUntil循环可能不执行D)DoWhile…Loop循环可能不执行，Do…LoopUntil循环至少执行一次18.以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在横线处填入适当的内容，将程序补充完整。PrivateSubForm_Click()DimxAsSingle,amaxAsSingle,aminAsSinglex=InputBox(“Enterascore”)amax=xamin=xDoWhile_________Ifx>amaxThenAmax=xEndIfIf__________ThenAmin=xEndIfx=InputBox(“Enterascore”)LoopPrint”Max=”;amax,”Min=”;aminEndSub由于录像的需要，本次课安排在了录播室，录播室里没有足够的学生机，学生没法上机，权作“纸上谈兵”吧，算作一堂编程理论课，本节课我主要想让学生能和以前所学结合着来理解循环结构，循序渐进，渗透式学习，为吸引学生，激发学生兴趣，我以大富翁游戏，折纸游戏，猜密码等常见贴近学生生活实际的例子引入，通过编程解决高斯数学求和问题，折纸超过珠穆朗玛峰，追赶比尔