教学进度表
常见的高级语言
1.BASIC。入门者首选语言。指令少，容易上手，易于掌握。
2.PASCAL。适合科学计算、数据处理，运行编译速度快。
3.C语言。主要适用于应用软件的开发，计算机专业人员的必修课。
4.JAVA、.Net、PHP、C#、HTML……
四、制作QQ登录界面
【学生练习】
完成QQ登录界面的制作，并保存工程提交。
教学
后记
【新课讲授】
对象名称登陆窗体Form1
登陆窗体Form1
图片Image1 图片Image2 图片Image1 图片Image2
基本数据类型
(integer)
不带小数点的整数；整型的标识符为integer，取值范围为-32768~32767中的语文、数学、英语、总分采用整型
【学生练习】完成分数计算器的制作，并保存工程提交。
本范例与学生实际生活相关，方便学生理解，学习效果不错。
【新课讲授】
Public user, pass As String “注册”按钮实现记录用户输入的账号和密码，并显示登录窗体，隐藏注册窗体；
刚才我们看到一个倒计时的程序，在日常生活中我们经常会遇到这种情况，例如十运会的倒计时牌；十字路口的红绿灯；火箭发射最后的数秒。我们如何在计算机中用
，写出相应的语句？
【学生练习】
1.在屏幕中显示5、4、3、2、1、0。做好后生成工程1.exe
2.在屏幕中显示12、22、32、42、52 。做好后生成工程5.exe 【新课讲授】
【新知拓展】暴力破解密码
算法分析：从0到999999
VB内部函数Timer，该函数报告从当天零点到现时的总秒数。如果两次启用此函数，就可以得到这两次启用时的时间差，也就起到了计时的作用。“计时秒表”程序采用两种计时方式，如果计时的时间间隔较短，可以用鼠标按键放下时开始计时，鼠标键释放时结束计时Command_MouseDown()和Command_MouseUp()两事件来处理计时的；
间间隔较长，则可以分别按“计时开始”和“计时结束”两命令按钮来计时，这两个命令按钮都是Command_Click()。程序的表达式：
Int((Timer-start)*1000)/1000
Borderstyle属性（边框样式）设置为0-none（无边框）windowstate（窗口运行时的状态）属性设置为2-maximized backcolor（背景颜色）属性设置为自己喜欢的颜色。
请同学们思考：如何制作小球上下弹的屏保？小组合作完成。提示：请设置两个方向变量dim fx,fx2
Fx控制左右移动的球，fx2控制上下移动的球
【学生练习】
教
学
后
记
实验一：(带有进度条的倒计时程序) Public Class Forml Dim timers As In teger Dim temp As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick If (ProgressBarl.Vaiue + ProgressBarl.Maximum / timers < ProgressBarl.Maximum) The n ProgressBarl.Vaiue += ProgressBarl.Maximum / timers Else Timerl.E nabled = False ProgressBarl.Vaiue = ProgressBarl.Maximum MessageBox.Show(”进度完成！") End If temp += 1 Labell.Text = temp.ToStri ng() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies MyBase.Load timers = 30 End Sub Private Sub Butto n2_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on 2.Click timers = Val(I nputBox(" 输入"," 请输入总时间。",30, 0, 0)) End Sub Private Sub Butto n1_Click(ByVal sender As System.Object, ByVai e As System.Eve ntArgs) Han dies Butt on I.Click Timerl.E nabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Forml Dim t As In teger Private Sub Timer1_Tick(ByVal sender As System.Object, ByVai e As System.EventArgs) Han dies Timerl.Tick 'Dim t As Boolean 'If t = True Then ' PictureBox3 .Im age = PictureBox2 .Im age 't = False 'Else ' PictureBox3 .Im age = PictureBoxI .Im age
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
实验一:(带有进度条的倒计时程序) Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick If(ProgressBar1、Value + ProgressBar1、Maximum / timers < ProgressBar1、Maximum) Then ProgressBar1、Value += ProgressBar1、Maximum / timers Else Timer1、Enabled = False ProgressBar1、Value = ProgressBar1、Maximum MessageBox、Show("进度完成！") End If temp += 1 Label1、Text = temp、ToString() End Sub Private Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Timer1、Enabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3、Image = PictureBox2、Image ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image
教学进度表
一、了解计算机语言 各种软件，包括Windows、Word、PowerPoint、各种游戏等都是计算机语言编写出来的。（演示）如贪吃蛇游戏、健康指标计算器等等。 常见的高级语言 1.BASIC。入门者首选语言。指令少，容易上手，易于掌握。 2.PASCAL。适合科学计算、数据处理，运行编译速度快。 3.C语言。主要适用于应用软件的开发，计算机专业人员的必修课。 4.JAVA、.Net、PHP、C#、HTML…… 二、VB语言介绍 VB是Visual Basic的简称，它对学习者的要求不高，但本身效率高、功能强大、实用性强。主要有如下特点：面向对象、事件驱动、软件的集成式开发、结构化。 面向对象和面向过程的区别： 例如五子棋，面向过程的设计思路就是首先分析问题的步骤： 1、开始游戏， 2、黑子先走，
四、制作QQ登录界面 【学生练习】 完成QQ登录界面的制作，并保存工程提交。 教学 后记 授课时间2014年9月23日第4周星期2 总第2课时课题VB程序设计的过程 课型新授课教学时数1课时 教学（一）知识与技能：
目标了解计算机语言； 熟悉VB开发环境 了解VB中的对象、属性、事件 学会编写窗体的设计代码，并能运行程序 （二）过程与方法： 通过QQ登陆窗体的制作了解并掌握程序编写的整个过程 （三）情感、态度与价值观： 通过制作学生最熟悉的QQ登录界面，使学生对VB程序设计产生浓厚的兴趣。 教材分析 重点属性、方法和事件 难点VB的集成开发环境 教学方法讲授法、演示法、练习法、任务驱动法 教学情景设计 【新课引入】 【新课讲授】 对象名称属性、方法或事件(属性、方法或事件)作用说明 登陆窗体Form1 Height属性、Width属 性窗体的高度和宽度
当前位置：首页>VB 小程序> 让整个屏幕雪花飘飘（改进） 58. VB整人小程序：让整个屏幕雪花飘飘（改进） 这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。 本程序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。 本程序编译成 exe 文件运行后，只能通过系统“任务管理器”才能终止运行。程序运行效果截图如下: '' '本程序包含两个窗体，Form1 和 Form2，其中 Form1 是启动窗体。代码在在 VB6 调试通过： ''下面是 Form1 窗体代码：===================================== '' 注意：在属性窗口将窗体的 BorderStyle 属性设置为 0，即窗体是无边框窗体 '' 在窗体上放置一个控件：Timer1，不必设置任何属性 ''本人原创，转载请注明文章来源：https://www.doczj.com/doc/712834870.html,/100bd/blog/item/fbb5bdd5f0564910a08bb740.html Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Dim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As Long Private Type tySnow '定义表示雪花的数据类型 X As Single: xV As Single 'x 坐标、水平移动速度
教学过程一、导入新课（提问法） 1、教师提出疑问：如何打开并关闭vb程序，从而导入课题？ 软件开发就是一门新兴得朝阳产业，而期中程序设计就就是它得最基础部分，这学期我们通过学习vb来掌握程序开发。 二、讲授新课（讲授演示法） 1、启动与退出vb 1.1启动vb：桌面上双击快捷图标，执行“开始——程序——microsoft Visual basic 6、0中文版”命令。 教师讲解，有以下四种启动方式。 方法1、使用“开始”菜单得“程序”命令； 方法2、使用“我得电脑”图标，找到“vb6、exe”并双击它； 方法3、使用“开始”菜单得“运行”命令； 方法4、利用快捷方式。 1、2 退出vb：执行“文件——退出”命令，点击标题栏得关闭按钮 2、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 教师讲解，有以下两种退出方式。 1、“文件”菜单－>“退出” 2、Alt＋Q 系统将提示就是否存盘，根据需要回答“Y” / “ N” 3、设置vb工作环境 用户可以根据自己需要对vb程序进行相关设置，执行“视图”菜单中得命令，可以打开或关闭相应得窗口。 4、运行示例程序 演示“泡沫”、“飞舞得蝴蝶”、“计算器”。
形成性测试1、把vb工具箱中得每个控件得英文名对应得中文名标注出来 小结本课我们主要学习vb程序得基本知识： 一、启动与退出vb 二、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。板书设计第一课vb 开发环境简介 一、认识vb 二、演示示例程序 作业练习 课后反思
课题第1课vb 开发环境简介课类信息技术 教学目标1、知识目标： ●了解程序设计得一些术语 ●熟悉vb开发环境 ●掌握启动与退出vb得方法 2、能力目标：培养学生得观察能力、自我探索、自主学习得能力与团体协作得能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知 欲，在不断摸索中陶冶情操。 前提诊测1、如何打开并关闭vb程序 导入新课软件开发就是一门新兴得朝阳产业，而期中程序设计就就是它得最基础部分，这学期我们通过学习vb来掌握程序开发。 教学方法任务驱动法、演示操作法 教学重点认识vb开发环境 教学难点Vb界面中各部分得功能 教学过程一、上机练习 二、知识点补充 1、程序设计语言：机器语言，汇编语言与高级语言 2、visual basic：可视化basic语言。编写程序时，可以通过鼠标操作用控件组成程序得窗口界 面，然后再编写相应得程序代码。 形成性测试1、把vb工具箱中得每个控件得英文名对应得中文名标注出来 小结本课我们主要学习vb程序得基本知识： 一、启动与退出vb 二、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 板书设计第一课vb 开发环境简介 一、认识vb 二、演示示例程序 作业P 课后反思
《VB条件判断结构程序设计》教学案例 职高一计算机王攀【案例背景】 职业高中计算机课程的实施，其课程目标定位于全面提升学生的计算机专业知识，其课程的设置从知识与技能，过程与方法，情感态度与价值观三个方面实施这个课程目标。然而面对学生素质的薄弱，要求教师要结合简单的生活实例，引导学生进行探索式学习，问题从简单的生活实例入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 控制结构是《VisualBasic语言程序设计基础》中最重要的章节之一，本节主要研究最基本的条件判断结构，旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “条件判断结构”是《VisualBasic语言程序设计基础》第七章第一节的内容，共分三课时，本课为第一课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法、这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适
的小程序计算器 对于刚入门学习VB6 的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot,负号按钮是cmdMinuse,数字0?9为了偷懒，用了控件数组cmdNumber(O)~ cmdNumber(9)，上面txtShow 是显示数字和结果用的，txtOperate 是显示中间步骤的。 思路大致是这样, 点加减乘除这类操作符的时候, 把当前txtShow 的值保存在模块变量mstrParam1 里,同时把操作符保存到mstrOperate 里,按等于号时把先把当前txtShow 的值保存在模块变量mstrParam2 里,然后对mstrParam1 和mstrParam2 进行运算,当然要记得设法把String 转换成数值进行运算。 转换的过程要注意,这里是用的Variant 数据类型, vParam1 和vParam2 都是Variant 类型,保存的是mstrParam1 和mstrParam2 的数值。之所以不用integer 、long 、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才 到47 ,这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常 大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。Explicit Private Const mstrFORMATDEFAULT As String = "#.##" Private mstrParam1 As String, mstrParam2 As String Private mstrOperate As String Private Sub cmdAdd_Click() mstrParam1 = Trim mstrOperate = "+" ___ nil = & mstrParam1 & vbCrLf = & mstrOperate & vbCrLf End Sub Private Sub cmdPlus_Click() mstrParam1 = Trim mstrOperate = "-" ____ Illi
第1课vb 开发环境简介 课题 教学目标1、知识目标： ●了解程序设计的一些术语 ●熟悉vb开发环境 ●掌握启动与退出vb的方法 2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知 欲，在不断摸索中陶冶情操。 授课课时4个课时 教学方法任务驱动法、演示操作法 教学重点认识vb开发环境 教学难点Vb界面中各部分的功能
教学过程一、导入新课（提问法） 1、教师提出疑问：如何打开并关闭vb程序，从而导入课题？ 软件开发是一门新兴的朝阳产业，而期中程序设计就是它的最基础部分，这学期我们通过学习vb来掌握程序开发。 二、讲授新课（讲授演示法） 1、启动与退出vb 1.1启动vb：桌面上双击快捷图标，执行“开始——程序——microsoft Visual basic 6.0中文版”命令。 教师讲解，有以下四种启动方式。 方法1.使用“开始”菜单的“程序”命令； 方法2.使用“我的电脑”图标，找到“vb6.exe”并双击它； 方法3.使用“开始”菜单的“运行”命令； 方法4.利用快捷方式。 1.2 退出vb：执行“文件——退出”命令，点击标题栏的关闭按钮 2、认识vb工作环境 Vb工作环境包括：标题栏、菜单栏、常用工具栏、工具箱以及窗口。 教师讲解，有以下两种退出方式。 1.“文件”菜单－>“退出” 2.Alt＋Q 系统将提示是否存盘，根据需要回答“Y” / “ N” 3、设置vb工作环境 用户可以根据自己需要对vb程序进行相关设置，执行“视图”菜单中的命令，可以打开或关闭相应的窗口。 4、运行示例程序 演示“泡沫”、“飞舞的蝴蝶”、“计算器”。
1.打印负数并分别计算正负数只和： 有如下10个数： -2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。 程序如下： Sub Form_Click() Dim number AS Integer NegativeSum=0:PostiveSum=0 For i=1 To 10 number=InputBox("Enter data: ") If number<0 Then Print number; NegativeSum=NegativeSum+number Else PostiveSum=PostiveSum+number End If Next i print print "NegativeSum=";NegativeSum Print "PostiveSum=";PostiveSum End Sub 2.打印九九表： 在窗体上打印九九表： 程序如下： Print Sub Form_Click() FontSize=12 Print Tab(30);"9*9 Table" Print:Print '输出两个空行 Print "* "; For i=1 To 9 Print Tab(i*6);i; '打印横行序号 Next i For j=1 To 9 Print j;" "; '打印竖行序号 For k=1 To j temp=j*k Print Tab(k*6);temp;" "; '打印乘积 Next k Print '输出一个空行 Next j End Sub
3.打印人员名册 打印人员名册: Private Sub Form_Click() Print:Print FontName="魏碑" FontSize=16 Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯" Print Print "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京" Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub 4.单选按钮设置字体类型和大小 单选按钮设置字体类型和大小: 在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。 编写时间过程如下： Ptivate Sub Form_Load() Form1.Caption="框架用法示例" Command1.Caption="确定" Command2.Caption="结束" Frame1.Caption="字体类型" Frame2.Caption="字体大小" Option1.Caption="魏碑" Option2.Caption="幼圆" Option3.Caption="16" Option4.Caption="24" Text1.Text="Visual Basic 程序设计" End Sub Private Sub Command1.Click_() If Optoion1 Then Text1.FontName="魏碑" Else Text1.FontName="幼圆" End IF If Option3 Then Text1.FontSize=16 Else Text1.FontSize=24
Option Explicit Dim a As Single Dim b As Single Dim c As Single Private Sub cmdCount_Click() Dim count1 As Integer Static count2 As Integer count1 = count1 + 1 count2 = count2 + 1 Label3.Caption = "普通局部变量计数值：" & count1 Label4.Caption = "静态局部变量计数值：" & count2 End Sub Private Sub Command1_Click() a = Val(Text1. Text) b = Val(Text2.Text) c = a * b Text3.Text = c End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub Command3_Click() Const pi As Double = 3.1415926 Dim rad As Integer Dim area As Double Dim pre As Double rad = 10 ‘此处改为rad=val(InputBox("输入数值"))试一下 area = rad * rad * pi pre = 2 * pi * rad Text4.Text = "半径=" & rad & "周长=" & pre & "面积=" & area End Sub Private Sub Command4_Click() Dim x As Integer
《VB程序设计》公开课教案 ——FOR…NEXT循环语句 教师： 授课班级：网络13班 授课时间：2014-10-22，上午第一节 授课地点：1座502电脑室 一、教学目标 教学目标 ①认知目标：掌握FOR…NEXT语句的使用，理解FOR…NEXT语句执行过程。 ②能力目标：培养学生分析问题，解决问题的能力。 ③情感目标：激发学生的学习兴趣，提高学生的学习积极性。 二、重点、难点 重点：掌握FOR…NEXT循环语句的使用格式。 难点：理解FOR…NEXT语句的执行过程，即循环变量和循环体是如何变化的。 三、教材分析 教材是选用南开大学出版社的《Visual Basic程序设计教程》（“十二五”全国职业教育规划教材）。程序设计中很重要的是要掌握好三种基本的程序结构。循环结构是程序设计中的一种很重要的程序结构，其作用是使一段程序反复执行。FOR…NEXT语句是循环运算的专家，在程序设计中频繁出现。通过本次课的学习，使学生对循环结构有一个更深刻的理解，并能进一步提高学生编写程序的能力。 四、学情分析 网络13班的学生高二级计算机班学生，他们刚考完全国计算机一级证，有一定的计算机基础知识。他们普遍对理论性强的知识点不重视、对具体操作比较容易接受，对通俗易懂的语言比较理解。但也具备一定抽象思维能力和动手操作能力。在学习本课之前，他们已经初步了解了VB程序设计的基本常识和程序设计的一些基本知识。 五、教法和学法 本课采用的教学方法是讲练结合、案例教学法。新课程理论指导下的主体式教学模式，通过教师设置的案例，让学生在学习的过程中，自己动手，有机结合各种知识，以案例教学的方式发展能力。使教学内容合理流动，水到渠成。教学中，启发、诱导赏识贯穿始终，创造学生自主探究学习的平台，使学生变被动学习为主动愉快的学习。 本课教给学生的学法是尝试操作法、主动探究学习法及小组协作学习法。学生通过自我探索，自主学习，使学生在完成任务的过程中不知不觉实现知识的融会贯通，提高自己的理解和分析能力。 六、教具 多媒体机房，多媒体平台，投影，PPT课件等。 七、教学过程 1．创设问题情境，引入新课 1）用前面学过的知识，如何画出这个图形(画5个竖行排列的“*”)？ 2）如果我想画10行，100行，1000行“*”呢？难道就这样顺序写下去吗？ 备注：疑问是建构教学的起点。新课开始，就提出一个真实的问题，力求创设一种教学情境，它可以激起学生的未知欲，有利于建立新的认识结构。 2．给出程序，并通过流程图加以理解 出示上题程序代码并通过流程图分析：
一、鸟巢绘制 Private Sub Form_Click() Cls Dim r, xi, yi, xj, yj, x0, y0, aif As Single r = Form10.ScaleHeight / 2 x0 = Form10.ScaleWidth / 2 y0 = Form10.ScaleHeight / 2 n = 16 aif = 3.14159 * 2 / n For i = 1 To n xi = r * Cos(i * aif) + x0 yi = r * Sin(i * aif) + y0 For j = i To n xj = r * Cos(j * aif) + x0 yj = r * Sin(j * aif) + y0 Line (xi, yi)-(xj, yj), QBColor(i - 1) PSet (xi, yi) Print i - 1 Next j Next i End Sub Private Sub Form_Load() Print "要求："; Print "1.将圆周等分成16份；" Print "2.每个等分点要标记成0-16的数字；" Print "3.按样本图的图案画图。" End Sub 附图：
二、加密 Function code(ByVal s$, ByVal key%) Dim c As String * 1, iAsc% code = "" For i = 1 To Len(s) c = Mid$(s, i, 1) Select Case c Case "A" To "Z" iAsc = Asc(c) + key If iAsc > Asc("Z") Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case "a" To "z" iAsc = Asc(c) + key If iAsc > Asc("z") Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case Else code = code + c End Select Next i End Function Private Sub close_Click() Form11.Hide Form1.Show End Sub Private Sub Jiami_Click() Text2 = code(Text1, 2) End Sub
VB趣味小程序 1. 空心三角形 Dim i%, j% Print Space(20); "*" For i = 2 To 9 Print Space(21 - i); "*"; Space(2 * i - 3); "*" Next Print Space(10); For i = 1 To 10 Print Space(1); "*"; Next 扩展程序 Const n = 15 Dim a(1 To n) As Integer Dim i%, j%, t% Randomize For i = 1 To n a(i) = Int(100 * Rnd) '生成15个0～100的随机整数存入数组Next Print "排序前：" For i = 1 To n Print a(i);
Next Print For i = 1 To n - 1 For j = i + 1 To n If a(j) < a(i) Then t = a(j): a(j) = a(i): a(i) = t Next Next Print "排序后：" For i = 1 To n Print a(i); Next 2. 六角星 Dim i%, j%, k% For i = 1 To 10 If i < 4 Or i > 6 Then Print Space(20 - i); For j = 1 To i Print "○"; Next j Else Print Space(6 + i); For k = 14 - i To 1 Step -1
Print "○"; Next k End If Print Next i For i = 3 To 1 Step -1 Print Space(20 - i); For j = 1 To i Print "○"; Next j Print Next i 3. 球来回弹 在窗体上添加一shape空间，shape为circle，计时器空间inteval=10 通用 Dim bz Private Sub Timer1_Timer() If Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then bz = 1 If Shape1.Left <= 0 Then bz = 0 If bz = 0 Then Shape1.Left = Shape1.Left + 10
第1章程序设计入门 第1节程序设计简介（2课时） 【教材内容】1计算机程序并不神秘 1.1什么是程序 1.2体验计算机程序 2程序设计语言 2.1程序设计语言分类 2.2解释与编译 3程序设计的过程 4程序与软件 【教学目标】 1．知识与技能 （1）了解程序设计的基本概念和用变成方法解决问题的一般过程 （2）了解计算机软件与程序设计的密切关系 （3）了解程序设计语言的三种类型 （4）掌握VB环境下编写程序的一般步骤 2.过程与方法 （1）通过实例让学生体会程序设计的基本过程与方法，理解算法思想，会用自然语言或流程图表达一些具体问题的算法。 （2）通过对现实问题的分析与解决，让学生认识到生活中到处是程序，而程序解决的往往就是生活中的现实问题，培养学生利用计算机解决实际问题的能力。 3.情感态度与价值观
（1）体验程序设计的内涵及魅力，产生对程序设计的求知欲，形成积极主动地学习态度。 （2）通过问题的分析与解决，帮助学生克服程序设计的畏难情绪，培养他们严谨、缜密、科学的程序设计作风。 【教学重难点】 程序设计的基本概念与学习程序设计的意义。 【教学方法】启发式、任务驱动、演示、实例、实践操作 【教学过程】 程序设计简介第一课时 一、问题导入，揭示教学内容 大家有没有玩过电脑游戏？有没有同学想过自己设计和编写游戏？ 游戏就是程序，要想设计、制作游戏，就应该学习“设计程序”。今天我们一起来认识和了解程序，它并不神秘，相反它会给我们带来很多乐趣。 二、趣味问题，了解什么是程序 问题1：猎人带着一只狼、一头羊和一些白菜过河，但渡船太小，一次只能带一样。因为……（课件展示问题） 学生：读题、小组讨论、得出解题思路、方法讲解（自然语言描述、符号描述……） 问题2：赵本山、宋丹丹小品，如何把大象关进冰箱 学生：方法讲解（自然语言描述、……） 总结：概括来说程序是有逻辑，有顺序的步骤的组合。开电脑，走路，吃饭，上课都是一系列步骤的有序有逻辑组合。 通过这些有序的指令（自然语言、符号语言等）完成了一项具体的工作，这些指令的集合就是程序。 问题3：体验计算机程序 利用BASIC语言编写的“三角形面积”程序（课件展示问题及具体的语句）
这些游戏以前玩过吧，快下载看它们 是怎么编写的！ 目录： ·编写趣味撞球小游戏 ·用VB6.0设计简易赛车游戏 ·Visual Basic小游戏：猜英雄 ·VB游戏写作技巧（1）秀图篇 ·VB游戏写作技巧（2）网络篇 ·VB 贪吃蛇单人版游戏(一) ·VB 贪吃蛇单人版游戏(二) ·VB 贪吃蛇单人版游戏(三) ·VB 贪吃蛇单人版游戏(四) ·用VB开发即时战略游戏 正文： 编写趣味撞球小游戏 文章来源：沐风经典文章作者：佚名 Visual Basic是一个功能强大的工具，它有一大特点就是易学易用，下面我们就通过写一个“趣味撞球”的程序来初步体会一下。 首先启动VB5，新建一个标准的EXE工程。此时可以看到，工程包括一个Form1框体。在Form1边框的右下角按住鼠标左键不放，拖动鼠标把Form1的面积改为适当大小，比如6930×4320。再在属性框中把Form1的ScaleMode 属性改为3－Pixel，表明我们将以像素为我们的坐标计算单位，把Form1的StartUpPosition 属性设为2－CenterScreen，使运行时窗体出现在屏幕正中。 现在，在控件面板上选取CommandButton（命令按钮）控件，为Form1添加Command1和Command2两个按钮控件，把它们的大小设为121×25，再在属性框中把Command1的Caption填为“＆GO”，把Command2的Caption填为“＆QUIT”，并把Command1放到框体的右上角，把Command2放到框体的右下角。 然后，在控件面板上选取Timer（时钟）控件，为Form1添加一个Timer1时钟控件。再在属性框中把它的Enabled属性改为False，Interval属性改为50，前一个值表示该时钟控
用VB编写趣味撞球程序 一只红色的小球在箱子中不停地弹跳，你要适当地移动下面的板子挡住，别让它掉下来。相信许多人都玩过这样的游戏，有没有想过自己编个来玩呢？ 界面设计：新建一个工程，Form1的Caption属性设为“趣味撞球”，在Form1上放上一个图片框控件Picture1，一个图形控件Shape1，将Shape属性设为3，FillStyle 属性设为0，FillColor属性设为“&H000000FF&”，即红色，Shape1显示为红色实心圆作小球，一个直线控件Line1，其BorderWidth属性设为3，当做板子；一个定时器Timer1，其Interval属性设为10，Enabled属性设为False，两个标签Label1 和Label2，其Caption 属性分别为“得分”和“0”，再放两个命令按钮Command1和Command2，其Caption属性分别为“开始”和“退出”，设计好的界面如^03020501a^。 程序代码： Option Explicit Dim x_step As Integer Dim y_step As Integer Private Sub Command1_Click（） Timer1.Enabled = Not Timer1.Enabled ＇启动或停止定时器 If Command1.Caption = “暂停” Then Command1.Caption = “继续” Else Command1.Caption = “暂停” End If End Sub Private Sub Command2_Click（） End End Sub Private Sub Form_Load（） x_step = 200 ＇设置小球运动的速度 y_step = 200 End Sub Private Sub Picture1_KeyDown KeyCode As Integer， Shift As Integer Select Case KeyCode Case 37＇如果按下左箭头，使板子向左移动 If Line1.X1 <= 0 Then Line1.X1 = 0 Line1.X2 = 2000 Else Line1.X1 = Line1.X1 - 100 Line1.X2 = Line1.X2 - 100 End If Case 39＇如果按下右箭头，使板子向右移动 If Line1.X2 >= Picture1.Width Then
VB程序设计 实验目的 1）掌握VB多重窗体程序的概念。 2）掌握多重窗体程序的设计方法。 3）复习各种控件的使用方法。 实验内容 采用多窗体技术编写程序，分别在不同的窗体上实现不同功能。 实验步骤 实验步骤如下： 1）建立启动窗体界面与设置对象属性。选择“新建”工程，进入窗体设计器，在窗体中添加命令按钮组Command1（0）~Command1（5），并修改属性如图8-1左所示。系统默认窗体Form1为启动窗体。 2）添加窗体。选择“工程”菜单，打开“添加窗体”对话框。按“打开”按钮，添加3个标准窗体Form2~Form4。添加标准模块。选择“工程”菜单，打开“添加模块”对话框。 按“打开”按钮，添加1个标准模块Module1。
图8-1 程序界面设计 3）建立子窗体界面与设置对象属性。界面如图8-1所示，设置属性如表所示。 表8-1 Form1属性设置 对象属性属性值说明 Form1 Name Form1 启动窗体 Caption Form1 Command1（0）Caption Who are you? Command1（1）Caption game Command1（2）Caption writeboard Command1（3）Caption calculator Command1（4）Caption byebye Picture1 autoredraw false Label1 caption Let's start a wonderful journey 表8-2 Form2属性设置 对象属性属性值说明 Form2 Name Form2 输入个人资料窗口 Caption Form2 Label11 Caption name Label12 Caption gender Label13 Caption Is that a girl? Fream1 Caption hobbies command caption okey