《VB程序设计》课程教学大纲
一、课程基本情况
二、课程性质与作用
本课程主要介绍Visual Basic的可视化编程基础、VB语言基础、顺序结构程序设计、选择结构程序设计、循环结构程序设计、数组和自定义类型、过程的定义与调用、变量与过程的作用范围、常用算法设计、用户界面设计、图形与图像操作、文件的使用与管理、面向对象编程等知识。本课程是对文、经、管等各类非理工类学生进行计算机程序设计教学的必修课程，也是学生学习结构化和面向对象程序设计的基础课程。通过学习，培养学生程序设计和系统开发的能力，提高学生应用计算机进行数据计算和数据处理的水平。同时，为后续《数据库原理及应用》、《动态网页设计》、《动态网站交互技术》、《管理信息系统》等课程提供开发工具，为进一步学习和应用打下基础。
三、培养目标与标准
通过本课程的教学，使学生进一步学习计算机程序设计的基本知识、VB程序设计语言的基本内容，掌握程序设计的基本方法与编程技巧、常用算法的设计与程序实现，了解软件设计和系统开发的基本方法和步骤，掌握一种面向对象的高级语言程序设计工具，具备编写Windows风格程序的能力。通过本课程的教学，锻炼学生独立自主学习、有效利用网络教学平台与教学资料的能力。在教学过程中通过将学生分成学习小组，采用助教辅助教学等方法和手段，培养和提高学生的沟通技巧
和能力、尤其是团队协作意识。全面培养和提高学生应用计算机解决和处理实际问题的思维方法与基本能力。课程培养标准主要包括：
（1）掌握VB程序设计语言基本知识、典型算法以及程序设计的相关技术，具备运用VB程序设计语言进行程序设计和系统开发，并使用计算机解决实际问题的能力。
（2）掌握程序调试方法，具有较强的程序调试能力。
（3）学习规范的程序设计方法，具备良好的编程风格，设计程序符合工程实际标准。
（4）掌握学生使用手册、在线帮助、利用网络教学平台查资料等方法，培养学生自学能力和研究、解决问题的能力。
（5）教学中贯彻协同合作和多元化考核的思想，培养学生的团队合作精神和语言表达、沟通与协调能力。
四、理论教学内容与学时分配
五、实践教学内容与学时分配
本课程开出的实践项目详见下表：
六、学业考核
1、本课程的作业规范：
（1）要求每次课后布置相应作业，作业量以中等程度学生在一小时左右完成为宜。
（2）作业形式：以电子文档的形式预先公布
（3）提交方式：以电子文档形式上传
2、本课程考核方式及考核标准：
附：
平时考核与实践考核标准
平时考核与实践考核成绩均采用倒扣分制度。起评分100分，最多扣分100分，扣分点如下：
一、平时考核
1、迟到――扣2～5分
2、早退――扣2～5分
3、旷课――扣5～10分
3、上课纪律――讲话、睡觉、玩手机、看课外书籍等，扣2～5分
二、实践考核
1、每次完成作业或实验量不足1/3，扣该次作业成绩的60～70分
2、每次完成作业或实验量不足1/2，扣该次作业成绩的40～50分
3、程序设计算法错误、处理数据或内容不完整、结果表示不正确或不全面，扣5～10分
三、系统开发与作品设计比赛（总分100分）
1、个人在团队中所起作用与承担的工作量
2、团队演讲成绩：仪表、表达、演讲水平与演讲效果等
3、团队作品成绩：作品的创意、作品设计难度、作品的完成情况、作品的实用价值等
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
《VB选择结构程序设计》教学设计 山东省临清市第二中学吴焕英 【案例背景】 高中信息技术新课程的实施，其课程目标定位于全面提升学生的信息素养，其课程的设置从知识与技能、过程与方法、情感态度与价值观三个方面实施这个课程目标。然而，众多的老师实施新课程后发现：教学内容的范围比以前更广泛了、课时远远不够、教学软硬件资源缺乏等诸多问题。因此，如何更有效地开展新课程教学，成为老师们迫切需要解决的问题。本教学案例从学生的实际情况出发，根据现有的数学、英语基础，结合简单的生活实例，引导学生进行探索式学习，问题从简单的英语口语入手，过渡到课题的研究学习。原本枯燥无味的VB程序设计，在简单、形象的生活实例下，激发了学生的思考与探索思维。这样的教学案例，值得我们反思研究、总结与完善。 【教材分析】 算法与程序设计是普通高中信息技术课程中选修模块之一，本模块旨在使学生进一步体验算法思想，了解算法和程序设计在解决问题过程中的地位和作用；能从简单问题出发，设计解决问题的算法，并能初步使用一种程序设计语言编制程序实现算法解决问题。 “选择结构”是教育科学出版社出版的高级中学课程标准实验教科书、算法与程序设计第二章第三节的内容，共分三课时，本课为第二课时。主要内容是用选择结构编写简单的程序解决具体问题。用选择结构编写简单的程序解决具体问题是在学生已经掌握了程序设计数据的表示与处理的基础上，理解了顺序结构的前提后提出的。 通过本课的学习，可以促进学生对问题解决方法和思想的理解与掌握，从而提升学生的问题解决能力，让学生在按照一定的流程解决问题的过程中，去体会和理解程序设计的思想，而且也为多分支选择结构的学习打下基础。 【学生分析】 高一的学生在数学课中已经有了算法和程序设计的基础，学生对事物的分析、综合能力及独立思考能力、分析解决问题的能力都有了一定的水平，在教师的有效引导下，有能力进行自我探究，如果用一种学生比较感兴趣的，能够贴近学生日常生活的例子来分析选择结构的话，那么学生会比较感兴趣。 【教学目标分析】 通过教师引导学生去探究、发现技术背后所蕴含的技术价值和技术思想，使其获得知识与技能的同时，理解和掌握过程与方法，这样才能够学会认知，学会做事，乃至学会生活，提高终生学习的能力、分析解决问题的能力，满足其终身发展的需要，成为适应信息社会的公民。 因此本节课的目标有以下几项：
第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )
《VB程序设计》期末复习要点 重点复习内容: 通过本课程的学习,要求重点掌握: 1. VB窗体的属性,事件和方法,常用的控件的公用属性和常用标准控件. 2. VB常用的数据类型,常量的定义,变量的命名,变量的声明及作用域. 3. 常用的表达式. 4. For…Next循环,Do…Loop循环,If…Then…Else条件判断语句,Select Case语句. 5. 一维数组,二维数组的声明与存取. 6. 过程的声明与调用. 7. 菜单编辑器,输入对话框,消息输出对话框及系统对话框的使用. 考试题型及分值: 1. 判断题共10题(每题1分,共10分) 2. 单项选择题10题(每题2分,共30分) 3. 填空题10空(每空2分,共20分) 4. 阅读程序,写出程序运行结果2题(每题10分,共20分) 5. 程序填空( 共20分) 复习题: 判断题(正确的打√,错误的打×) ( )1.VB对象就是窗体和控件. ( )2.事件是VB对象可以响应的用户操作. ( )3.文本框和标签框通过同一属性在窗体上显示文字. ( )4.For…Next循环结构的默认步长为1. ( )5.对象的属性都可以在程序中通过语句设置. ( )6.能够改变多项选择框中背景颜色的属性是BackColor. ( )7.使用Open语句可以创建新的顺序文件. ( )8.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可. ( )9.所有对象的属性都可以在属性窗口中设定. ( )10.标签没有change事件和setFocus方法. ( )11.方法Form1.show与Form1.visible=True是等效的. ( )12.Msgbox函数建立的信息框既能显示信息又能输入用户的信息. ( )13.Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环. ( )14.函数Str(23)与Str(-23)的值的长度相同. ( )15.变量名的第一个字符必须是字母. ( )16.InputBox函数和MsgBox函数一样,返回的是字符串. ( )17.改变窗体的标题也就是改变其属性窗口中的name属性. ( )18.文本框控件有Caption属性. ( )19.在Visual Basic中,向过程传递参数时,按地址传递参数是缺省的. ( )20.在工具箱内双击命令按钮图标,便会在窗体上建立一个命令按钮. ● 单项选择题 1.若要求从文本框中输入密码时在文本框中只显示* 号,则应在此文本框的属性窗口中设置( ). A,Text属性值为* B,Caption属性值为* C,Password属性值为空D,Passwordchar属性值为* 2.在文本框的属性中,用于设定文本框最多可接受字符数的属性是( ).
第四课学学程序设计—初步认识编程软件VB 教学目标： 知识目标：了解什么是程序设计语言和计算机程序以及语言的分类 过程与方法：培养学生的阅读总结和自主探索能力 情感态度与价值观：通过学生利用所学的知识解决实际问题，激发学生 的学习兴趣 教学重难点：了解什么是程序设计语言 启发学生创新思维 以任务为驱动，激发学生创新思维 教法：讲授法、任务驱动法 教学过程： 一、导入新课 教师运行游戏小程序，引起学生的兴趣，并打开程序的原代码说明编程并不很神秘。试运行游戏小程序，激发学生的学习兴趣。 二、教师讲授： 程序设计语言 教师活动：语言是人类交流思想、沟通感情最重要的工具。那么语言不通的人如何交流呢？ 学生活动：请一个语言翻译或自己学会他人的语言 教师活动：计算机所做的事情均为人向机器下达的命令，那么操作作者又是通过什么语言同计算机进行沟通的呢？ 程序设计语言的分类及特点
1、机器语言 教师活动：①计算机能听懂的语言（机器语言）②机器语言的实质（二进制语言）③二进制语言的特点。强调计算机内部只认识二进制学生活动：谈对二进制语言的感受 教师小结：机器语言的特点（二进制、计算机直接能懂、难以理解，与人类语言差距较大）汇编语言-用助记符号表示面向机器的程序设计语言。使用汇编语言编写的程序，机器不能直接识别，要由一种程雪汇编语言翻译成机器语言。适合编写直接控制机器操作的程序，不容易使用。高级语言-最接近人的自然语言，即简单易学，它所编制的程序计算机执行时需要“翻译”，执行速度比二进制程序慢。 三：展示微课视频 VB简介、认识VB窗口、相关概念：1、对象的概念 2、属性的概念 3、事件和代码的概念。演示设计运行程序“奔跑的小汽车”依照微课演示编写程序“奔跑的小汽车” 四：学生体验 1、学生编写程序“奔跑的小汽车”，教师巡回指导。 2、试修改程序，让汽车倒车、速度变慢。 五、教学评价： 1、教师点评教师通过巡视，把部分学生修改的结果进行点评，指出典型的错误。 六、课后小结： 这节课，我们体验了用VB设计程序，了解程序有关知识。（回顾本节知
vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题
1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub
教案首页
教案纸 2009年9 月8 日教学手段： 利用多媒体机房演示安装Visual Basic 6.0，并对该开发环境进行分析介绍。让学生明确课程的性质和地位、学习本课程要达到的要求。导入新课： 第1课Visual Basic简介 1.1可视化程序设计（讲授法；图文并茂） 课堂讲解本任务要求了解可视化程序设计的概念。 1.2面向对象程序设计（讲授法） 课堂讲解本任务要求了解面向对象程序设计的概念。 1.3 VB6.0的运行安装和启动（边讲边练） 课堂讲解本任务要求掌握VB6.0的运行安装和启动方法。 1.4 VB6.0集成开发环境（边讲边练） 课堂讲解本任务要求熟悉VB6.0开发环境。 本课小结： 面向对象程序设计 可视化程序设计 布置作业： P20页习题一2、3，预习：第2课
教案首页
教案纸 2009年9 月9 日教学手段： 利用多媒体机房边讲边演练。 复习提问： 什么是面向对象？以及面向对象的方法和属性是什么？ 导入新课： 第2课VB6.0应用程序的创建及管理 2.1创建VB6.0应用程序的步骤（演、讲、练） 课堂讲解本任务要求掌握创建VB6.0应用程序的步骤。 学生课堂完成任务： （1）建立用户界面的对象； （2）设置对象的属性值。 （3）编写程序代码，建立事件过程。 （4）保存和运行应用程序。 2.2 VB6.0的工程管理（演、讲、练） 课堂讲解本任务要求掌握VB6.0工程管理的方法。 2.3使用帮助信息（边讲边练） 课堂讲解本任务要求掌握帮助信息的使用方法。 本课小结：略 布置作业： P22页上机实验一4 预习：第3课
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
《初识V B》教学设计一、学生分析 本节课的授课对象为初三年级学生，这阶段的学生理解能力和接受能力较强。初一年级时学生已学习了一些程序设计语言的概念，知道计算机能直接认识的语言为机器语言，为本节课的学习打下了一定的基础。 二、教材内容分析 1、本节的主要内容及在本章中的地位 本节课教学内容为九年级下册第1章第1、2节的内容，主要学习程序、程序设计语言的概念和VB的创建工程、设计界面、编写程序、保存文件、运行程序等操作方法 2、教学重点、难点 重点：程序的概念和作用、创建VB程序的一般步骤和方法 难点：程序的作用、窗体文件和工程文件的保存 3、课时安排：1节 三、教学目标 1、知识与技能 （1）了解程序的概念以及程序在计算机中的作用 （2）了解程序设计语言的不同类型、特点和发展趋势 （3）了解程序设计的方法 （4）了解VB程序设计环境，知道在VB程序设计环境中创建程序的一般步骤和方法 （5）了解VB，学会用VB创建第一个程序 2、情感态度价值观 （1）注重学生的自学能力的培养。
（2）鼓励学生动手、动脑，培养勤于动手、主动探究的精神。 （3）培养学生利用信息技术解决实际问题的能力。 四、教学理念和方法 1．对于程序与程序设计语言等概念，学生学习起来较枯燥，故先安排学生带着教师提出的几个问题，看书思考和自学，再由教师组织学生个别回答、师生举例、师生讨论、归纳等活动来将几个概念弄清楚。 2．对于VB软件的学习，教师先展示一个由VB开发的小游戏，师生一起参与游戏的使用，让学生感受到VB软件的实用性，充分调动学生积极使用VB开发小程序的愿望，再由教师示范讲解VB程序设计环境中创建程序的一般步骤和方法，最后由学生动手尝试使用VB。 五、教学资源 教学硬件：教师机1台、学生机60台、液晶投影仪1部 教学软件：windows xp、达道多媒体教学软件、自制的教学课件 五、教学过程设计
'以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:"))
常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then
VB可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框
图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口
Visual Basic程序设计知识点（基础部分） 说明：黄色突出显示的为重点记忆内容，灰色突出显示的不作掌握要求。 第1章Visual Basic概述 一、VB对象与事件驱动的编程机制 1．VB对象 在Visual Basic应用程序设计中，构成图形用户界面的（GUI）的每一个可视的部件，均可视为对象。Visual Basic中的对象分为窗体和控件两大类。窗体就是窗口本身，是屏幕上的一个矩形区域；控件则是窗体上构成图形用户界面的一些基本组成部件。 Visual Basic的对象是具有特殊属性和行为方法的一个可视化实体，每一个对象均有自己的特殊属性、事件和方法。 属性是一个对象的特性。属性的设置方法：（1）设计阶段修改对象属性值；（2）程序运行阶段修改对象属性值，其语法格式为：对象名.属性名=属性值。例如：Command1.Caption=”确定”。 事件在发生对象身上，且能被对象识别的动作。当事件在对象身上发生后，应用程序就要处理这个事件，处理事件的步骤就是事件过程。事件过程的一般格式为： Private Sub 对象名_事件( [参数列表]) ……事件过程代码 End Sub 例如： Private Sub Command1_Click() End …结束程序 End Sub 方法是对象本身所包含的一些特殊函数或过程。方法的调用格式：[对象名.]方法名[参数名表]。若省略了对象名，表示为当前对象，一般指窗体。例如：Form1.print “VB is fun!”2．事件驱动的编程机制 应用程序先等待某个事件的发生，然后再去执行处理此事件的事件过程。发生事件的顺序决定了代码执行的顺序，若没有事件发生，整个程序处于停滞等待状态。 二、窗体对象 属性：Namek, Caption, Height, Width, Left, Top, MaxButton, MinButton 事件：Click, DblClick, Load 方法：Print, Cls, Move 三、基本控件 1．标签 属性：Caption, Alignment, Autosize, BorderStyle 2．文本框 属性：Text, PasswordChar, SelStart, SelLength, SelText 事件：Change, GotFocus, LostFocus, KeyPress 方法：SetFocus 3．命令按钮 属性：Caption, Cancel, Default
VB程序设计——选择结构 ■教学目标 1.知识与技能 1.了解选择结构的基本概念。 2.了解关系表达式与逻辑表达式的概念。 3.能利用VB中的条件语句实现简单的选择结构。 2.过程与方法 经历实践、分析、归纳，掌握IF语句的格式和功能。 3.情感态度与价值观 运用捉老鼠游戏，完善程序，发展学生思维的逻辑性及严谨的学习态度。 4.行为与创新 培养学生利用计算机的反馈作用进行探究学习的能力。 ■课时安排 安排2课时。 ■教学重点与难点 1.教学重点 让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 2.教学难点 对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。■教学方法与手段
讲述与讨论、实验与验证。■课前准备 教学课件、实例程序 教学环 节教师与学生活动 设计意 图 设计情境、引入新课教师活动：让学生制作捉老鼠游戏 学生活动：积极参与。 教师活动：学生制作小游戏界面，教师指导，如果抓到小老鼠系统将会提示抓住老 鼠了。 一只小老鼠在草地上跑来跑去，现在要用鼠标控制敲钟它。敲中一次，就会弹出一 次信息框。我们将通过制作这个小游戏程序，学习程序设计语言IF条件判断语句。 由鼠标抓小老鼠同学们的不同选择引出本课的主题——选择结构。 通过制 作小游 戏使激 发学生 的思维 能力，并 引出本 课的内 容选择 结构 课堂小 结 小结总结本堂课的内容。 拓展活动编写“小游戏”界面。培养学生的探索、创新能力。培养学 生的创 新，探索 能力
VB程序设计——选择结构 ■教学目标 1.知识与技能 1.了解选择结构的基本概念。 2.了解关系表达式与逻辑表达式的概念。 3.能利用VB中的条件语句实现简单的选择结构。 2.过程与方法 经历实践、分析、归纳，掌握IF语句的格式和功能。 3.情感态度与价值观 运用捉老鼠游戏，完善程序，发展学生思维的逻辑性及严谨的学习态度。 4.行为与创新 培养学生利用计算机的反馈作用进行探究学习的能力。 ■课时安排 安排2课时。 ■教学重点与难点 1.教学重点 让学生学会使用VB语言的If分支语句，掌握分支判断程序结构，来解决实际问题，并且培养学生的探索、创新能力。 2.教学难点 对解决问题的方法和步骤的理解，并能根据实际问题写出程序代码。■教学方法与手段
高中信息技术vb程序设计教案 精品文档 高中信息技术VB程序设计教案 我们知道，计算机系统是由硬件和软件两大部分组成的。硬件指的是各种机器设配，而软件则是人们为解决各种问题而编写的程序。 编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样，计算机编程语言也有很多。目前较为广泛使用的语言有“c++”、“pascal”、“basic”等。在众多的计算机编程语言中，以basic语言最为易学易用。 basic是英文beginner’s all purpose symbolic instruction code的缩写，意思为初学者通用符号指令代码，一直都是程序设计入门的首选语言。 1991年，visual basic(简称vb)面世，他是第三代basic语言，它不但秉承了basic语言的易学易用的优点，而且增加了图形界面设计工具。它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。 本单元将以简单的visual basic 应用程序实例作引导，介绍一些程序设计的基本思想与方法。 第一课:我的第一个vb程序 用vb来编程序并不是一件难事，不信,请往下看。 编写一个程序，运行时显示如下界面: 图简单的vb程序 1 / 3 精品文档
操作步骤如下: 一、新建一个工程 步骤1:启动vb5。单击【开始】?【程序】?【microsoft visual basic 】?【visual basic 】。 步骤2:在新建工程对话框(图)中选择【标准exe】。 visual basic把设计程序比作兴建工程。因此，启动vb5时首先要新建一个工程或打开一个工程文件。 创建一个新的工程时，visual basic将自动创建一个空窗体，并命名为 “form1”。窗体是程序运行的窗口。 图 vb的工作窗口 二、在窗体中新建对象 控件和对象在vb的窗口中有一个工具箱(一般在左边)，工具箱中有很多“工具”，称为控件。单击工具箱中的控件，然后在窗体中拖放鼠标，就可以在窗体中绘制具体的控件，这些具体的控件就称为对象。 图 vb工具箱 步骤3:单击工具箱中的label(标签)控件，然后在窗体中拖放鼠标，窗体中就生成了一个新的对象，对象名为label1。如图。 三、修改对象的属性 步骤4:选中窗体中的一个对象，属性窗口就会显示出这个对象的所有属性，如图所示。 2 / 3 精品文档 属性属性就是对象的特征。每个对象都有很多属性。属性的设定有两种方法: 方法一:在属性窗口中修改属性值;操作方法如图所示。
一．编写程序，当单击窗体时求出1+1/3+1/5+1/7+... 的和，直到所加项1/n小于10-3，所求结果用变量s存放,并在窗体上输出计算结果。(要求用While .............Wend 循环来做此题) Private Sub Form_Click() Dim s!, n% ‘注意必须定义为！ s = 0 ‘计算累加和时，存放累加和的变量初值为0 n = 1 ‘n为第1项的值 While 1 / n > 10 ^ (-3) ‘注意乘幂的写法，s = s + 1 / n n = n + 2 ‘注意每次加2 Wend Print "s="; s End Sub
二．请编写程序：有一个三位数，减去七能被七除尽，减去八能被八除尽，减去九能被九除尽，当单击窗体时计算并输出这个数是多少。 Private Sub Form_Click() Dim i% ‘i作为循环变量 For i = 100 To 999 If (i - 7) Mod 7 = 0 And (i - 8) Mod 8 = 0 And (i - 9) Mod 9 = 0 Then Print I End If Next End Sub
三．编写程序，当单击窗体时求1~100中既是5的倍数又是7的倍数的数的和。其中Sum为累加和变量，i为循环控制变量，并在窗体上输出累加结果。 Private Sub Form_Click() Dim Sum%, i% Sum = 0 For i=1 to 100 If i mod 5=0 and i mod 7=0 then Sum = Sum + i End if Next i Print "Sum="; Sum End Sub
《VB程序设计》教案 教学目标 知识目标：1、了解程序开发的一般步骤；2、掌握VB常见控件的用法；3、掌握一些常见函数的用法。 技能目标：学会使用控件、常见函数、简单的VB语句编写程序，来解决生产、生活中的一些简单问题。 情感、态度与价值观目标：通过本单元的学习，培养学生严谨的思维习惯，培养编程兴趣和编程意识，从而提高学生分析问题、解决实际问题的能力。 教学重难点 1、VB常见控件的用法，常见函数的用法。 2、使用控件和函数解决实际问题。 教材分析 本单元共八课，讲述了VB程序设计的基础知识，以及简单的VB程序设计，VB6.0的全称是Visual Basic6.0，是微软公司推出的可视化编程工具，是一种应用较为广泛的程序开发工具。它的语法简单易学，开发程序速度快，开发环境体贴便利，是一款优秀的编程工具，是初学者的首选。 第一课大熊猫的两个愿望介绍了VB6.0的界面和整体功能。 第二课自我介绍主要介绍了开发程序的一般过程，以及几种常见控件：TextBox、单选等。 第三课谜语大擂台（一）字符串的概念，字符串的合并运算，设置窗体属性的方法，使用Timer控件、Image控件，Val（）、Cstr（）、Timer$、vbCrLf常数。 第四课节约用水算水价使用IF条件选择语句，解决简单的问题，学会使用算术运算符进行四则运算代码设计。 第八课我的媒体播放器通用对话框（CommomDialog）控件、多媒体（MMControl）控件。 学情分析 学生通过上一单元“算法思想初步”的学习，对程序设计已经有了初步的了解，已经会使用E语言编辑简单的中文程序，而且表现出的兴趣比较高。但本单元较上一单元难度加大很多，虽然都是编程，但方式方法有很大不同，所以要积极调动学生的积极性。
VB程序设计－整除统计并换行输出 （作者：草原飞狼 2014年5月28日） 声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。 布局
运行界面（1） 运行界面（2） 源代码如下： Private Sub Command1_Click() Rem 求1-1000之间能够被13整除的数，每10个换行显示 Dim i, j As Integer j = 0 '行输出控制变量For i = 1 To 1000 If i Mod 13 = 0 Then Picture1.Print i; Rem 以下三行控制行输出数量，也可以直接使用变量i j = j + 1 If j Mod 10 = 0 Then '把j换成i也正确Picture1.Print End If End If Next i End Sub Private Sub Command2_Click() Rem 清空 Form1.Picture1.Cls End Sub
Private Sub Command3_Click() Rem 退出 Dim int_msg As Integer int_msg = MsgBox("单击“是”退出程序，单击“否”程序将返回！", vbYesNo + vbQuestion + vbDefaultButton1, "退出提示") If int_msg = vbYes Then Unload Me Else MsgBox "你选择不退出，程序将继续进行！", vokonly + vbExclamation, "返回程序" End If End Sub Private Sub Form_Load() Rem 初始化，设置picture1字体 With Form1 Picture1.FontName = "宋体" Picture1.FontSize = 16 FontBold = True End With Label1.Caption = "求1-1000之间能够被13整除的数，每10个换行显示" Label1.ForeColor = vbRed End Sub