VB程序的三种基本结构复习课教学案例

《VB程序的三种基本结构复习课教学案例》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方《VB程序的三种基本控制结构》复习课教案平桂高级中学陀君一、案例背景信息模块：算法与程序设计年级：高一年级所用教材版本：粤教版《算法与程序设计》学时数：1课时（40分钟）二、教学设计：1、教学目标：知识与技能：能根据流程图正确区分VB程序的三种基本结构，并记住相关语句格式，能编写出简单明了的程序关键代码；过程与方法：充分认识VB程序中三种基本结构的实用性，体会生活中算法的存在和精彩。情感态度与价值观：培养学生在学习

2、过程中积极思考、自我探究的能力和学以致用的意识。2、教学重点：顺序、选择（分支）和循环三种基本结构的区分及其对应的VB语句的使用。教学难点：for循环结构，各类语句关键代码的编写。三、教学实录1．复习引入师：我们之前学过VB的基本结构，通常程序有三种最基本的结构，是哪三种结构？----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方大部分学生在底下小声回答，师让

3、某生回答，说：顺序模式、分支模式、循环模式。师：分支模式也可称为？部分学生：选择模式。师：非常好，接下来看下这三种结构的流程图，然后分别指出这三个流程图是什么结构。（出示三种流程图结构）2．正题（1）顺序结构P38：　　执行第一条语句后，必然从第二条语句继续，顺序执行所有的语句，直到执行完最后一条语句为止。例1：例1、 a=1b=2c=a+ba=c-a----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所

4、需-------------文档下载最佳的地方b=c-a最后，变量b的值是（1）（2）选择结构（分支结构）：P42根据条件判断其是否成立，如果成立执行成立的分支；否则执行另一分支。其一般形式为：If条件Then语句序列1Else语句序列2EndIf单行形式为：If条件Then语句组1Else语句组2例2、a=10Ifa>=10Thena=a+1Elsea=a-1EndIf该程序段运行后，变量a的值是（D）A.8B.9C.10D.11　　【师读题，学生思考。请同学回答，让同学们思考a=5结果是多少】（3）循环结构：P51根据

5、条件判断其是否成立，如果条件成立则重复执行循环体（循环结构中某语句序列），直到条件不成立，退出循环结构为止。----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方　　循环结构的常用形式为：for循环变量=初值to终值[step步长][循环体]next[循环变量]注：当“step步长”项缺省时，表示步长是1重点讲解For循环语句执行过程（P52）例4、s=0fo

6、rI=1to5s=s+Inext最后，变量s的值是（15）----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方　　【这个题目是最简单的For结构语句，让学生更好理解】3．课堂巩固练习1、有以下程序段：①．I=3②.J=0J=5ForI=lTo5I=I＋JJ＝J十1Next③.j=0④.J=0IfJ＞0ThenIfJ＞0ThenJ＝J＋1J＝J＋lEndifE

7、lseJ＝J-1Endif以上四个程序段中，属于顺序结构的是，属于分支结构的是，属于循环结构的是。2．以下程序，运行后x的值为（　）x=2y=3y=y+1x=x+y-1A.lB.3C.5D.73、以下程序，运行后变量A的值为()X=20Ifx>=10thenA=5*xelse----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方----------专业最好文档，专业为你服务，急你所急，供你所需-------------文档下载最佳的地方A=4*xendifprint“

8、A的值是"；A最后，变量A的值是（）A、50B、40C、100D、804.综合上机实践编程计算1到100之间所有奇数和。算法描述如右图所示程序段如下：Privatesubcommand1_Click()DimsumAsIntegerDimiasIntegerSum=0Fori=1to100If①Then