第一篇：高中VB教案1
选修一：程序设计基础
„课程内容标准及教材分析：‟
1.了解程序在计算机中的作用，知道程序设计语言的产生和发展趋势。2.了解VB程序设计环境，知道在VB程序设计环境中创建程序的一般步骤和方法。
3.了解VB程序设计语言的基本知识，包括简单语句格式及其功能，数据类型、变量、常量、表达式和函数。
4.初步理解顺序、分支、循环程序三种基本结构，能读懂简单的程序。5.学会在VB程序设计环境中创建、运行、修改简单程序的操作。6.了解程序设计的基本思想与方法。„课时安排：‟
10课时，由于是选修教材且争取在有限的时间内完成，所以课时计划可能会有变动。„第1课时‟
„课题‟：VB基础知识（界面、控件及属性）„课型‟：任务型演示课（无板书）
„教学目的‟：通过本节的教学应使学生掌握VB6.0的启动及界面操作，并能独立完成应简单应用程序界面的设计。„教学重点‟：认识VB环境，学会使用控件 „教学难点‟：控件的使用及属性的设置 ［教学工具］：多媒体机房及相关的软硬件环境 ［教学方法］：讲授法、演示法、任务驱动 ［教学过程］： „引入‟：截至上节课我们完成了必修部分的所有学习内容，其中包括信息的获取、处理（处理文本信息和数据信息）、表达（演示文稿表达信息）和应用，掌握了基本的操作要求。从这节课开始我们将进行选修部分《程序设计基础》的学习，学习使用程序来解决实际问题。„描述‟：
一、计算机语言的发展历程
计算机语言（Computer Language）指用于人与计算机之间通讯的语言。计算机语言是人与计算机之间传递信息的媒介。
计算机程序设计语言的发展，经历了从机器语言、汇编语言到高级语言的历程。
计算机语言主要分为三类：
低级语言、高级语言(如VB,VC等)、专用语言。
VB的由来：一位叫“比尔”，一位叫“鲍尔”的十分要好的同学都喜欢打游戏，但是随着游戏玩的时间长了，他们发现这些游戏都没有什么意思，于是他们俩便开始研究自己编写游戏，于是也就诞生了Basic程序设计语言，在当时个人计算机正处于发展阶段很多厂家都对他们的程序感兴趣，于是“比尔”就注册了公司来卖这个Basic程序，而这个公司就是今天大名鼎鼎“微软”而“比尔”就是世界首富“比尔〃盖茨”，随着Basic语言的不断发展和更新就形成了现在我们学习的Visual Basic语言，其中Visual的意思是“可视的”，这也就意味着现在的Visual Basic是一种简洁明了，所见即所得的程序设计语言。„演示‟：
二、认识Visual Basic
演示VB的启动，并结合启动后的界面讲解VB的界面构成，重点讲解“工具箱”中各“控件”的作用，并演示一些常用“控件”如“Label”、“CommandButton”、“Text”的使用及其“属性”的修改与设置。演示“工程资源管理器”窗口、“属性”窗口、“窗体布局”窗口及“工具箱”的显示与隐藏的方法与操作步骤。
标题栏 标准按钮
菜单栏
工具箱
工程资源
管理器
属性窗口
工作区
窗体布局
„演示‟：
三、使用工具箱控件设计软件界面
演示“标签（Label）”、“按钮（CommandButton）”、“文本框（TextBox）”等常用控件的使用并分别修改其“Caption”、“Text”属性。„演示‟：
四、学习任务
在了解以上知识后，请学生独立设计应用程序界面，要求同学参考图例设计《简易计算器》的界面。
„要求‟：请同学们参照作业发布网页的图例独立设计《简易计算器》程序界面并以你的“姓名＋计算器”为文件名保存工程并提交作业。„演示‟：VB工程保存方法
VB工程保存方法和前面我们学习的Word和PowerPoint保存方法相似但有点区别，一是VB工程保存时默认的保存路径不是“我的文档”而是VB安装路径目录，提醒学生注意更改保存位置；二是VB工程保存后会形成多个文件，其中包括工程文件（*.vbp）、窗体文件（*.frm）及工程视图文件（*.vbw）。这也就意味着在提交该类作业时，请同学们采用压缩方法提交，避免出现错误。„作业布置‟：
制作《简易计算器》程序界面，并保存工程后提交作业。„教学反思‟：
————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————————
第二篇：高中选修课vb教案
高二年级信息技术教案
第一课时
第一章1.1计算机的解决问题过程
面向对象程序设计概述
教学课时：
1课时（每课时40分钟）教学目标： 知识目标：
1.中学生为什么要学习计算机程序设计 2.如何学好VB程序设计；
技能目标：初步认识面向对象程序设计概述。
德育目标：通过教学激发学生探索学习现代科学知识的主动性。教学重点：
1.程序设计“语言”在计算机应用中的重要作用 2.如何学好VB程序设计； 教学难点：
1.计算机程序与程序设计语言概念；
2.初步了解分析实际问题，利用程序设计实现的方法。教学方法：
讲授法＋直观演示法＋任务驱动法 教学环境与工具：
多媒体机房+多媒体课件＋课堂直观演示＋课堂练习
教学过程： 前提测评：
1.同学们听说过那种计算机语言？
答：vb语言, c语言,java语言，c++语言，c#语言等。。讲新课：
一、中学生为什么要学习计算机程序设计?
1、首先是信息时代的要求
在21世纪是信息和知识经济的时代，计算机的应用十分普及，不会使用网络的人就是不会使用计算机。不懂计算机程序设计，就不能真正理解计算机和应用计算机。计算机应用软件及工具层出不穷，尽管这样在我们的工作通常也要针对具体实际问题对一些软件进行二次开发或需要开发一些适用自己的软件。当前在社会上形形色色的人都在上网，上网技巧应该成为每个人必须掌握的一种生活和工作的技能。显然，中学生不仅不能落后于社会应用，而且要领先于社会，高于社会的一般水平。学习和掌握程序设计就是基本的要求。
2、有助提高计算机知识和应用水平从增进计算机知识的角度来看，我们可以将计算机知识简单地分成硬件及软件两部分：基本的硬件知识有：计算机主要硬件设备及网络架设。
软件知识则有：程序设计、网页制作、数据库管理与设计、及一般应用软件的使用(例如Office软件、绘图软件、因特网相关程序„)„等，程序设计作为软件知识的基石
(1)学习程序设计必须了解程序的运作方式，对于各种程序(软件)的使用也会很有帮助
(2)以解决在软件使用中所遇到的问题，改进现有软件
(3)不管是一般应用软件的使用、网页制作、或数据库设计，往往必须藉助程序设计使其发挥更强大的功能。
3、有利于培养学生逻辑思维
因为计算机程序设计具有严密的逻辑性。对学生进行用计算机解决问题的思维训练，通过学习程序设计，可以使学生进一步理解计算机的工作原理。用计算机的人应当有程序和指令的概念。学习程序设计能锻炼思维，使我们的逻辑思维更加严密。
4、社会需要大量的非计算机专业人员开发适用软件
根据有关统计∶80%以上的应用软件是非计算机专业的人编写的。这是一种规律，显示了非计算机专业人才的优势，他们既掌握本专业知识，又掌握计算机应用知识，两者结合，如虎添翼。因此由他们来编写应用软件就决不是权宜之计。大学非计算机专业学生在校期间应该学习程序设计的基本知识。
二、如何学好VB程序设计
1、程序设计基础
指令: 规定计算机完成一定操作的命令。
程序设计语言: 要使计算机能够理解人给出的各种指令，就需要在人和计算机之间有一种特定的语言，人和计算机都能够识别，这种特定的语言就是计算机语言，也叫程序设计语言。程序: 使用程序设计语言编写的用来使计算机完成一定任务的一段“文章”称为程序。程序设计: 编写程序的工作称为程序设计。
学习目的: 利用程序设计语言进行程序设计,完成一定功能 程序设计: 编制程序的工作 实现: 选择工具—语言
2、学习VB程序设计的方法（1）养成良好的学习习惯
VB程序设计的入门学习并不难，但却是一个十分重要的过程，因为程序设计思想就在这时形成的，良好的程序设计习惯也在这个阶段养成。（2）学习程序设计要注重理解一些重要的概念。
VB程序设计本身并不复杂，翻开一本程序设计学习的书籍，看到的无非就是变量、函数、条件语句、循环语句等概念。但要真正能进行程序设计，需要深入理解这些概念。因此，在程序入门阶段还是应该重视概念的学习。（3）自己动手编写程序
程序设计入门阶段要经常自己动手编写程序，亲自动手进行程序设计是创造性思维应用的体现，是培养逻辑思维的好方法。因此一定要多动手编写程序，而且要从小程序开发开始，逐渐提高开发程序的规模。
（4）阅读、借签别人设计的好程序
多看别人设计好的程序代码，包括教材上的例题程序。在读懂别人程序后，要想他为什么这么设计？能不能将程序修改完成更多的功能？则可以学到别人优秀的东西，帮助自己提高自身水平。
5）VB程序设计学习的重点
重点放在思路、算法、编程构思和程序实现上。
语句只是表达工具，要求堂上积极思考，尽量当堂学懂，并做到灵活应用。学会利用计算机编程手段分析问题和解决问题。（6）养成良好的编程习惯
强调可读性;变量要加注释；程序构思要有说明；学会如何调试程序;
对运行结果要做正确与否的分析。
小结：学好vb程序设计要有自信、自强，积极主动学习。克服畏难情绪、树立学好程序设计的信心。巩固练习： 回答问题
1.中学生为什么要学习计算机程序设计? 2.如何学好VB程序设计？ 布置作业：
目的：巩固课堂讲的理论知识。
内容：1.中学生为什么要学习计算机程序设计? 2.如何学好VB程序设计？ 方法：下一节课预测。
评价：按学生的答案来评价。
高二年级信息技术教案
第二课时 第一章1.1计算机的解决问题过程
一，vb环境简介
教学课时：
1课时（每课时40分钟）教学目标： 知识目标：
1.了解vb环境简介 2.了解vb 发展过程。
技能目标：学会启动和退出Visual Basic。
德育目标：通过教学激发学生探索学习现代科学知识的主动性。教学重点： 1.vb环境简介
3.学会启动和退出Visual Basic。教学难点：
1.vb 发展过程； 教学方法：
讲授法＋直观演示法＋任务驱动法 教学环境与工具：
多媒体机房+多媒体课件＋课堂直观演示＋课堂练习
教学过程： 前提测评：
1.中学生为什么要学习计算机程序设计？ 答：
1、首先是信息时代的要求
2、有助提高计算机知识和应用水平
3、有利于培养学生逻辑思维
4、社会需要大量的非计算机专业人员开发适用软件 讲新课：
一，Visual Basic 简介
Visual Basic 是Microsoft 公司开发的Windows 应用程序开发工具，Visual ——“可视化的”，是一种开发图形户界面的方法。使得非计算机专业的人也可以开发出专业的Windows软件。
Visual Basic继承了BASIC语言简单易学的优点，又增加了许多新的功能，它采用面向对象与事件驱动的程序设计思想，使编程变得更加方便、快捷。使用Visual Basic既可以开发个人或小组使用的小型工具，又可以开发多媒体软件、数据库应用程序、网络应用程序等大型软件。是国内外最流行的程序设计语言之一。
二，Visual Basic的发展
20世纪60年出现Basic语言；
20世纪80年代，True Basic、Quick Basic和Turbo Basic等;1991年Microsoft公司推出Visual Basic1.0，以可视化工具为界面设计、结构化Basic语言为基础，以事件驱动为运行机制。从1991年的VB1.0至1998年的V B6.0的多次版本升级，功能更强大、完善，应用面更广； 三，Visual Basic的启动与退出
启动Visual Basic
使用“开始”菜单中的“程序”命令。 使用“我的电脑”
使用“开始”菜单中的“运行”命令
建立启动Visual Basic6.0的快捷方式
退出Visual Basic 为了退出Visual Basic，可先打开“文件”菜单，并执行其中的“退出”命令（或按Alt+Q快捷键）。如果当前程序已修改过并且没有存盘，系统将显示一个对话框，询问用户是否将其存盘，此时选择“是”按钮则存盘，选择“否”按钮则不存盘。在上述两种情况下，都将退出Visual Basic，回到Windows环境 小结：
使用Visual Basic既可以开发个人或小组使用的小型工具，又可以开发多媒体软件、数据库应用程序、网络应用程序等大型软件。是国内外最流行的程序设计语言之一。
从1991年的VB1.0至1998年的V B6.0的多次版本升级，功能更强大、完善，应用面更广 巩固练习： 1.怎么启动vb? 2.怎么退出vb？ 布置作业：
目的：巩固课堂讲操作内容。内容：1.vb的简介和发展过程? 2.启动和退出vb？ 方法：下一节课预测。
评价：按学生的答案来评价。
第三篇：高中信息VB试题
高中信息技术会考VB复习题
一、单选题
1.计算机程序的三种结构是顺序结构、、选择结构。A．模块结构 B．循环结构 C．多重循环结构 D．IF块结构
2.是指用户操作引发或由系统引发，能被对象所识别并做出响应的动作。A．任务 B．事件 C．控件 D．过程
3.在VB中，窗口坐标系的原点在，x轴向右为正，y轴向下为正。A．窗口左上角 B．窗口右下角 C．窗口正中间 D．窗口右上角
4.在VB应用程序设计中，通常应对 编写程序代码。A．所有对象 B．窗体 C．Timer D．有事件的对象
5.在面向对象程序设计中，用来描述对象的特征信息。A．事件 B．方法 C．代码 D．属性
6.在VB编程中，如果需要返回鼠标的当前位置，或了解按下的是鼠标哪个键及需要配合键盘上的Shift、Ctrl、Alt键时，应该使用 事件。A．Click B．Change C．MouseDown D．KeyPress 7.在VB应用程序设计中，如果想让Timer控件每秒钟响应一次，应该将其Inerval属性设置为。
A．1 B．60 C．100 D．1000 8.下列过程中，是程序开始运行时，窗体一加载就运行的程序段。A．Form_Load B．Form_Click C．Form_MouseDown D．Form_KeyPress 9.的Visual Basic表达式是。
A．(-b+b^2-4ac)/2a B．(-b+sqr(b^2-4*a*c))/(2*a)C．(-b+sqr(b^2-4ac))/(2a)D．(-b+sqr(b^2-4ac))/2a 10.在VB系统中，代表内存单元，是命了名的存储空间。A．变量 B．常量 C．函数 D．字节
11.语句用于声明变量，并定义变量的数据类型，给变量分配存储空间。A．Sub B．Dim C．Call D．End 12.在VB程序设计语言中，语句的功能是使系统产生的随机数真正随机化。
A．Rnd B．Circle C．Randomize D．Dim 13.关系表达式的值为。
A． 数值 B．字符串 C．逻辑值 D．逻辑表达式 14.下列控件中“文本框”是。
A.Label B.TextBox C.OptionButton D.CommandButton 15.若改变一文本框中所显示文本的颜色，需改变此文本框的哪个属性？ A.Caption B.Forecolor C.Backcolor D.Text 16.在VB环境中，如果设计时将命令按钮的 属性设置为False，则运行时该按钮从窗体上消失。A．Default B．Enabled C．Visible D．DisabledPicture 17.在VB环境中，修改对象的BackColor的属性值，则对象的 将发生改变。A.文字颜色 B.背景色 C.前景色 D.边框颜色
18.用VB工具箱中的哪个控件可以建立命令控制按钮 B。
19.在VB应用程序中，修改控制代码，使Command1按钮显示“end”，正确的设置是。
A.Command1.Text=“end” B.Command1.Caption=“end” C.Command1.Name＝end D.Command1.Caption=end 20.在VB程序中，当变量H的值等于8时，执行“IF H>8 then R=10 else R=20”语句后，R值为。
A．5 B．10 C．20 D．10或20 21．当a=123: b=Str(a)，则
A．a和b均是字符型变量 B．a是字符型变量，b是数值型变量 C．a是数值型变量，b是字符型变量 D．a和b均是数值型变量
22.用循环结构解决问题时，如果循环的次数已知，通常采用 ；当循环的次数未知，需要靠判断条件是否成立来决定循环的执行和退出时，通常采用。
A．For…Next循环、Do…Loop循环 B．Do…Loop循环、For…Next循环 C．Do…Next循环、For…Loop循环 23.函数的作用是建立一个输入对话框。
A．MsgBox()B．InputBox()C．RGB()D．Print 24．A=5，B=8，则（B-A）*Rnd+A的结果是介于_______之间的实数。A.[5，8] B.（5，8）C.[5，8）D.（3，5）25． For i=1 to 10 Step 2 …… „循环体中循环变量的值保持不变。Next i 在程序运行时循环体将被执行_________几次。
A.3次 B.4次 C.5次 D.6次
26．执行后将会清空文本框Text1中文本的语句是___________。A.Text1.Clear B.Text1.SelText= “ ” C.Text1.text= “ ” D.Text1.SelText.Clear 27．在机场托运行李，每人免费25千克，超过25千克不到50千克，则超出部分按每千克10元收费，如果超过50千克，则超过部分按每千克20元收费。这种计费程序最适合用到的程序结构是 A.循环 B.赋值 C.分支 D.顺序 28．下面是一段循环结构的程序段： s=0 x=2 Do s=s+1 x=x+3 Loop Until(x>=12)该程序段运行后，循环体的执行次数是 A.1 B.2 C.3 D.4
第四篇：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
点击咨询 