中学新疆版八年级信息技术第十四课-VB综合应用练习二

布尔津镇初级中学教案

课题第十四课VB综合应用练习二

课时及授课1课时

时间

授课人20xx年6月13日

1.知识与技能

⑴掌握菜单编辑器的应用。

⑵掌握下拉式菜单和弹出式菜单的制作方法。

2.过程与方法

教学目标（学习

⑴菜单编辑器的熟练应用

目标）

⑵菜单项事件过程的编写方法

3.情感态度与价值观

通过学生的动手操作，使学生具备较强的自学能力、实践能力、创新能力，激发学生的

求知欲。

⑴单编辑器的熟练使用

教学重点

⑵菜单项事件过程的编写方法

教学难点菜单项事件过程的编写方法

教学用具多媒体网络教室

教学方法以任务区动式为主，演、讲、练相结合的教学方法

（学习方法）

教学过程一、导入备注

同学们下面这个记事本我们经常用到，几天我们就来一起自己动手（补充）

制作这个简易的记事本！

咬件MIU幡式««•>

二、新课：

步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改“超级记事本”，点击Icon

属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出

的“部件”对话框里找到MicrosoftRichTextBox6.0和公共对话框

MicrosoftCommonDialog6.0并选中它们，单击“确定”按钮。这时

左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制

RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不

用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性

设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。

步骤二、创建记事本的菜单栏

打开工具选项条单击菜单编辑器

力1^51•MicrosoftVtw4l［或计］

文依DMkD纪BOD工皿械(Q)防®见g)B9(DIM®JHWMKA)1COM)

◎,a6015x649s

m■性(川_

Forml(Fbrm),■MN

A1351

也」

■文件®MkD皿QIMJXH)

:…：•

PG

(1)在标题栏里面分别添加“文件(&F)”“编辑(&E)”“格式

(&A)”“帮助(&H)”并分别设置名称和快捷键。

(2)分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所

示的的子菜单，设置标题，名称，快捷键。

步骤三、代码的编写

(1)文件file

①新建new

new

PrivateSubnew_Click()

sfile=""一

Textl.Text=""

Forml.Caption="无标题-记事本"

EndSub

②打开open

jopen▼||C11ck

PrivateSubopen_Click。

OnErrorGoToa

CommonDialogl.ShowOpen

，分离路径和旻件名

DimindexAsInteger

