第一篇：VB教案-组合框的使用
VB6.0----结构化程序设计
[14-2] 组合框的使用
【教学目标】
1.了解组合框的组成及其主要属性 2.掌握组合框添加删除项目的方法
3.掌握通过改变组合框选项来改变文本框字体属性的方法 【教学重点】
1.在组合框添加删除项目的2种方法
2.组合框的Click事件用法
3.字体各种属性的回顾 【教学难点】
根据组合框的选项来更换字体颜色 【教学手段】
情境教学法、任务驱动法、演示法、讨论法 【教学过程】
一、引入
让学生看已经编好的程序，激发学生兴趣，并引出VB的编程游戏。再让学生上来操作，进入创设的情境中，提高学生的注意力。
[激发学生的学习兴趣，让学生参与课堂中来]
二、正课
1.建立如下图所示界面.能根据组合框选择的字体和字体大小来改变文本框中的文字属性.Page 1
VB6.0----结构化程序设计
Private Sub Combo1_Click()Text1.FontName = Combo1.Text End Sub
Private Sub Combo2_Click()Text1.FontSize = Combo2.Text End Sub
2.建立如下图所示界面,要求文本框中的字体属性能根据组合框选项的变化而变化.要求B,I,U这些按钮按下去之后文本框中字体变为粗体或斜体或下划线 要求能根据字体颜色”红色””绿色”等改变文本框字体的颜色
Private Sub Combo1_Click()Text1.FontName = Combo1.Text End Sub
Private Sub Combo2_Click()Text1.FontSize = Combo2.Text End Sub
Private Sub Combo3_Click()If Combo3.Text = “红色” Then Text1.ForeColor = vbRed
Page 2
VB6.0----结构化程序设计
End If If Combo3.Text = “绿色” Then Text1.ForeColor = vbGreen End If If Combo3.Text = “蓝色” Then Text1.ForeColor = vbBlue End If End Sub
Private Sub Command1_Click()Text1.FontUnderline = Not Text1.FontUnderline End Sub
Private Sub Command2_Click()Text1.FontBold = Not Text1.FontBold End Sub
Private Sub Command3_Click()Text1.FontItalic = Not Text1.FontItalic End Sub
Private Sub Command4_Click()End End Sub
三、总结.为理清这节课所学的知识结构，教师进行引导，让学生自己归纳总结，完成课堂小结部分。
四、课堂作业
B, I ,U这些按钮, 如何做到当文本框字体已经为粗体或斜体或下划线格式时按下他们, 字体恢复正常.Page 3
第二篇：警械使用技术——警棍组合技术教案
教学训练法比武教案
课 目：警棍组合技术
教 官：陶毅
学 时：两课时
学 材：公安民警警械武器使用训练教材
代表队：**维吾尔自治区
警棍组合技术教案
Ⅰ教学提要
? 教学对象：（45名初任民警）1、45名学员，40男5女，少数民族比例占30%，均为大专以上文化程度，理解能力强，年龄在2328岁，无重大疾病影响训练。
2、通过前期训练，学员学习警务实战技能的愿望很强烈，基本掌握警棍的基础操作。还缺乏程序意识和安全意识，无法将所学的警棍技术运用于实战中。
? 教学目标：
1、掌握警棍组合技术动作要领
2、把握击打时机、击打部位
3、掌握警棍组合技术在四种情况下的运用
? 教学内容：
1、移动劈击组合2、攻击对方手臂组合3、攻击对方大腿组合4、结合徒手组合? 教学要求：
学员：
1、严格遵守训练场纪律，令行禁止。
2、认真听讲，仔细看示范，刻苦训练，相互探讨，共同提高。
3、爱护器材，注意训练安全，训练力量适当，防止事故发生。
教官：
1、做好课前备课，器材保障。
2、提前到达布置场地，做好上课前的准备工作。
3、及时发现训练中存在的问题，及时引导、纠正，应急措施得当。
4、做好应急准备预案。
? 教学分工：
主讲教官1名：负责教案编写，课堂的组织教学。
辅助教官1名：负责场地布置，器材保障，带领学员课前准备活动、配合示范、情况显示、训练纠错、辅助主讲教官的教学。
? 教学重点：
1、警棍组合动作要领
2、击打时机的掌握
3、击打部位的准确性 ? 教学难点：
1、根据实际情况选择适合的警棍组合技术
2、警棍击打的时机掌握 ? 教学方法：
理论提示、讲解示范、分组训练、检查纠错、小结讲评 ? 教时安排： 两课时（90分钟）
一、课前准备（12分钟）
（一）宣布教学提要（2分钟）
（二）热身活动（10分钟）
二、教学实施（68分钟）
（一）理论提示（2分钟）
（二）组织训练（66分钟）
1、复习移动劈击组合（6分钟）
2、攻击对方手臂组合（15分钟）
3、攻击对方大腿组合（15分钟）
4、结合徒手技术（30分钟）
5、训练后集中纠错、验收（课中进行）
三、教终小结（10分钟）? 场地器材： 综合训练馆
教具及训练器材：
名称
数量
单位
教具准备
单警装备
人数
套
教官、学员配带
棍棒
人数
支
教官课前准备
脚靶
人数
个
教官课前准备
海绵棍
人数
支
教官课前准备
防暴服
人数
套
教官、学员准备
急救包
套
教官课前准备
Ⅱ教学进程
? 准备部分（12分钟）
（1）教官组织清点人数，整理服装、检查器材。（2）宣布教学提要：（2分钟）
宣布本节课的授课内容、目的、重点、训练的步骤和方法，时间的安排及要求。各位学员大家好，今天由我和辅助教官XXX在此利用90分钟的时间，与大家继续学习警棍组合技术，旨在通过课前复习、理论提示、讲解示范、分组训练、检查纠错、小结讲评的方法，使大家掌握警棍组合技术动作要领、把握击打时机、击打部位、掌握警棍组合技术在四种情况下的运用。训练中希望大家
1、严格遵守训练场纪律，令行禁止；
2、认真听讲，仔细看示范，刻苦训练，相互探讨，共同提高；
3、爱护器材，注意训练安全，防止事故发生。
（3）进行身体准备活动（10分钟）
辅助教官带领学员做热身活动
1、慢跑：800m
2、徒手操：4×8拍（肩、肘、腰、膝关节重点活动）
3、游戏热身法：两列对面站立，教官左手为1，右手为2，根据口令（口令11组追2组）进行10米追击。熟练后，做算术口令追击练习。
? 教学实施（68分钟）
1、理论提示（2分钟）
在上节课中，我们学习了警棍组合技术中的移动劈击组合动作，大家基本掌握动作要领。今天我们进行警棍组合技术后三个科目的学习，为了更好的服务本节课，我们首先对上节课的移动劈击进行复习，使大家更娴熟的使用警棍移动劈击技术。
2、组织训练（66分钟）
（一）课前复习（6分钟）
训练队形：
△ △ △ △
★ ☆
▽ ▽ ▽ ▽
图一 △学员 ★主教 ☆辅教
训练步骤：
1、对移动劈击技术进行流水作业，了解学员前期训练水平。
上步上劈击练习（正反手空击）：集体练习。学员呈两列横队站立，保持安全距离，出棍，呈肩上戒备势，根据口令做动作。1上步，2上劈击，3撤步，4戒备，在击打时，注意警棍击打的定位，击打到一定位置，定住。
上步下劈击练习（正反手空击）：持棍戒备步伐移动集体练习，根据口令做动作。1上步，2下劈击，3撤步，4戒备
2、集体连贯练习。
练习组数：操配手互换为一组，3组。
教官：通过对上步劈击动作的复习，目的在于使大家熟练掌握移动劈击动作要领，能够保持身体重心、击打动作规范、击打定位准确，下面我们开始学习今天课程。
（二）攻击对方手臂组合（15分钟）
训练队形：（教官讲解示范时学员面向教官，练习时学员面对面）
★ ☆
▽ ▽ ▽ ▽
△ △ △ △
图二 △学员 ★主教 ☆辅教
讲解示范：对抗状态下，民警对犯罪嫌疑人进行戒备、警告、出棍警告；对方挥拳攻击时（或持械攻击），民警应该结合步伐移动（纵向或横向），以身体带动警棍劈击对方攻击手臂的内侧或外侧。
训练步骤：
1、上步上劈击对方手臂练习（正反手击靶）：两人一组，操手持警棍肩上戒备，配手持脚靶固定手臂攻击动作，操手根据口令做动作。1警告2上步，3上劈击，4撤步，5戒备
2、移动上劈击对方手臂练习（正反手击靶）：两人一组，操手持警棍肩上戒备，配手持脚靶，操配手保持移动状态，由配手用脚靶随机做手臂攻击配合动作，操手进行击打练习
3、针对学员存在的个别问题，进行个别纠正；存在的普遍问题，集中进行点评、纠正，后进行训练。
训练组数：各5组。
易产生的问题：距离控制不当、击打部位不准确
纠正方法：加强步伐移动及击打练习
（三）攻击对方大腿的组合（15分钟）
训练队形：（教官讲解示范时学员面向教官，练习时学员面对面）
★ ☆
▽ ▽ ▽ ▽
△ △ △ △
图三 △学员 ★主教 ☆辅教
讲解示范：对抗状态下，民警对犯罪嫌疑人进行戒备、警告、出棍警告；对方挥拳攻击时（或持械攻击），民警使用警棍上步劈击对方大腿，然后后撤或侧闪，戒备、警告。
训练步骤：
1、上步下劈击练习（正反手击靶）：两人一组，操手持警棍肩上戒备，配手持脚靶固定于大腿部位，操手根据口令做动作。1警告2上步，3下劈击，4撤步，5戒备
2、移动下劈击练习（正反手击靶）：两人一组，操手持警棍肩上戒备，配手持脚靶，操配手保持移动状态，由配手用脚靶随机做下劈击配合动作，操手进行击打练习
3、针对学员存在的个别问题，进行个别纠正；存在的普遍问题，集中进行点评、纠正，后进行训练。
练习组数：各5组。
易产生的问题：距离控制不当、击打部位不准确
纠正方法：加强步伐移动及击打练习
教官：通过对攻击手臂、大腿的练习，能够灵活运用步伐，保持身体重心、击打有效部位，达到制止违法犯罪的目的。实战中，我们是在受到嫌疑人攻击后，进行反击，下面我们利用场景模拟的方法，进入下一内容的学习。
（四）结合徒手技术（30分钟）
情景导入队形：（教官讲解示范时学员面向教官，练习时学员面对面）
▽ ▽ ▽ ▽
△
☆
★
△ △ △
图四 △学员 ★主教 ☆辅教
模拟双警（主教及一名学员）巡逻过程中，发现在某街道一人（辅教，着防暴服）寻衅滋事随意殴打他人，警察上前通过语言制止，嫌疑人（辅教）不听劝阻，行为过激，上前撕扯民警，民警迅速将其推开，嫌疑人恼羞成怒，随手拾起棍棒欲袭击民警，民警发出使用警棍警告并开棍戒备。嫌疑人使用棍棒从斜上方击打民警，民警使用警棍（海绵警棍）截击击打嫌疑人桡正中神经点，嫌疑人丢下木棍，跪地服从命令。民警持棍肩上戒备观察。
通过情景导入，用提问式展开内容：在刚才的模拟情景中，民警使用了何种警棍组合？结合徒手技术 讲解示范：民警面对对方的袭击，应迅速推开对方，拉开保持安全距离。使用语言警告，同时，取出警棍，快速移动位置，在对方攻击时使用警棍向下劈击，击打对方大腿外侧，然后拉开距离，肩上戒备观察。
训练队形：（教官讲解示范时学员面向教官，练习时学员面对面）
▽ ▽ ▽ ▽
★ ☆
△ △ △ △
图五 △学员 ★主教 ☆辅教
训练步骤：
1、程序、动作分解练习：两人一组，呈操配手练习，操配手根据口令做动作。1配手靠近操手挥拳欲打，2操手使用推掌将配手推开保持距离，3配手持棍棒袭击操手，4操手开棍警告，5操手使用警棍击打，6拉开距离戒备观察
2、程序、动作连贯练习。
3、针对学员存在的个别问题，进行个别纠正；存在的普遍问题，集中进行点评、纠正，后进行训练。
组数：各5组。
（五）综合练习
两人一组，击打防暴服对抗练习。操手持海绵警棍，配手充当嫌疑人，采用徒手的方式攻击操手，操手使用海绵警棍击打配手手臂、大腿，配手被击打后模拟受击打动作。
练习组数：两人各击打一分钟为一组，5组，易产生的问题：推掌迅速、拉开距离、击打时机
纠正方法：保持心理戒备，集中注意力，控制步伐移动，勤加练习
四、教终小结：（10分钟）
（一）、本次课学习了警棍组合技术中的移动劈击组合、攻击对方手臂组合、攻击对方大腿组合技术、结合徒手组合，从理论教学到分组训练，最后进行综合训练，大家能够掌握动作要领，熟练使用警棍组合运用。但是突发情况处置是训练难点，需要大家下去勤加练习。
（二）、教学中大家学习态度端正，刻苦训练，掌握了教官所教授的警棍组合技术，达到预期的目标。警务工作，复杂多变，还需要大家灵活应变，课后需要大家积极思考，并进行总结。
（三）、存在的不足：
1、脚下步伐移动不够灵活，协调性差，导致重心不稳；
2、不能及时抓住反击时机，导致措施良机，反击被动；
3、击打部位不准确。
（四）、对本节课，大家有什么问题？下节课我们学习武器的使用，请大家下去预习。
（五）、检查装备、器材，清点人数，学员带离训练场。
Ⅲ教学总结
·教学任务的完成通过90分钟的训练，采用理论提示、讲解示范、分组训练、检查验收、小结讲评等方法，使全体学员基本掌握了警棍组合技术的动作要领、方法、步骤和三种运用情况。通过引导使学员积极思考，认真训练，共同完成了教学任务。存在的问题：个别学员的协调性较差，对动作要领的掌握较慢，需要进行单独辅导；学员对警棍组合技术的步骤及时机把握不准，还需要在后面的课程中进一步加强。
·教学过程的把握
在教学过程中，能按照教学计划结合教案完整的进行授课训练，引导学员积极参加训练，快速提高。存在的问题：在练习环节中，个人体会阶段，教学纪律有些散乱。在综合训练过程中，学员情绪过于兴奋，导致教学秩序混乱，导致学员的注意力分散，需要教官引导。
·教学的其它情况
个别学员对教具不爱护，造成教具损坏。
在训练中，要注意对学员的保护，避免训练中受伤。听取学员意见，下节课解答问题。
第三篇：VB优质课教案
《VB》公开课教案
(2010-04-05 20:20:16)转载▼ 标签：
教育
时间：第十三周星期四第三节课
授课人：朱国营 地点：电脑实验1室 班级：09计1 课题：第五章第三节——Circle（画圆）方法
教学目的：通过简要说明画圆方法的格式，并通过完成练习使学生进一步掌握Circle方法的操作要点，以利于日后编制美观的程序界面。课时分配：1课时
教学方法：“任务驱动”教学法 教学难点：圆心的定位 教学手段：多媒体课件 教学过程：
一、复习提问，引入新课
通过复习画线（Line）方法巩固直线和矩形的绘制，并引入新课。
二、讲授新课
（一）、读书引导，提出任务：简要说明画圆方法的格式，并通过完成练习使学生进一步掌握Circle方法，使学生学会画圆。
首先分配5分钟时间让学生阅读本节课的内容，然后简要说明画圆方法的格式及注意事项，必要时通过例题来说明格式中各项参数的正确使用，同时提出本节课要完成的任务。
格式：[对象.]Circle [step](x, y),半径 [, 颜色] 说明：
圆心坐标设置有两种方法：
1、省略step，就以（x,y）绝对坐标为圆心。
2、用step是以上一个绘图语句的坐标为参考点，再加上此step的（x,y）值成为圆心的位置。举例说明：
Private Sub Picture1_Click()Picture1.Circle(300, 300), 200, vbred Picture1.Circle Step(400, 400), 400, vbgreen Picture1.CurrentX = 2000: Picture1.CurrentY = 1000 Picture1.Circle Step(200,-300), 400 Picture1.Circle(2200, 700), 600, vbblue End Sub
（二）、难点分析
练习中的难点是如何定置圆的圆心，同时要注意颜色参数的变化。
（三）、学生完成任务：
（1）、在窗口中央画一个半径为1000的红色圆。（2）、绘制“彩色同心圆”
（3）、思考题：利用前面知识，改变同心圆的线宽。
（完成任务即完成练习，使学生在循序渐进的练习中掌握知识。）
（四）、通过检查学生完成练习的情况，既了解教学效果，也具有针对性地分析题目，提高教学效率。
三、课堂总结
本节课主要学习用Circle方法画圆，画圆的关键是要定好圆心的位置和颜色参数任选，线宽可用“Drawwidth”属性值设置。
四、提高作业
1、绘制“风车”
2、绘制“气泡”
第四篇：vb实验教案 -
实验一 VB集成开发环境和简单程序设计
一、本次课主要内容
1． 练习Visual Basic6.0的安装与重新安装。2． 启动和退出Visual Basic 6.0。3． 认识VB6.0的工作界面。
4． 编写显示“欢迎使用Visual Basic6.0”的窗体程序。
P 1 5． 按照Visual Basic编写程序的基本步骤建立一个用于“商品销售计划”的窗体程序。
二、教学目的与要求 1．熟悉VB6.0的安装；
2．学习怎样启动和退出Visual Basic；
3．熟悉Visual Basic的工作环境，为以后的程序设计作好准备； 4．理解Visual Basic中对象和类的概念。5．学习用属性窗口设置对象属性的方法。
6．初步学习在代码编辑器中输入程序代码的基本操作。7．基本掌握用Visual Basic编写程序的基本步骤。8．了解Visual Basic联机帮助的使用方法。
三、教学重点难点 VB语言程序的上机步骤
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验2。
实验一 VB集成开发环境和简单程序设计
1． Visual Basic 6.0有多种类型的窗口，若想在设计时看到代码窗口，如何操作？
2． 如何使各窗口显示或不显示？ 3． 如何对工具箱添加选项卡？
4．当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。问该工程涉及到多少个文件要保存？若要保存该工程中的所有文件，正确的操作应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？
5．在窗体上画一个命令按钮，然后通过属性窗口设置下列属性： Caption：这是命令按钮 Font：宋体 粗体 三号 Visible：False Style：1-Graphical
6、参考实验教材“实验一”和“实验二”的实验过程编写程序。
P 2
教学后记：
实验二 顺序结构程序设计
一、本次课主要内容
1.实验Visual Basic中三种除法运算符（/、、Mod）的区别。2．掌握表达式的书写，并能阅读出表达式的运行结果。3．设计一个简单的计数器。
二、教学目的与要求
1．掌握Visual Basic数据类型的基本概念。2．掌握变量，常量的定义规则。
3．掌握Visual Basic各种运算符的功能及表达式的构成和求值方法。4．掌握Visual Basic的基本语句。
三、教学重点难点
VB的各种运算符的功能及表达式的构成
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验3。
P 3
实验二 顺序结构程序设计
1．实验Visual Basic中三种除法运算符（/、、Mod）的区别。按以下步骤执行：
P 4（1）在窗体上画5个标签、5个文本框和一个命令按钮。5个标签的标题分别为：“被除数”、“除数”、“浮点除（/）”、“整数除（）”和“余数除（Mod）”，把5个文本框清为空白，把命令按钮的标题设置为“执行除法运算”，如图6所示。
图6
除法运算符实验（界面设计）
（2）编写命令按钮的事件过程： Private Sub Command1_Click()Dim diviD, diviS As Single diviD = Val(Text1.Text)diviS = Val(Text2.Text)Text3.Text = Str(diviD / diviS)Text4.Text = Str(diviD diviS)Text5.Text = Str(diviD Mod diviS)End Sub
（3）按F5或单击工具栏上的“启动”按钮运行程序，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结
果。例如，在第一、第二个文本框中分别输入124和3，然后单击命令按钮，结果如图7所示。
P 5
图7
除法运算符试验（运行情况）
2．先用手工计算下列表达式的值，然后在立即窗口中试验这些表达式的输出结果。
(1)8*3*62(2)7/6*3.2/2.15*(4.3+2.8)(3)344*4.0^3/1.6(4)653 Mod 2.6*Fix(3.7)(5)“abc” + “345” & “257”(6)279.37 + “0.63” = 280(7)4>8 And 4 = 5(8)True Or Not(8+3 >= 11)(9)8 > 4 Or 5 < 9(10)(True And False)Or(True Or False)3．设x,y,z均为布尔型变量，其值分别为： x=True Y=True Z=False 求下列表达式的值：
(1)x Or y And z(2)Not x And Not y(3)x Xor y Or z(4)Not x Eqv Not y(5)(Not y Or x)And(y Or z)(6)x Or Not y Imp z 要求：先手工计算，再上机验证。
教学后记：
P 6
实验三 选择结构程序设计
一、本次课主要内容
1．编程求解一元二次方程的根。
2．按要求编写程序实现税务部门征收所得税的纳税金额。
二、教学目的与要求
1.掌握逻辑表达式的正确书写形式。2.掌握单分支与多分支语句的使用。3.熟悉“选择”结构程序设计。
三、教学重点难点
逻辑表达式的正确书写形式
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验4。
P 7
实验三 选择结构程序设计
1．求解一元二次方程的根。
2．税务部门征收所得税，规定如下：（1）收入在800元以内，免征；
（2）收入在800~1000元以内，超过200元的部分纳税5%；（3）收入在1000~2000元以内，超过1000元的部分，纳税8%；（4）当收入达到2000元或超过时，纳税10%； 编程实现上述操作。（1）编写程序代码：
（2）程序运行
程序运行后，单击窗体，在输入对话框中输入收入数，程序将输出纳税金额。例如输入1560，运行情况如图30所示。
P 8
图30 纳税运行情况
3．输入x、y、z三个数，按从大到小的次序显示。要求：对输入数据应有测试手段，可以通过IsNumeric函数对文本框中的数进行测试。若输入的数有非数字字符，显示“不能转换成数值”，提示再输入。当输入的三个数全部都是数字字符后再转换成数值型，然后进行大小比较。
4．某市公用电话收费标准如下：市话通话时间在3分钟以下，收费0.50元；3分钟以上，则每超过1分钟加收0.15元；在7:00-19:00之间通话者，按上述收费标准全价收费；在其他时间通话者一律接收费标准的半价收费。试计算某人在T时间通话S分钟，应缴多少电话费。
5．设在窗体上已经建立一个文本框Text1，两个命令按钮Commmand1和Command2，说明执行以下语句后，各控件将显示什么内容？
Text1.Text = Command1.Caption Command1.Caption = Command2.Caption Command2.Caption = Text1.Text Text1.Text = Command1.Caption & Command2.Caption 6．下面程序段的输出是什么？
（1）If(2 * 2 = 5)<(2 * 2 = 4)Then Print “True is greater then false.” Else Print “False is greater then true.” End If（2）a = 0 If a > = 7 Then a = 1 Print “Watch Out”, a End If（3）a = 0 If a > = 7 Then a = 1 End If Print “Watch Out”, a
P 9 教学后记：
实验四 循环结构程序设计
P 10
一、本次课主要内容 1．计算阶乘。
2．编程实现勾股定理中三个数的关系是a2＋b2 = c2。3．编程求完全数。
二、教学目的与要求
1.熟悉分支转移结构程序设计，灵活使用有关语句。2.熟悉循环结构程序设计，灵活使用各种循环语句。3.能够正确阅读嵌套循环，及正确使用嵌套循环。
三、教学重点难点
循环结构程序设计及相关语句的用法
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验5。
实验四 循环结构程序设计
P 11 1.计算阶乘
2．勾股定理中三个数的关系是a2＋b2 = c2。编写程序，输出30以内满足上述关系的整数组合，例如3，4，5就是一个整数组合。
（1）编写程序
（2）程序运行后，单击窗体，将输出30以内满足关系的整数a，b，c的组合，同时显示相应的a*a，b*b，c*c，结果如图36所示。
图36
程序执行结果
3．如果一个数的因子（不包括本身）之和等于这个数本身，则称这样的数为“完全数”。例如，整数28的因子为1，2，4，7，14，其和1＋2＋4＋7＋14 = 28，因此28是一个完全数。试编写一个程序，从键盘上输出正整数N和M，输出N和M之间的所有完全数。
程序如下：
程序运行后，单击窗体，在两个输入对话框中分别输入N 和M的值，即可输出N和M之间的“完全数”。假定输入的N和M的值分别为2和1000，则结果如图37所示。
P 12
程序执行结果
4．编程计算由下列公式确定的s值，其中n是用户输入的正整数，注意选用合适的变量类型。
（1）s = 12 + 22 + 32 + „ + n2（2）s = 11×22×33ׄ×nn（3）s = 1 + 1×2 + 1×2×3 + „ + 1×2×3ׄ×n 5．用While„Wend语句计算2n，请尝试用不同形式的Do„Loop语句和For„Next语句重写该程序。
教学后记：
实验五 VB的常用控件
一、本次课主要内容
1．设置文本框Text1中内容的字体、字型和颜色。
2．如果单击“添加”按钮，就将在文本框和组合框中输入或选择的内容插入空格后连接成一个字符串添加到List1中；如果单击“去除”按钮，就将List1中选中的项删除；如果单击“清空”按钮，就将List1中所有的项目全部删除。
3．将定时器计时开始后度过的总秒数换算为时、分、秒(取2位小数)显示。4．将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图片框的AutoSize属性，决定图片框是否自动改变大小以显示全部图形；将复选框的选中状态（Value属性值）转换为逻辑值后赋值给图像框的Stretcch属性，决定图形是否自动缩放以适应图像框大小。
二、教学目的与要求
1.掌握单选按钮、复选框和框架的使用方法。2.掌握列表框控件和组合框控件的使用方法。3.掌握时钟控件的使用方法。
4.掌握图片框控件和图像框控件的使用方法。
三、教学重点难点 常用控件的使用方法
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验6。
P 13
P 14
实验五 VB的常用控件
1．设计界面（程序一到四）2．设置属性 3．编写程序代码 4.调试运行 第一题：
运行结果：
第二题：
运行结果：
P 15
第四题：
运行结果：
5.利用时钟控件和图像控件编写一个自动红绿灯模拟程序。要求在晚上21:00到早晨7:00全亮，其余时间红、黄、绿灯自动切换。
教学后记：
实验六 数组
一、本次课主要内容
1.定义一个固定大小的一维数组，并为数组元素赋值，最后将数组元素输出到窗体上。
P 16 2.请编写程序，完成将一个6×8的矩阵分别按行和列的顺序放到一维数组中。3.随机产生10个数，按升序（降序）排列输出
二、教学目的与要求 1.掌握数组的基本概念。2.掌握数组的声明、应用。3.掌握控件数组。
4.掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。
三、教学重点难点
利用数组解决与数组相关的常用算法
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.撰写实验报告，写出所有的方法，要有详细的操作步骤； 2.预习并思考实验7。
实验六 数组
第一题：
P 17
Dim a(0 To 9)As Integer '定义一个大小为10的整形数组 '数组赋值命令按钮事件过程 Private Sub Command1_Click()For i = 0 To 9 a(i)= Int(InputBox(“请输入数组元素” & i + 1 & “/” & “10”, “数组赋值”))Next i End Sub '显示数组元素命令按钮事件过程 Private Sub Command2_Click()For i = 0 To 9 Print a(i)Next i End Sub
第二题： Option Base 1 Dim a%(6, 8), b%(), c%()'定义一个二维数组(6x8)和两个动态数组 '将二维数组按行存储到一维数组b中 Private Sub Command1_Click()k = 1 For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)
b(k)= a(i, j): k = k + 1 Next j Next i Text2.Text = “" '将按行存放后的一维数组b的元素显示到文本框中 For i = LBound(b)To UBound(b)Text2.Text = Text2.Text & Format(b(i), ”@@@@“)Next i End Sub '将二维数组按列存储到一维数组c中 Private Sub Command2_Click()k = 1 For j = LBound(a, 2)To UBound(a, 2)For i = LBound(a, 1)To UBound(a, 1)c(k)= a(i, j): k = k + 1 Next i Next j Text3.Text = ”“ '将按列存放后的一维数组c的元素显示到文本框中 For i = LBound(c)To UBound(c)Text3.Text = Text3.Text & Format(c(i), ”@@@@“)Next i End Sub '窗体载入事件过程 Private Sub Form_Load()Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“ '二维数组初始化
For i = LBound(a, 1)To UBound(a, 1)For j = LBound(a, 2)To UBound(a, 2)
P 18
a(i, j)= Int(90 * Rnd)X)*(pz))End Sub Private Sub cmdJs_Click()Dim a!, b!, c!, w!a = Val(txtA.Text)b = Val(txtB.Text)c = Val(txtC.Text)If a > b + c Or b > a + c Or c > a + b Then MsgBox ”输入的三条边不能构成一个三角形！" Else Call area(a, b, c, w)txtMj.Text = Str(w)End If End Sub 第二题：
P 23
Private Function gcd(ByVal x As Integer, ByVal y As Integer)As Integer Dim r As Integer r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop gcd = y End Function Private Sub Command1_Click()Dim a As Integer, b As Integer a = Val(Text1.Text): b = Val(Text2.Text)x = gcd(a, b)Text3.Text = x End Sub
第三题：
Private Function prime(x)As Boolean If x < 2 Then prime = False Exit Function
End If For i = 2 To Sqr(x)If x Mod i = 0 Then prime = False Exit Function End If Next prime = True End Function
Private Sub Form_Click()For a = 200 To 1000-2 b = a + 2 If prime(a)And prime(b)Then Debug.Print a, b c = a + b End If Next Print c End Sub
教学后记：
P 24
P 25
实验八 等级考试专题及考查
一、本次课主要内容
进行一次等级考试的模拟测试。
二、教学目的与要求
1.熟悉等级考试中程序题的答题过程。
2.掌握利用VB内部函数、表达式、控制结构等知识进行较复杂的编程。
三、教学重点难点 等级考试的复杂题型
四、教学方法和手段 实验室机房电脑上机
五、作业与习题布置
1.认真完成和按时提交考查任务；
2.自行复习，准备下学期初的国二VB考试。
实验八 等级考试专题及考查
P 26 1．登陆等级考试系统，选做VB的基础知识和程序题（包括程序改错，程序填空、程序设计）
2.每个同学都把自己等级考试中随机抽到的题目抄写下来，互相传阅，最后把不同类型的题目做个归纳总结。
教学后记：
第五篇：vb教案2
第三章 输出
print(?)方法： 窗体.方法
Form1.Print 12 Print 23 a = 10 Print a + 20, 30, Sin(a)Print a + 20;30;Sin(a)xm = “李四” Print xm & “成绩是:” & a 如果一个连接内有非字符串型内容，使用&强制转换 2 与Print相关函数
Tab(n)
'Dim a, b, c As Integer 'a,b为变体
Dim a As Integer, b As Integer, c As Integer a = 12: b = 24: c = 34 '多句书写一行上，用:隔开 Print Tab(2);a;Tab(10);b;Tab(10);c 指定在第n列位置开始输出数据,输出完成后光标在最后一个数据的右边.如果下一个tab(n)的列数<=当前光标的列数，则自动提行.数据后如跟;,，则表示下一个数据是接着上一数据右边输出 Print “ab” + Space(5)+ “cd” Print “ab”;Spc(5);“cd”;Spc(5);“ef” Print “ab”;Tab(8);“cd”;Tab(15);“ef” cls方法 Picture1.Cls Form1.Cls
cls
3.2 数据输入inputbox()x = InputBox(“请输入一个数:”)'输入的是字符串 Print Val(x)^ 2 'val(x)把数字式的串转换成数值型 Print x ^ 2 注：default:设置默认（缺省）参数值
x = InputBox(“请输入一个数:”, “提示！”, 1)'输入的是字符串
3.3 msgbox()函数，命令 函数：
Msgbox(“信息”,[类型],”标题”)
t = MsgBox(“你弄错了”, , “警告”)
Private Sub Command3_Click()t = MsgBox(“你弄错了”, 3 + 256, “警告”)End Sub
不加括号，成了命令
MsgBox “你弄错了”, 3 + 256, “警告”
注：msgbox()会根据用户点击的按钮来返回一个值,如点了“是(Y)”按钮，则返回的是6，根据这个值来继续编程控制程序的运行.M$=”abdcd”
等效于如下：
Dim m as string M=”abdcd”
作业上交: pzyy14@126.com
规范：20100900001张三第一次.rar
第4章
程序设计
4．1 赋值语句,是一个动作命令,”=”叫赋值操作，不是等号
Let 变量名=表达式
变量名=表达式
赋值是自右向左运算
Label1.Caption = “计算机学习” Label1.FontSize = 22 Label1.AutoSize = True Label1.ForeColor = RGB(255, 1, 1)X=x+1
4.2 条件语句 1 分支结构 If <条件> then
<语句块>
[ else
<语句块> ] End if 例：输入一个数,判断是负还是非负 n = Val(InputBox(“请输入一个数:”))If n < 0 Then
Print “负数” Else
Print “非负数” End If If n < 0 Then Print “负数” Else Print “非负数” 例: 输入一个数,判断是负还是0,还是正 n = Val(InputBox(“请输入一个数:”))If n < 0 Then
Print “负数” Else
If n = 0 Then
Print “0”
Else
Print “正数”
End If End If
点击咨询 