内容正文:
第十五课VB程序设计实战教学设计
教材分析:
本节课授课内容是初中信息技术课第三单元第十五课《VB程序设计实战》,在本章节中属于总结性和使用性相结合的知识点,通过程序的设计和运行能够很好的检验学生对本章节知识的掌握情况。
学情分析:
学生已经掌握了VB中的一些基础知识,了解了VB中的算法,知道了VB程序设计的一般步骤,对VB程序有了一定的了解。
教学目标:
1、自己完全分析程序,并编程。
2、理解程序填空题的解题思路。
3、掌握程序写结果题的分析思路。
教学重、难点:
编写程序和程序分析
教学方法:
讲授法、讨论法
课时:1课时
教学过程:
1、 新课导入
通过生活中常用的计算器的使用,导入本节课内容,引起学生的学习兴趣。同学们都用过计算器吗?今天我们就来学习怎么制作一个简单的加减法计算器。
2、 新课讲授
例1、编写程序实现模拟简单的计算器功能。单击“加”的时候实现两个文本框的加法运算,单击“减”的时候实现两个文本框的减法运算,并将结果输出到标签上,单击“退出”时,退出小程序。
很显然这是一个程序的设计问题,那么,我想问大家,咱们学过的VB程序设计的一般步骤是什么?VB设计的一般步骤为:设计用户界面、编写程序代码、运行并调试程序、保存程序,生成可执行文件。下面我们依次来做一下,先来设计用户界面:
在本程序中我们用到的控件有:两个文本框、一个标签、三个按钮。且它们的初始值为,文本框、标签的初始值为空,三个按钮的caption初始值分别为:“加”、“减”、“退出”。设计好的界面如下图:
界面设计好后,我们就要做代码的设计了,在本程序中需要编写代码的部分为:按钮1(即“加”的按钮)的加法运算、按钮2(即“减”的按钮)的减法运算和按钮3(即“退出”的按钮)的退出程序的设计。先来看按钮1的运算,当我们单击按钮是才会执行相应的程序,所以我们要编写的是command1-click事件,文本框中输入的为字符型数据,在计算加减运算时,用的是数值计算,所以我们要用函数把字符型数据转换为数值型数据,再进行加减运算,具体代码如下:
“加”按钮代码:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = Trim(Str(a + b))
End Sub
同样的道理,我们编写“减”的运算,代码如下
“减按钮代码:
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
Label1.Caption = Trim(Str(a-b)
End Sub
最后,来编写“退出”的代码:
“退出”按钮代码:
Private Sub Command3_Click()
End
End Sub
代码编写完成后,我们要运行和调试程序,在运行过程中,若代码出现错误,VB程序会弹出一个对话框如图1,提示错误的原因。当单击“调试”按钮后,会进入代码窗口如图2,在代码窗口中会以黄色箭头加黄色底纹的形式指出错误内容。当单击“结束”时,结束本次运行。
图1
图2
程序通过调试和运行,没有错误后可以单击“文件”下的“保存工程”命令,将工程保存到指定的位置。此时的工程文件并不能脱离VB的运行环境(即VB应用程序)。只有生成可执行文件后,此程序才可以脱离VB环境,成为一个单独的小程序,独立运行,方法为:单击“文件”下的“生成工程1.exe”即可。
这样一个简单的加减法计算器就做成了,下面我们来看一下具体的效果吧:学生观察运行效果,自己动手操作。
例2、下面是一个歌手大赛评分程序。10位评委,除去一个最高分和一个最低分,计算平均分(设满分为10分)。请填入适当的内容,将程序补充完整。
Private Sub Form_Click( )
Max=0
Min=10
For i=1 to 10
x=Val(InputBox(“请输入分数”))
If ( ) Then Max=x
If( )Then Min=x
s=s+x
Next i
s= (