2022年vb趣味程序教案.docx

名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案教学进度表细心整理归纳 精选学习资料 周次时间教学内容 第 1 页,共 19 页 39月16日QQ 登录窗口的制作初步熟识运算机语言49月23日VB 程序设计的过程59月28日VB 程序的数据与表达式8、910月21日、 28日几何运算（ 2 课时）1011月4日程序的挑选结构1211月18日程序的循环结构1311月25日1412月2日整人小程序1712月23日计时秒表1812月30日小球来回弹屏幕爱护程序191月6日期末考查 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案星期 2 总第 1 课时2022 年 9 月 16 日第 2 周课题QQ登录窗口的制作初步熟识运算机语言1 课时课型新授课教学时数（一）学问与技能：明白运算机语言；熟识 VB开发环境教学明白 VB中的对象、属性、大事学会编写窗体的设计代码,并能运行程序目标（二）过程与方法：通过 QQ登陆窗体的制作明白并把握程序编写的整个过程（三）情感、态度与价值观：教材分析重点 属性、方法和大事难点 VB 的集成开发环境教学方法 讲授法、演示法、练习法、任务驱动法 教学情形设计【学习要点】明白运算机语言；明白 VB语言的特点；熟识 VB开发环境【新课讲授】一、明白运算机语言各种软件,包括Windows、Word、PowerPoint 、各种嬉戏等都是运算机语言编写出来的；（演示）如贪吃蛇嬉戏、健康指标运算器等等；常见的高级语言 1. BASIC； 入门者首选语言；指令少,简洁上手,易于把握；2. PASCAL；适合科学运算、数据处理,运行编译速度快；3. C语言；主要适用于应用软件的开发,运算机专业人员的必修课；JAVA、.Net 、PHP、 C#、HTML 4.二、 VB语言介绍 VB 是 Visual Basic 的简称,它对学习者的要求不高,但本身效率高、功能强大、有用性强；主要有如下特点：面对对象、大事驱动、软件的集成式开发、结构化；面对对象和面对过程 的区分：例如五子棋,面对过程的设计思路就是第一分析问题的步骤：1、开头嬉戏,细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 2 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案2、黑子先走,3、绘制画面,4、判定输赢,5、轮到白子,6、绘制画面,7、判定输赢,8、返回步骤 2,9、输出最终结果；把上面每个步骤用分别的函数来实现,问题就解决了；而面对对象的设计就是从另外的思路来解决问题；整个五子棋可以分为：1、黑白双方,这两方的行为是一模一样的,2、棋盘系统,负责绘制画面,3、规章系统,负责判定诸如犯规、输赢等；第一类对象（玩家对象）负责接受用户输入,并告知其次类对象（棋盘对象）棋子布局的变化,棋盘对象接收到了棋子的变化就要负责在屏幕上面显示出这种变化,同时利用第三类对象（规章系 统）来对棋局进行判定；可以明显地看出,面对对象是以功能来划分问题,而不是步骤；三、 VB的开发环境四、制作 QQ登录界面【同学练习】完成 QQ登录界面的制作,并储存工程提交；教学后记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 3 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案总第 2 课时2022 年 9 月 23 日第 4 周星期 2 课题新授课VB程序设计的过程1 课时课型教学时数（一）学问与技能：明白运算机语言；熟识 VB开发环境教学明白 VB中的对象、属性、大事学会编写窗体的设计代码,并能运行程序目标（二）过程与方法：通过 QQ登陆窗体的制作明白并把握程序编写的整个过程（三）情感、态度与价值观：教材分析重点 属性、方法和大事难点 VB 的集成开发环境教学方法 讲授法、演示法、练习法、任务驱动法教学情形设计【新课引入】【新课讲授】对象名称属性、方法或大事属性、方法或大事作用说明登陆窗体Form1 Height 属性、 Width 属性窗体的高度和宽度登陆窗体Form1 Hide 方法隐匿登录窗体图片Image1 Height 属性、 Width 属性图片的高度和宽度图片Image2 Height 属性、 Width 属性图片的高度和宽度图片Image1 Picture 属性显示的图片图片Image2 Picture 属性显示的图片文本框 输入帐号 Text1 Text 属性Text 属性记录输入的值账号 文本框 输入密码 Text2 PasswordChar 属性输入密码时显示的字符按钮 登陆 Command1 Click 大事点击按钮执行登陆大事按钮 退出 Command2 Click 大事点击按钮执行退出大事一、属性对象的 属性 :指对象 窗体、控件）的大小、颜色、方位等一系列外观或内部构造的特点1.Height 是高度, Width 是宽度pixel）不同,它们之间的转换关系为15twip=1pixel ； 第 4 页,共 19 页 VB 使用的是 twip 坐标系统,它与像素（细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -已知“qq1.jpg” 的高度为名师精编优秀教案twip 单位,即 height 属性应139pixel ,宽度为 379 pixel ,就将之改为该为 _twip ,width 属性应当为 _twip; 已知“qq2.jpg” 的高度为98 pixel,宽度为 100 pixel ,就将之改为twip 单位,即 height 属性应该为 _twip ,width 属性应当为 _twip; 2. Picture 属性将 Image1 的 Picture 属性设置为 qq1.jpg,将 Image2 的 Picture 属性设置为 qq2.jpg. 3. PasswordChar 属性参考 P59 一点通,将密码 Text2 控件的 PasswordChar 属性改成“*”二、大事对象的 大事 :指对象 窗体、控件）对外部条件的响应；VB 是由大事触发（ 大事驱动 ）,例如单击某个按钮（ Click 大事 ）,文本框内容变更（Change 大事 1. Click 大事参考 P60； 单击“ 退出” 按钮触发的大事为终止本程序； 单击“ 登录” 按钮触发的大事为弹出一个消息框并且将本窗体隐匿；三、方法对象的 方法 ：指对象 窗体、控件）所进行的操作；例如窗体的隐匿、刷新；图像对象的移动等；1. Hide 方法单击“ 登录” 按钮后,将 QQ 登录窗体隐匿,即 form1.Hide 储存工程到自己的文件夹内,储存窗体名为“login.frm ” ,储存工程文件为“login.vbp ” ,生成 exe 文件,文件名为“login.exe”【同学练习】教学后记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 5 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案星期 2 总第 3 课时2022 年 9 月 28 日第 5 周课题新授课VB 程序的数据与表达式1 课时课型教学时数（一）学问与技能：把握 VB中常用的数据类型 把握 VB中常量和变量的说明方法教学（二）过程与方法：VB编写程序的整个过程目标通过分数运算器的制作,体会使用（三）情感、态度与价值观：培育勇于实践、勤于摸索和善于总结的科学探究精神与严谨的治学 态度；教材分 重点 常见的数据类型；常量、变量说明方法 常量和变量的说明方法 析 难点 教学方法 讲授法、演示法、练习法、任务驱动法 教学情形设计【新课引入】展现本节课任务：完成分数运算器的制作；【新课讲授】一、基本数据类型 1、整型 integer 不带小数点的整数；整型的标识符为 中的语文、数学、英语、总分采纳整型 2、长整型（ long ）integer ,取值范畴为 -3276832767；如范例与 integer一样存取整数,但取值范畴较大；取值范畴为-21474836482147483647 3、实数型 single 可储备小数或者整数；如范例中的平均分可能会取小数,所以用实数型表示；4、字符串型（ string ）细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 6 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案由字母、数字字符构成的序列, 必需用双引号括起来； 例如“ 张三” 、“ zhangsan” 、“ 123” ；留意：“123” 和 123 是有区分的 二、常量在程序运行过程中,取值不变的量称为常量；常量定义部分的一般形式为：Const 常量名 as 类型 =表达式 例如以下的常量说明语句,哪个是正确的 . A. Const x as integer B. Const x as integer=3.14 C. Const x as single=3.14 三、D. Const name as string=“ 张三”E. Const name as string=张三变量在程序运行过程中,取值可以转变的量称为变量；变量定义部分的一般形式为：Dim 变量名 as 类型例如： Dim yw as integer Dim sx as integer Dim yy as integer 也可以放在同一行,如上述语句可以写成：四、Dim yw as integer, sx as integer, yy as integer是正确的就是错误的Dim yw as integer, sx as integer, yy as integer,pjf as single分数运算器的制作【同学练习】完成分数运算器的制作,并储存工程提交；教 学本范例与同学实际生活相关,便利同学懂得,学习成效不错；同学简洁出错的地方：控件的名称写错,导致编译时“ 要求对象”后记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 7 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案星期 2 总第 4、5 课时2022 年 10 月 21、28 日第 8、 9 周课题新授课几何运算2 课时课型教学时数（一）学问与技能：明白次序结构的特点 把握 VB语言中的赋值语句；教学（二）过程与方法：VB 的赋值和输出语句,并尝试解通过完成自动饮料机的制作,把握目标决实际问题；（三）情感、态度与价值观：培育同学发觉问题、摸索问题和解决问题的习惯；培育同学初步的程序设计思维；教材分 重点 TextBox、Image、Label 的使用；赋值语句 对次序结构的懂得和运用；Label 和 TextBox 的使用 析 难点 教学方法 自学法、练习法、任务驱动法 教学情形设计【新课引入】展现本节课任务：完成分数运算器的制作；【同学练习】第一个窗体中：长方形运算按钮代码提示：细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 8 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案长方形面积运算代码提示：教 学 后 记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 9 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案星期 2 总第 6、7 课时2022 年 11 月 4 日第 10 周课题新授课程序的挑选结构2 课时课型教学时数（一）学问与技能：熟识挑选结构的特点 把握条件语句 学会使用条件语句解决实际问题教学（二）过程与方法：QQ登录界面的制作和完善体验自主学习并获目标在老师的指导下,通过得胜利的欢乐；（三）情感、态度与价值观：培育同学的规律思维才能、促进同学对运算机解决问题方法的懂得；在自主探究解决问题的过程中,让同学体验学习的乐趣；教材分 重点 巩固挑选结构的格式、执行过程及其功能；析 难点 巩固挑选结构的格式、执行过程及其功能 教学方法 讲授法、演示法、练习法、任务驱动法 教学情形设计【新课引入】展现本节课任务：完成【新课讲授】一、注册窗口的完成QQ登录界面的注册、登录；1. 使用 user 记录昵称,使用 pass 记录密码,即 Public user, pass As String 2. “ 退出” 按钮代码为 End；3. “ 注册” 按钮实现记录用户输入的账号和密码,并显示登录窗体,隐匿注册窗体；代码为：user = Text1.Text pass = Text2.Text 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 10 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案form2.Show form1.Hide 二、登录窗体的完成1. 假如用户在登录窗体输入的账号和密码与注册窗体输入的一样,就显示登录后 的窗口,否就提示“ 账号或密码错误”；2. 退出” 按钮代码为 End；“ 登录” 按钮代码为：3.If user = Text3.Text And pass = Text4.Text Then form3.Show form2.Hide Else MsgBox " 帐号或密码错误 " End If 【同学练习】完成 QQ 注册、登录界面的制作,并储存工程提交；【扩展练习】 Option 控件的使用；“ 提交” 按钮代码为：“ 返回重选”“ 返回重选”If Option1.Value = True Then 按钮代码为：按钮代码为：Form1.Hide Form1.Show Form1.Show Form2.Show Form3.Hide Form2.Hide Else Form1.Hide Form3.Show End If 教 同学爱好盎然,课堂气氛活跃,把握情形很好；学后记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 11 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案星期 2 总第 8 课时2022 年 11 月 25 日第 13 周课题新授课程序的循环结构1 课时课型教学时数（一）学问与技能：熟识循环结构的特点把握 For 循环语句教学学会使用 For 循环语句解决实际问题目标（二）过程与方法：初步学会使用For 循环语句解决简洁实际问题；（三）情感、态度与价值观：培育同学讨论性学习才能、规律思维才能以及温故知新的学习爱好和创新精神；教材分 重点 把握 For/Next 循环语句的格式和执行步骤析 难点 For/Next 循环语句的格式和执行步骤教学方法 讲授法、演示法、练习法、任务驱动法教学情形设计【新课引入】师： 5、4、3、 2、1,我们现在开头上课；刚才我们看到一个倒计时的程序,在日常生活中我们常常会遇到这种情形,例如十运会的倒计时牌；十字路口的红绿灯；火箭发射最终的数秒；我们如何在运算机中用 VB来实现以上的功能呢？【复习回忆】师： jishi Text显示的内容是5,写出相应的语句？生： jishi.Text=5 添加 Delay1 【新知学习】程序 功能Dim i As Integer 定义整型变量 i For i = 5 To 0 Step -1 掌握变量 5-0 变化Jishi.Text = i 显示变量 i 的值（ 5、4、3、2、 1、0）Delay 1 延时 1 秒Next i 一、推测各语句的功能二、 For 语句的格式For < 循环变量 >=<初值 > To < 终值 > Step <步长 > 第 12 页,共 19 页 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - - <语句 > 名师精编优秀教案Next < 循环变量 > 三、 For 语句的执行过程【同学练习】1.在屏幕中显示5、4、3、2、 1、0；做好后生成工程1.exe 2.在屏幕中显示12、22、32、 42、52 ；做好后生成工程5.exe 【新课讲授】【新知拓展】 暴力破解密码算法分析 ：从 0 到 999999 依次尝试,假如某个数字和密码相等,就输出、退出循环；否就连续尝试下一个数；密码变量为 pass循环变量的初值为 _. 循环变量的终值为 _. 步长为 _？循环语句为 _. 假如破解胜利,循环变量的值为 _？假如破解不胜利,循环变量的值为 _？For i=_ to _ step _ If _ then jieguo.text=_ exit for end _ Next _ If i=_ then jieguo.text=“ 破解失败”End if教 学 后 记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 13 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案总第 9 课时2022 年 12 月 2 日第 14 周星期 2 课题新授课整人小程序1 课时课型教学时数（一）学问与技能：熟识循环结构的特点 把握 For 循环语句教学学会使用 For 循环语句解决实际问题目标（二）过程与方法：初步学会使用For 循环语句解决简洁实际问题；（三）情感、态度与价值观：培育同学讨论性学习才能、规律思维才能以及温故知新的学习爱好和创新精神；教材分 重点 把握 For/Next 循环语句的格式和执行步骤析 难点 For/Next 循环语句的格式和执行步骤教学方法 讲授法、演示法、练习法、任务驱动法教学情形设计【新课引入】展现几个整人小程序：鼠标狂按的“ 数羊” 、定时关机、新建很多文件的三个程序【新知学习】一、数羊 程序中的 10 可以更换二、定时关机 程序中的 60 即 60 秒细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 14 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -三、新建文件名师精编优秀教案【同学练习】教 学 后 记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 15 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案总第 10 课时2022 年 12 月 23 日第 17 周星期 2 课题用定时器设计的工程计时秒表1 课时课型新授课教学时数（一）学问与技能：把握 VB内部函数 Timer 的用法教学把握设置 shape 控件属性的方法（二）过程与方法：目标学会使用 Timer 制作一个功能齐全的计时秒表（三）情感、态度与价值观：教材分重点 Timer 的用法析 难点 Timer 的用法教学方法 讲授法、演示法、练习法、任务驱动法教学情形设计【新课引入】本节课我们将利用 VB内部函数 Timer 制作一个计时秒表,成效如下图：【新课讲授】“ 计时秒表” 是利用 VB内部函数 Timer ,该函数报告从当天零点到现时的总秒数；假如两次启用此函数,就可以得到这两次启用时的时间差,也就起到了计时的作用；“ 计时秒表” 程序采纳两种计时方式,假如计时的时间间隔较短,可以用鼠标按键放下时开头计时,鼠标键释放时终止计时的方式, 程序中用Command_MouseDown和 Command_MouseUp两大事来处理计时的；假如计时的时间间隔较长,就可以分别按“ 计时开头” 和“ 计时终止” 两命令按钮来计时,这两个命令按钮都是响应鼠标单击大事的 Command_Click ；程序的表达式：IntTimer-start*1000/1000 是运算“ 计时秒表” 终止时与启动时的时间差,并精确到 1/1000 秒；本程序使用了一个 Shape1 控件,它用 Timer1 定时器每隔 0.5 秒驱动一次, 以显示计时器的工作状态,在计时仍是不在计时；代码讲解：Dim start, start1 ' 变量说明语句Dim a As Integer 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 16 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案Private Sub Command1_Click Label1.Caption = "" ' 清空 Label1 End Sub Private Sub Command2_Click start = Timer ' 计时开头, start 取当前时间Shape1.Visible = True ' 计时开头, shape1 显示 End Sub Private Sub Command3_Click Label1.Caption = IntTimer - start * 1000 / 1000 & "秒" '计时终止, label1显示当前时间与 start的差值,并精确到小数点后3 位Shape1.Visible = False '计时终止, shape1 不行见End Sub Private Sub Command4_Click End ' 退出程序 End Sub Private Sub Command5_MouseDownButton As Integer, Shift As Integer, X As Single, Y As Single start = Timer ' 取鼠标按下时的时间End Sub Private Sub Command5_MouseUpButton As Integer, Shift As Integer, X As Single, Y As Single Label1.Caption = IntTimer - start * 1000 / 1000 & "秒" '取鼠标释放时的时间与按下时间的差值,并精确到小数点后3 位End Sub Private Sub Form_Load Shape1.Visible = False ' 开头时 shape1 不行见 End Sub Private Sub Timer1_Timer a = a + 1 'a为计数器如计数器为偶数,就让shape1 显示红色,否就显示绿色If a Mod 2 = 0 Then ' Shape1.BackColor = RGB255, 0, 0 Else Shape1.BackColor = RGB0, 255, 0 End If End Sub 【同学练习】教 学后 记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 17 页,共 19 页 - - - - - - - - - 名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -授课时间名师精编优秀教案总第 11 课时2022 年 12 月 30 日第 18 周星期 2 课题小球来回弹屏幕爱护程序1 课时课型新授课教学时数（一）学问与技能：教学把握 Lefttopheightwidth等属性的用法、windowstate 把握制作屏幕爱护程序的基本思想：调整borderstyle（二）过程与方法：目标学会使用 vb 制作一个小球来回弹的屏幕爱护程序（三）情感、态度与价值观：教材分重点 Timer 的用法析 难点 Timer 的用法教学方法 讲授法、演示法、练习法、任务驱动法教学情形设计【新课引入】本节课我们将利用 VB制作一个小球来回弹的屏幕爱护程序,成效如下图：【新课讲授】1. 将窗体的 Borderstyle 属性（边框样式）设置为 0-none（无边框）2. 将窗体的 windowstate （窗口运行时的状态）属性设置为 2-maximized （最大化）3. 将窗体的 backcolor （背景颜色）属性设置为自己喜爱的颜色；4. 添加 1 个 timer 控件,设置 timer1 的 interval 属性为 10 5. 添加一个 shape,设置它的 fillcolor（填充颜色） 、fillstyle 为 0-solid ,shape属性为 3-circle 6.代码提示： 第 18 页,共 19 页 - - - - - - - - - 细心整理归纳 精选学习资料 - - - - - - - - - - - - - - -名师归纳总结 精品学习资料 - - - - - - - - - - - - - - -名师精编 优秀教案请同学们摸索：如何制作小球上下弹的屏保？小组合作完成；提示：请设置两个方向变量 dim fx,fx2 Fx 掌握左右移动的球, fx2 掌握上下移动的球【同学练习】教 学 后 记细心整理归纳 精选学习资料 - - - - - - - - - - - - - - - 第 19 页,共 19 页 - - - - - - - - -