index—IiMStrRev(CommonDialogl.FileName,

sfile=Right(CommonDialogl.FileNaine,Leu(CommoitPialogl.FileNanie)—:ndex)

sdir=Left(CommonDialogl.FileName.index-1)

'打开文件

OpenCommonDialogl.FileNameForInputAs#1

Textl.Text=""

DoWhileNotEOF(1)

LineInput#1,ss

Textl.Text=Textl.Text&ss&vbCrLf

Loop

Close#1

Form1.Caption=s£ile+“一记事本"

a:ExitSub

EndSub

③保存save

④另存为as

⑤打印print

⑥退出exit

(2)编辑editing

①剪切cut

②复制copy

③粘贴past

④删除delete

⑤查找find

⑥查找下一个findnext

⑦全选selea11

(3)格式

①自动换行autonew1ine

②字体fond

(4)帮助help

关于about

步骤四：程序调试

三、练习

学生不看书独立编写记事本的程序。

四、小结：

你收获了什么？

VB综合应用二

一、界面设计

二、代码编写

三、调试运行

板书设计

教学反思

布尔津镇初级中学教案

课题第九课成绩等级划分-选择结构程序设计三课时及授课1课时

授课人时间20xx年5月2日

(1)掌握分支选择结构实现条件判断控制。

教学目标(2)能够运用分支选择结构设计编制程序解决问题。

(学习目标)(3)培养学生的逻辑思维能力，促进学生对问题解决方法的理解。

(4)通过趣味性教学，使同学们保持高涨的学习兴趣，在操作的同时获得成功的喜悦。

让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，

教学重点

并且培养学生的探索、创新能力。

教学难点对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。

教学用具计算机多媒体教室

教学方法

讲授法、演示法、分组讨论法。

(学习方法)

教学过程一、回忆旧知备注

师:Ifyouenjoyrunningeverymorning,thenpleaseputyourright(补充)

hand,elsepleaseputyourlefthand.（屏幕演示）

生：（解释英语句子）

师：VB程序设计实例（求数的绝对值）——屏幕演示

师生交流：讨论程序中的代码

DimAAsInteger

A=Va1（text1.text）

IfA>=0ThenPrint"Y=";AElsePrint"Y=";-A

EndSub

引出知识点：通过实例展示分析，引出在VB中If语句的基本用法。

语法1If条件Then语句1Else屏幕演示，师生互相讨论

语句2师:1、关键字:ifthenelse

语法2If条件Thenendif

语句组12、条件是关系表达式或者是

Else逻辑表达式，关系表达式是用

语句组2关系运算符连接起来的式子。

EndIf例：A>0;A<>0;AMod

2=0

二、引入新课

使用switch语句实现下面程序。

输入一个学生的两门课成绩（百分制），计算该生的总分并要求输出成绩

等级‘A‘、’B'、’C'、’D'、'E'。总分在180分以上为4,

160~179分为‘B',140~159分为‘C',120~139分为‘D',120

分以下为‘E'。

具体要求：

①学生的两门课成绩通过键盘输入，成绩应该都为整数，输入之前要有提

〃《百息、。

②若输入的成绩不是百分制成绩，则给出错误提示信息，并且不再进行下

面的等级评价；若输入的成绩是百分制成绩，则计算总分，并根据要求评

价等级。

③按下面形式输出结果：

总分一一〉等级

如：186---〉A

把正确的程序源代码写在卜面。

程序代码：

#include<stdio.h>

intmain()//定义一个主函数

(

intgradel,grade2,sum;

chard;

printf("请输入你的两门成绩，成绩应为整数：\n");〃提示信息

scanf("%d,%d",&gradel,&grade2);〃输入语句

if(gradel<0||gradel>100||grade2<0||grade2>100)//if语句

设置条件

printf("输入错误，请输入百分制成绩。)〃提示错误

else

(

sum=(gradel+grade2)/20;〃定义算法

switch(sum)//用switch语句进行多分支

选择

(

case10:

case9:d='A';break;

case8:d='B';break;

c\*C:\Progra>Files\MicrosoftVisualStudio\lyProjects

请输入你的两门成绩，成绩应为整数：

-78,98

输入错误，请输入百分制成绩。Pressanykeytocontinue.

1■1

c\*C:\Progra>Files\MicrosoftVisualStudioMyProje

请输入你的两门成绩，成绩应港^

78,76

154——>C

Pressanykeytocontinue.

输出D:

c：r*C:\Progra>Files\MicrosoftVisualStudio\I^

请输入你的两门成绩，成绩应为衰

5乙67

L34——>D

Pressanykeytocontinue

输出E:

三、练习反馈、应用拓展—屏幕演示

练习任务：设计一个程序，输入三角形的三条边，并求出对应的三角形面

积

1、算法分析（师生互动）

①输入三条边（定义变量）

②判断这三条边是否能构成三角形（生：依据？）

③计算三角形面积的方法（生：（P=A+B+C）/2;S=SQR（P*（P-A）

(P-B)*(P-C))

④输出：三角形面积S/不能构成三角形

2、程序设计

师：程序界面设计——屏幕演示

3、程序代码编写，解决问题(上机实践)

师生互动：学生编写程序代码，教师指导教学

PrivateSubCommandl_Click()

Dima,b,c,p,sAsSingle

a=Vai(textl.Text)

b=Val(text2.Text)

c=Val(text3.Text)

p=(a+b+c)/2

Ifa+b>cAndb+c>aAndc+a>bThen

s=Sqr(p*(p-a)*(p-b)*(p-c))

Label2.Caption="该三角形的面积为:&s

Else

Label2.Caption="这三条边不能构成三角形”

EndIf

EndSub

师:指出学习的重点——If……Then……Else

四、知识回顾、总结提升

课堂小结—指出本节课程的知识点

语法1If条件Then语句1Else语句2

语法2If条件Then语句组1

Else语句组2

EndIf

五、拓展知识：①开语句的嵌套

②If语句的块结构

六、作业

某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克

1.5兀的基础上打8折。请设计一个程序计算购买X千克苹果的应付款。

提示：变量X表示苹果的重量，变量M表示应付款。

第八课成绩等级划分-选择结构程序设计三

条件语句

板书设计IfThen1

Else语句2

教学反思

布尔津镇初级中学教案

课题第十一课九九乘法表课时及授课

1课时

授课人时间20xx年5月23日

1、知识目标：了解循环结构在算法中的应用。

2、技能目标：学会在程序设计中利用循环结构有效地解决问题；理解算

教学目标（学

法优化的基础知识。

习目标）3、情感、态度与价值观目标：对待同一个问题，运用不同的知识和方法

解决问题，往往能达到事半功倍的效果。培养学生运用不同方法解决问题

的习惯

教学重点了解循环结构的实际应用。

教学难点循环结构的代码写法。

教学用具计算机多媒体教室

教学方法（学

讲授法、演示法、分组讨论法。

习方法）

教学过程一、创设情境激发兴趣（3分钟）备注

让学生回忆小学学过的九九乘法表，个别学生回答。再（补充）

让学生阅读"阅读与思考"，让学生知道九九乘法表的来历。

提出中心任务—用语言程序编写九九乘法表。

（设计意图：

为了更好地完成中心任务，教师在开始上课时引导学生通过原来就熟

悉的九九乘法

对以前学过的定义变量、常量、运算符、公式、赋值知识进

表，来激发学

行复习。生学习的欲

望，从而引入

二、启发探究学习新知（24分钟）本课）

1、循环结构定义：在算法中，从某处开始，按照一定

条件，反复执行某一处理步骤的过程。

2、观察分析九九乘法表的排列特点，指导学生分类：

一行、第1行，第9行、进而到第1列进行全面分析。

教学处理：这一环节主要采用学生合作探究方式完成流

程图绘制、程序界面的创建、代码的生成。

每四人为一组，教师参与到学生研究过程中，对学生出

现的问题进行及时点拨帮助，最后由学生展示自己的流程

图。然后教师展示正确流程图。

(设计意图：

)这样设计的目

的是为了培养

3、循环结构概念的理解：

学生合作交流

(1)循环结构的三要素：循环初始值、循环体、循环精神及协作沟

的终止条件。通能力，并训

练学生的画流

(2)循环结构的算法流程图程图的能力。

(3)当型循环与直到循环的区别

教学处理：引导学生认真观察刚刚得到的程序框图，给

学生2分钟讨论交流时间，让大家互相沟通，从而使得学生

对概念的理解更深刻，最后由学生说出以上对概念的理解，

教师进行归纳总结。

4、变式探究：

探究上再观察列，如第1列等如何编写程序。

探究2:中心任务的逼近。

E语言实现九九乘法表

(设计意图：

九九乘法表通过师生交

流，使学生对

概念有更深的

理解，同时锻

炼了学生归纳

、总结的能

力，增强合作

交流意识。创

建了和谐的课

堂氛围。)

窗口口程程序序集集名名保留保留留备备注注

窗口程序集1

子程序名返回值类型公开备注

一按钮1_被单击

变量名类型静态数蛆备注

被乘数整数型

乘数整数型

要显不的内容文本型1

厂〉计次循环首（9,被乘数）

：厂〉变量循环首（1,被乘数，1,）

要显示的内容=到文本（9）+“X”+到文本儆乘数）+"="+到文本6X被乘数）

画板1.定位写出独乘数X50-10,9X20-10,要显示的内容）

•二-变量循环尾0

：一计次循环尾0

厂，计次循环首⑸被乘数）

：厂〉变量循环首Q,被乘数，1,）

要显示的内容=到文本皴乘数）+“X”+到文本（I）+*="+到文本G史乘数X1）

画板1.定位写出（1x50-10,被乘数X20-10,要显示的闪容）

•L--变量循环尾0

L--计次循环尾0

3序名诋回值类型I公开I密译"

生

氏

逐

历

+:♦计次循环首⑨被乘数）|

:「一变量循环首（1,被乘数，1,乘数）

要显示的内容=到文本准乘数）*“X”♦到文本集数）♦“二”♦到文本隘乘数X乘数）

画板1.定位写出读数X50-10,被乘数X20-10,要显示的内容

:-变量循环尾0

二-计次循环尾0

窗口程序集名保留保留备注

窗口程序集1

子程序名返回值类型公开备注

一技钮1_被单击

变量名类型静态数组备注

被乘数整数型

乘数整数型

要显不的内容文本型

J+L，计次循环首（9,被乘数）

：:一变量循环首（1,被乘数，1,乘数）

要显示的内容=到文本隘乘数）*“X”+到文本读数）♦“二”*到文本独乘数X乘数

画板1.定位写出读数X50-10,被乘数X20-10,要显示的内容）

、…变量循环尾0

二-计次循环尾0

\动窗口］窗口程序集1/

（设计意图：

三、巩固知识应用提高（n分钟）①确定循环变

量和初始值；

变式1:结合练一练2探究。②确定循环

体；③确定循

此例可由学生独立思考、回答，师生共同点评完成。