4.1.3 认识程序中的基本元素优质课教案设计

《vb程序设计语言——编制计算机程序解决问题之二》

教学设计

澄海中学

蔡锐红

【教学内容】

本节课是广东教学出版社出版的高中《信息技术基础》（必修）的第四章第一节的第二部分内容：VB程序及作用。本课将围绕编制计算机程序解决问题的中心思想，介绍程序的基本组成要素，让学生探究和体验程序的工作过程及作用，提高学生的学习兴趣，同时让学生懂得如何去预防病毒入侵或文件在传输过程中出现的邮件被盗，信息被窃取，懂得利用程序来解决问题，并提高解决问题方法的安全性和可行性的重视，培养学生思考问题的深度，教育学生懂得保护于己利益重大的信息，避免给自己或社会带来危害。

【学情分析】

学生在初中阶段没接触过程序设计语言的学习，但是对具体的程序实现功能充满兴趣和好奇，这对于VB的学习带来了良好的学习动机和驱动力。如何让学生在短短的2个课时对VB有个初步的认识及体验，是教师必须解决好的细节。

【教学目标】

1.

认识、掌握程序的基本组成要素

2.

理解程序代码的作用及工作方法

3.

了解ASCII码

4.

培养学生的学习兴趣，分析解决问题的能力

5.

提高解决问题方法的安全性和可行性的重视，保护信息的安全性

【教学重难点】

教学重点：帮助学生掌握用计算机编制程序解决问题的过程

教学难点：1.程序组成要素的学习

2.程序代码的理解

【教学方法】

案例探究法、讲授法、任务驱动法

1

【课时安排】

1课时

【教学过程】

环节一：

【直接点题】上节课我们一起学习了计算机的组成部件及工作原理，也认识了VB编制环境，这节课我们一起来学习VB程序，并利用程序来解决上节课刘丽妈妈的问题。

【程序引入】首先请大家一起来认识这两个VB程序，并思考一个问题：程序由哪些组成要素组成？

private sub form_click()

xml1$="刘"

xml2$="丽"

dm1=ASC(xml1$)

dm2=ASC(xml2$)

Print("字符")

print "机内代码是："

print xml1$

print dm1

print xml2$

print dm2

end sub

private sub form_click()

a=1

b=2

c=3

d=a*b-c

print "最终结果是：" &d end sub

学生观看，思考。。。。。。

环节二：

【知识讲授】计算机语言有自己的组成要素和书写规则。计算机程序通常包括常量、变量、运算符、函数、表达式、语句等。

1、常量：表示不变的量。有数值常量和字符常量，字符常量应在英文双引号“

”里，如字符”刘丽”。

2、变量：在程序里面可以被改变的量。有整型、实数型、字符型等类型。字符型变量与其他类型的变量不同，应该在变量名后加$，如字符变量A$。变量名的命名规则为：由字母、数字、下划线组成，并且以字母开头。

3、运算符：+、—、*、/等

4、函数：CHR( )

ASC( )

LEN( )

2

ASC( )：将字符转换为对应的机内代码（即为ASCII码，计算机能识别的二进制数）；（ASCII码表学习）

CHR( )：将机内代码转为对应的字符；

LEN( )：求字符串的长度（即为字符串的字符个数）

5、表达式：有上述的要素组成

6、语句：打印输入PRINT ；赋值语句=；子程序开始语句PRIVATE SUB；子程序结束语句END SUB。

环节三

【提问过渡】认识了程序的要素，特别是函数，现在大家能否利用上述的函数为刘丽妈妈设定一个加密的方法？（学生思考或请学生上台书写一个加密方法）

【探究学习】好，我们假设给她设定这样的加密方法CHR（ASC(字符）-10）

具体步骤：

1.ASC(字符）

把字符转换为ASCII码

2.ASC(字符）-10

把ASCII码减掉10，得到新的编号

3.CHR(ASC（字符）-10）

把新编号转换为字符

那么，字符Y

O

N

D 好，我们一起来学习体验以下加密程序的神奇作用

【加密演示】

【加密程序学习】

Private Sub Form_Load( ) FileName$ = InputBox(“请输入需要加密的文件名及路径:”)

’信息输入提示框

Open FileName$ For Input As #1

’打开并读取文件，以#1文件号输入

Line Input #1, yw$

’打开文件（#1）的字符给变量yw$ Close #1 xw$ = "" n = Len(yw$) For i = 1 To n

’循环语句，逐个字符读取

yz$ = Mid$(yw$, i, 1)

xz$ = Chr(Asc(yz$) - 10)

’加密语句，改变每个字符的编号

xw$ = xw$ & xz$

’字符连接

Next

’加密完成

Open FileName$ For Output As #1 Print #1, xw$ 3

环节五：

【体验探究】（学生完成）

1.启动VB6.0，新建工程，体验加密程序的工作过程，对比加密前的文件（明文）和加密后的文件

（密文）

选作：参考加密程序，自行编制加密程序

2.修改加密程序，使它变为解密程序，还原文件。

4