第一篇：可用的教案vb
《浅水洼里的小鱼》教学设计
一、视频播放，激发兴趣
蓝天是白云的家，树林是小鸟的家，泥土是种子的家。我们是祖国的花朵，祖国就是我们的家。）师生齐读小诗。
师：是啊！我们都有一个温暖的家！（一边播课件）大海就是鱼儿美丽的家，鱼儿在大海里多么快活啊！他们每天和爸爸妈妈、小伙伴一起玩耍、游戏。可是有一天，海面上刮起了狂风，小鱼被带上了沙滩。风停了，小鱼这才发现自己被困在了----浅水洼里。
今天我们继续学习第28课《浅水洼里的小鱼》（逐字板书课题）齐读课题。
师：小鱼被困在浅水洼里，它们是多么想回家呀！你们愿意送他回去吗？（先自由读一遍，再开火车读）。
二、复习回顾，导入新知
学生开火车读词语。
三、读课文，把握课文主要内容
1、看来同学们上节课学习得真不错，让我们再次走进课文看看吧！
2请同学们打开书132页，摆好认真听读的姿势，听录音朗读，边听边想：课文主要讲了一件什么事，请用“谁，在干什么？”的句式说说。
3、幻灯片出示： _________ 在 _________ ？
四、领悟词句，感情朗读，情感升华，（学习第一自然段）
1、师：是呀！清晨，我们呼吸着清新的空气在海边散步，过着幸福的日子，可是有谁知道小鱼遇到了困难呢？我想请一位同学读一读第一自然段，其他同学边听边想：你读懂了什么？ 我读懂了：小鱼很不快活，很惨，非常可怜，很难过„„ 师：是的，小鱼多么可怜呀，我们一起来读读这一句话。生齐读：它们被困到水洼里，回不了大海了。师：什么是“困”？
生：困就是四周被东西围住，围困的意思。失去了自由了！（板书：小鱼被困）师：假如你就是这浅水洼里被困的小鱼，你的心情会怎样？（现场采访）生1：我很伤心。
师：你就伤心地给大家读读这句话。生2：小鱼会孤独、寂寞、着急。
师：那你就带着着急的语气给大家朗读。
2、师：盛老师仿佛真的看到了浅水洼里被困的小鱼，它们是多么伤心、难过，又是多么的着急。被困在水洼里的小鱼多吗？。
生：我觉得被困在水洼里的小鱼有很多。（板书：多）师：。你是从课文中哪一句话读出来的呢？ 生：被困的小鱼，也许有几百条，甚至有几千条。
师：这句话中的哪个词语体现了小鱼很多呢？
生：我从“几百条”、“几千条”读出被困的小鱼有很多。请你来读读这个句子。
师：你看，这位小朋友多会读书啊！他能抓住句子中的重点词语读懂句子，这可是个好方法。让我们齐读这句话吧！
3、师：小鱼被困了，他们的处境特别危险！因为（读）用不了多久；；；；；；；（学生发现“水、吸干、蒸干、干死”这个字变大变红了）
师：把这四个词语联系起来想一想，看看你能想到什么？（板书：危）
生：这些小鱼都会有生命危险。
生：如果水被沙粒吸干，被太阳蒸干，小鱼就会死掉。师：你真会联想。
师：你看，小鱼多可怜呀！假如小鱼会说话的话，它可能会说些什么呀？ 师：同学们体会得很好，此时，小鱼最大的心愿是什么？ 生：我真想回大海；要是有个好心人把我送回大海，那该多好呀！
四、学习第二自然段
1、师：小鱼们在浅水洼里苦苦挣扎，他们最大的心愿就是能回到大海的怀抱中。一个小男孩明白了小鱼的心愿，请大家自由的朗读第二自然段。
2、师：那个小男孩在干什么？ 生：小男孩在捡鱼、扔鱼。
师：对，小男孩弯下腰去，捡起浅水洼里的小鱼，他把小鱼扔到哪里去了？把句子连起来说。生：小男孩捡鱼、扔鱼，把鱼扔回了大海里。
师：一个多么有爱心的小男孩啊！你们想来表演一下小男孩子当时捡鱼，扔鱼的情形吗？ 师：老师来替你旁白，表演时要（特别注意弯下腰、捡起、扔回几个动作）。
师描述，生做动作：小男孩来到一个水洼前，看到第一条鱼，他弯下腰，捡起鱼，用力地扔回大海；他又弯下腰去捡起第二条小鱼，用力地扔回大海，还有第三条，第四条，弯腰、捡鱼、用力地扔，扔得远些，还有很多小鱼，快，要不停地捡，不停地扔。师：我们先停一停，刚才你在救鱼的过程中有什么感受？（我觉得很累！）累，你还捡呀！因为累总没有失去一条生命更重要。那么，此时你的心情怎么样？
生：快乐，因为帮助别人总是觉得快乐。
4、师：大家觉得这是一个怎样的小男孩？（心地善良、有爱心）你想对他说什么？
那就让我们用称赞的语气齐读第二段。
五、创设情景，让学生与文本对话（学习第三至六段）
1、过渡：面对小男孩执着的爱心，我“看了一会，忍不住走过去对小男孩说：”水洼里的小鱼有成百上千条，你是捡不完的“，小男孩子知道吗？（知道）”那你为什么还在捡？谁在乎呢？““这条小鱼在乎”，小鱼在乎什么呢？（要活着，要去找爸爸妈妈），除了小鱼自己在乎，还有谁在乎？（小男孩在乎，小鱼的爸爸妈妈在乎，小鱼的兄弟姐妹在乎，所有有爱心的人和他的亲人都在乎）（板书：在乎）
（可以引导学生：如果你有危险的时候，谁在乎？是呀！现在小鱼有危险了，还有谁在乎呢？）
2、师：是呀，一条小鱼就是一条生命，一百条小鱼就是一百条生命，因此“小男孩一边，一边，，”，“一边，一边”说明这两个动作是同时进行的。小男孩为什么不先回答完，再去捡鱼呢？（小男孩子为了救小鱼争分夺秒）
3、师：他不停地捡鱼、扔鱼，嘴里不停地叨念，“叨念”是什么意思呢？（念叨，没完没了地说）
小男孩在叨念什么呢？“这条在乎，这条也在乎，还有这一条、这一条、这一条„„“
六、出示句子填空，训练学生的理解、表达（巩固课文，升华主题）。
1、师：是呀，我们都在乎小鱼。那么这个句子你会填吗？开动脑筋想一想吧！
（出示句子：这条在乎，这条也在乎！还有这一条，这一条，这一条……所有的小鱼_______________。）
生：这条在乎，这条也在乎！还有这一条……所有的小鱼都在乎。
2、师：下面这个句子，可有难度了，想不想来挑战呀？
(出示句子：这条_________，这条也_________！还有这一条，这一条，这一条……所有的小鱼_________。)生1：这条想回大海，这一条也想回大海！还有这一条……所有的小鱼都想回大海。
生2：这条想活，这一条也想活！还有这一条……所有的小鱼都想活。
生3：这条是个小生命，这条也是小生命!还有这一条……所有小鱼都是小生命。
3、师：你们体会得真不错，现在老师要招募小演员来表演作者和文中小男孩的对话了，你们想报名参加吗？
师：请看大屏幕，前后两个同学合作练习作者和文中小男孩的话，呆会老师请最佳小演员来表演。（学生表演）
师：他们的表演太精彩了！你们也想来表演吗？这么多同学都想呀，老师也想和你们一起来表演读，那我们一起来吧！师：女同学（小男孩），男同学（叔叔），老师读旁白。
4、师：站在一旁的叔叔和来沙滩上散步的其他人，看到小男孩子捡鱼，扔鱼，也许他们会做什么呢、师：是呀，正是因为有许多像小男孩一样有爱心的人在不停地捡鱼，扔鱼，才使成百上千的小鱼回到了大海妈妈的怀抱。瞧！小鱼们在大海中游得多么快活，生活得多么幸福！他们又见到了亲爱的爸爸妈妈、可爱好朋友。它们游得多开心啦！
七、小结、拓展
1、师：同学们，无论鸟兽虫鱼，还是花草树木，地球妈妈都赋予了它们宝贵的生命。让我们像这位小男孩一样保护动物、珍爱生命，和小动物们和谐相处，伸出温暖的双手去保护它们。你们能做到吗：（能）
2、师：爱心小天使就知道你们会做到的，她把爱心卡片都送来了，你们尽情的写写吧！幻灯片出示：如果一只小鸟受了伤，落在窗台上，你会怎么做？
如果一只野兔受伤了，躺在大树旁，你会怎么做？
3、学生在心型卡片上补充句子。
4、师：哪些同学已经写好自己的做法了，我们来听听他们是怎么做爱心天使？
八、作业自选商场
师：同学们！你们都有一颗善良的心，可是在我们身边还有一些人不懂得保护动物、植物，今天回家，请你们像老师这样制作一张精美的卡片，送给亲朋好友，让所有的人也投入到爱护动物、保护动物的行动中来吧！
板书设计： 浅水洼里的小鱼
小鱼被困男孩在乎保护动物 5
多 危 捡 扔
珍爱生命
第二篇：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
第四篇：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语言编程概述 课 时:2课时 授课时间：2011.09.05 课堂类型：讲授
教学目的：1.熟悉VB界面和VB集成开发环境；
2.在实际操作中学会编简单的VB应用程序；
教学要求：1.掌握VB基础知识。
2.会编简单的VB应用程序。
教学重点：1.熟悉VB集成开发环境
2.编写简单VB应用程序。
教学难点：在熟悉VB界面的同时学习编写简单VB应用程序 教学方法：讲授 教学过程：
一、VB简介
BASIC是英文Beginner’s All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的缩写，它是专门为初学者设计的高级语言。Visual Basic是Microsoft公司于1991年推出的基于窗口的可视化程序设计语言。
a．“Visual”是“可视化的”、“形象化的”的意思。b.因此Visual Basic也具有易学易用的特点
c.目前Visual Basic的最新版本是Visual Basic 6.0（简称VB 6.0）
二、启动VB
1、首先显示“新建工程”对话框
直接单击“打开”按钮，创建“标准EXE”类型应用程序，进入集成开发环境主界面。
2、集成开发环境中的各元素 1）标题栏：用来显示窗口的标题。2）菜单栏 3）工具栏 4）工具箱 5）窗体窗口 6）工程窗口 7）属性窗口 8）窗体布局窗口
三、通过一个简单的应用程序快速入门
【例1.1（实训1，p16）】制作一个的一个简单的应用程序的运行界面。它由一个窗体、一个文本框、一个标签和一个命令按钮组成。当用户单击命令按钮“显示”时，文本框中出现“教你学VB”。1．新建工程 2．添加文本框Text1 3．添加命令按钮Command1 4．添加标签Label1 5．设置属性 6．编写事件过程代码
前面的工作把应用程序的界面设计好了，属性也设置完毕。但现在应用程序并不能实现实际的功能。为了使它具有一定的功能，还必须为对象编写实现某一功能的事件过程代码。1）双击窗体上的“显示”按钮，屏幕上出现代码窗口，程序代码就在这里编写。编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “欢迎使用VB” End Sub 2）运行应用程序 3）保存应用程序
VB应用程序至少有两种文件需要保存： · 窗体文件（.frm）· 工程文件（.vbp）4）生成EXE文件
四、总结步骤
设计VB应用程序主要有以下4个步骤：（1）设计用户界面。（2）设置属性。（3）编写代码。（4）保存和运行调试程序，生成EXE文件。
五、知识延伸
1、只有一个文本框的实例 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = “教你学VB“ End Sub
2、多个文本框时 编写如下事件过程：
Private Sub Command1_Click（）Text1.Text = ”教你学VB“ Text2.Text = “欢迎使用VB“ End Sub
3、按照系统的元件特性分类(分别举例说明)课后实训1 第二个命令按钮：清除 第三个命令按钮：退出 步骤：
1.添加2个命令按钮 2.双击按钮，进入编程状态 3.和显示按钮命令编程相似 编写如下事件过程： Private Sub Command2_Click（）Text1.Text = ” “ End Sub Private Sub Command3_Click（）End End Sub
4、图片的加载方法
Private Sub Form_Load()Image1.Picture = LoadPicture(App.Path + “1.BMP”)End Sub
六、小结 1.熟悉界面。
2.掌握完整编程过程以及运行及调试程序的过程。
点击咨询 