VB程序设计课程教案费下载

1、?VB程序设计?课程教案单元章节第一章 绪 论教学目标1.知识目标：1了解程序设计“语言在计算机应用中的重要作用；2掌握VB语句定义的格式和书写标准。2.技能目标：初步认识VB程序的输入、编辑和运行方法。3.德育目标：通过教学激发学生探索学习现代科学知识的主动性。重点难点1.教学重点：VB程序语言的书写标准2.教学难点：VB语句的格式教学方法讲授法直观演示法任务驱动法教学手段多媒体课件课堂直观演示课堂练习教学时数2+2课时。一般为2学时一个教案，难以分割的可4学时，不得超过4学时教学内容一、导语设计培养学生学习兴趣，引入新课“语言和人类自然“语言的比照：自然“语言是用于人与人之间交流的工具，而

2、计算机“语言是用于人计算机之间交流的工具，如果不懂计算机“语言也就无法实现人机交互的功能，那么，再好的电脑放在那里，也只是一堆废铁，因此，程序设计语言的重要性是可想而知的。，就要从它的最根本的词法，句法着手，大家想一下，我们现在会写文章，是你天生就会的吗？不是，而是从A，O，E开始，然后到词语、再到造句，最后将句子连接起来，就成了一篇文章，这里词语有词法，句子有句法如：我爱听歌和歌爱听我，哪个正确？。那么，作为人机交互的一门程序设计语言VB是不是也有自己的语法规那么呢？它的词法、语法有什么要求？那么今天我们就来一起学习VB程序语言的书写标准。二、授课内容突出重点、化解难点1、语句1内容板书：

3、格式：语句定义符语句体 功能：规定系统应执行的操作2讲解：化解难点 定义符：规定语句的功能 语句体：指出语句要执行的具体操作 ：表示必选项，不可省略：表示可选项，可以省略 (如：请你 关 窗户)3举例: print “欢送各位首长、专家莅临指导！定义符：让计算机执行“输出的功能语句体：输出的具体内容问题：整个这条语句完成什么样的功能？答案：在屏幕上输出“欢送各位首长、专家莅临指导！2、VB程序的书写标准1内容板书 一般而言，一条语句写在一行上。如果超出范围，也可以在行未添加“续行标志 ：即一个空格和一个下划线而分写成多行 一行上可以写一条语句，也可以写多条语句，只不过，要求多条语句之间需要用“

4、：分隔VB在输入代码时，可以不区分大小写字母。2举例： 讲每个要求时，都在VB环境下举正确、错误的两个例子演示运行结果。通过直观演示，培养学生的观察能力，突出重点自学指导与训练方案1、课堂练习：培养学生输入、编辑、运行VB程序的技能1 题目：编写一个简单的小程序计算：两个数的和或者积。2教师活动：巡视指导2、点评：反响教学效果3、小结：本节课要求大家了解程序设计 “语言的重要作用，掌握VB程序语句的定义格式和书写标准，在此根底上，要能编写一个简单的小 程序，看是否能实现人机交互的功能。4、作业：引导学生自学，激发学生探索学习现代科学知识的主动性求一元二次方程的根：ax2+bx+c=0第一章 V

5、isual Basic概述 【教学目的】 1、通过教学，使学生明确?Visual Basic编程根底?课程教学内容和要求，掌握学习本课程的方法。 2、通过教学，使学生掌握VB的根本特点，了解可视化编程、事件驱动等概念。 3、通过教学，使学生掌握VB的启动方法和退出方法，初步了解和使用VB 60的集成开发环境编制、运行程序。【教材分析】 1、教学重点：VB的根本特点、VB的启动方法和退出方法、VB 60的集成开发环境构成。2、教学难点：初步接触VB编程，与QB有很大差异。 【教学时间】三课时一节在多媒体阶梯教室，二节在第七机房 【学习过程】 一、关于Visual Basic Visual Bas

6、ic是在Windows平台上广泛使用的可视化的高级程序设计语言和开发工具。 现在应用较多的版本是Visual Basic 6.0。 Visual：可视化。 Basic：BASIC(Beginners All-Purpose Symbolit Instruction Code)通用语言代码。 二、Visual Basic 6.0的特点 可视化的编程方法：程序的用户界面通过鼠标操作绘制，所见即所得，简化了应用程序的开发工作量，在可视化环境下创作前端界面也就如同摆放积木。 面向对象编程：面向对象编程是建立在类的根底上的，其通过类的封装而使源程序更加便于维护。 丰富的数据访问 ：既可访问SQL Ser

7、ver等大型数据库中的数据，也能访问Visual FoxPro、Access等个人数据库中的数据，以及Excel等电子表格。 集成化的开发环境 ：通过ActiveX技术，可以将其它应用程序的功能集成为一体，实现特定的功能。 Internet的直接访问：可以动态地创立和编辑页面，在应用程序内部直接访问Internet。 三、Visual Basic 6.0的学习要求 本课程期终成线学案报告书成绩汇总+上机程序成线评定汇总+期中上机考试、理论考试+期末上机考试、理论考试。 学案报告书：每周一份，每星期五上交，由导师评定等级，获8次以上优秀者，汇总成绩得总分值。 上机程序评定 ：课堂上通过电子教室上

8、交作业，课后一天内通过电子邮箱上交，获8次以上优秀者，上机程序成线评定汇总得总分值。 四、启动VB 6.0的3种方法 在开始菜单中选择程序Microsoft Visual Basic6.0 中文版Microsoft Visual Basic6.0 中文版选项。 在桌面上建立快捷方式，双击该图标。 五、VB 6.0的集成开发环境 启动后，屏幕显示集成开发环境界面P3: 三个工作栏：标题栏、菜单栏、工具栏 双击已建立的VB应用程序图标。六个根本窗口： 主窗口Main 窗体窗口Form 工具箱窗口Tool Box 工程窗口Project 属性窗口Properties窗体布局窗口Form Layout

9、 六、VB6.0的窗口的操作初步 1、窗体窗口窗体是建立VB应用程序的主体局部。 2、利用工具箱在窗体设置控件。 3、利用属性窗口设置窗体和控件的属性。 4、工程窗口的工具按钮 注：带有控件的窗体将成为应用程序的界面，通过窗体上的控件可得到程序的运行结果。 例1完成以下操作： 1、 启动Visual Basic 60集成环境，说出集成环境各组成局部的名称。 2、 分别关闭工具栏、属性窗口、工程窗口(工程资源管理器窗口)、工具箱窗口、窗体布局窗口。 3、 分别翻开工具栏、属性窗口、工程窗口(工程资源管理器窗口)、工具箱窗口、窗体布局窗口。 4、 在窗体中设置一个命令按钮控件，名称为Command

10、1,显示文本为确定。 5、 在窗体中设置一个文本框控件，名称为Text1,显示文本为我的文本。 6、 在窗体中设置一个标签控件，名称为Label1,显示文本为我的标签。 7、 在窗体中设置一个图形框控件，名称为Picture1,显示图形为“D:VBIMG2312.jpg。 8、把此窗体以“form1”为名保存到“D:1”文件夹，把此工程以“工程1”为名保存到“D:1”文件夹。 9、退出Visual Basic 60集成环境。 七、创立VB应用程序的根本步骤 1、设计应用程序界面：界面由窗体和控件组成，控件放在窗体上。 2、设置对象属性：在属性窗口设置对象(窗体和控件)的属性。 3、编写程序代码

11、：在代码编辑器窗口中进行。代码由语句、常数和声明局部组成。 4、调试运行程序： 5、保存工程：把窗体文件和工程文件保存在磁盘上。窗体文件的扩展名为*.frm，工程文件的扩展名为*.vbp。 例2编程上机：设计一个开学致词窗体，由一个文本框控件和两个命令按钮组成。运行程序时，假设单击显示按钮，那么文本框显示：满怀豪情投入新的学习生活!；假设单击结束按钮，那么退出程序运行。 第一步： 创立新窗体 在新窗体Form1上创立3个控件： 命令按扭Command1、 命令按扭Command2、 文本框Text1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption开学致词命令按键C

12、ommand1Caption显示命令按键Command2Caption结束文本框Text1text无第三步：补充完成代码编写 Private Sub Command1_Click() Text1.text=“满怀豪情投入新的学习生活! End Sub Private Sub Command2_Click() end End Sub 第四步：调试运行程 第五步：保存工程 把此窗体以“form2”为名保存到“D:1”文件夹，把此工程以“工程2”为名保存到“D:1”文件夹。 八、第一章小结 本章主要内容： VB6的特点、安装和启动过程 帮助系统的使用方法； VB6的集成开发环境 VB6应用程序的开发

13、步骤 本章学习要求： 熟悉VB6的集成开发环境 熟练掌握菜单栏、工具栏、工程资源管理器、属性窗口等的使用方法。 熟练创立简单的VB的应用程序。 第二章 Visual Basic程序设计根底 【教学目的】 通过教学，使学生熟悉Visual Basic程序设计的根本方法，掌握窗体和常用控件(如文本框、命令按钮、标签、图形框等)的属性、方法和事件过程的使用，并能应用于Visual Basic程序设计。 【教材分析】 1、教学重点：掌握窗体和常用控件(如文本框、命令按钮、标签、图形框等)的属性、方法和事件过程的使用。2、教学难点：对象、属性、方法和事件过程等概念的理解。 【教学时间】三课时一节在多媒体

14、阶梯教室，二节在第七机房 【学习过程】 一、复习：创立VB应用程序的根本步骤 1、设计应用程序界面：界面由窗体和控件组成，控件放在窗体上。 2、设置对象属性：在属性窗口设置对象(窗体和控件)的属性。 3、编写程序代码：在代码编辑器窗口中进行。代码由语句、常数和声明局部组成。 4、调试运行程序： 5、保存工程：把窗体文件和工程文件保存在磁盘上。窗体文件的扩展名为*.frm，工程文件的扩展名为*.vbp。 二、对象、属性、方法和事件过程的概念 1、对象：Visual Basic把窗体和控件等叫作对象。对象是程序设计的核心。 对象举例：窗体、文本框、命令按钮、标签、图形框等 2、对象的属性： (1)

15、定义：对象的特性和性能叫对象的属性。它反映了对象的外观和功能。如命令按钮的标题、文本框中文字的内容和字形、字体、颜色等。 (2)设置对象属性的方法： 1在属性窗口设置。2在程序代码中设置。 格式：对象名.属性=设置值 3、根本属性：窗体和控件的通用属性 1Name属性： 表示识别一个窗体或控件的名字。 Name属性必需英文字母或汉字开头，一般都是采用默认值：如窗体Form1、文本框Text1、命令按钮Command1、标签Label1、图形框Picture1。 2BackColor属性：设置背景颜色 3ForeColor属性：设置前景颜色 4Caption属性：设置对象的标题内容 例21设置一

16、个标题为“Caption属性例题的窗体，在窗体中设置一个命令按钮，其背景色为黄色，前景色为红色，且每次单击按钮，显示内容在“确定和“输入之间变换。完成后把此窗体以“form3”为名保存到“D:自己学号姓名3”文件夹，把此工程以“工程3”为名保存到“D: 自己学号姓名3”文件夹。 第一步： 创立新窗体Form1，在新窗体上创立一个命令按扭Command1 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1CaptionCaption属性例题ForeColor红色BackColor黄色命令按钮Command1 Caption确定第三步：补充完成代码编写 Private Sub Comma

17、nd1_Click() If Command1. Caption=确定Then Command1. Caption=输入 Else Command1. Caption=确定Endif End Sub 5Visible属性: 表示一个控件是否可见。值为true:可以看见；值为false: 隐藏不可见。 6Font属性:设置字体、字形、字号、字体样式等。 7Enabled属性：表示一个控件是否可对用户的事件作出反响，即该控件可不可用。 Enabled属性值为true 可以作出反响，值为false那么不可以作出反响。 以上属性不宜抽象讲解，应该用实例说明 4、方法：指对象可以进行的操作。VB常用的方

18、法有Print、Cls、Move、Setfocus、Show等 1Print方法：在指定在窗体、图片框或打印机上输出表达式的值。格式与QB相同。 2Move方法：移动窗体或控件，并改变其大小。 3Cls方法：去除运行时窗体、图片框显示的内容。 5、事件：在对象上发生的事情，如单击、双击等 1Click事件：鼠标单击窗体或控件时触发此事件 2DblClick事件：鼠标双击窗体或控件时时，将触发此事件 3Load事件：把窗体装入内存。 三、应用举例： 例22设置一个标题为“字体设置的窗体，窗体的背景色为黄色，在窗体中设置二个命令按钮和一个文本框，每次单击“确定按钮，在文本框中显示红色三号隶书字体，

19、内容为“开学了，欢送你来校报到!，并使文本能自动换行显示，单击“结束按钮，那么退出程序运行。完成后把窗体和工程以默认名保存到“D:自己学号姓名4”文件夹(说明：能使文本能自动换行显示的属性为MultiLine，其值为True时文本可以显示在多行，其值为False时文本只能显示在一行。) 解第一步： 创立新窗体Form1，在新窗体上创立二个命令按扭Command1、 Command2和一个文本框Text1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption字体设置BackColor黄色命令按钮Command1Caption确定命令按钮Command2Caption结束文

20、本框Text1 Text 空白Font三号隶书MultiLine True第三步：补充完成代码编写 Private Sub Command1_Click() Text1.ForeColor =vbred Text1.Text = 开学了，欢送你来校报到! End Sub Private Sub Command2_Click() End End Sub 例23设计一个名为“图片窗体界面，该窗体包含3个命令按钮和一个图片框。开始运行时，图形框被隐藏；单击“显示按钮，图形框显示“D：VBIMG6722.JPG图片；单击“去除按钮，图形框变空白，假设单击“结束按钮，程序结束运行。完成后把窗体和工程以默

21、认名保存到“D:自己学号姓名5”文件夹。 解第一步： 创立新窗体Form1，在新窗体上创立三个命令按扭Command1、 Command2 、Command3和一个图片框Picture1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption图片命令按钮Command1Caption显示命令按钮Command2Caption去除命令按钮Command3Caption结束图片框Picture1 Picture Visible False第三步：补充完成代码编写 Private Sub Command1_Click()Picture1.Visible = TrueEnd Su

22、b Private Sub Command2_Click()Picture1.Visible = FalseEnd Sub Private Sub Command3_Click()EndEnd Sub例24设计一个名为“图片的显示与隐藏窗体界面，该窗体包含3个命令按钮和一个图片框。开始运行时，图形框被隐藏，单击“显示按钮，图形框及所装的“D：VBIMG1123.JPG显示出来，且“显示按钮显示灰色，单击“隐藏按钮，图形框再次被隐藏，且“ “隐藏按钮显示灰色，“显示按钮激活，假设单击“结束按钮，程序结束运行。完成后把窗体和工程以默认名保存到“D:自己学号姓名6”文件夹。 解第一步： 创立新窗体F

23、orm1，在新窗体上创立三个命令按扭Command1、 Command2和一个图片框Picture1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption图片的显示与隐藏命令按钮Command1Caption显示命令按钮Command2Caption隐藏命令按钮Command3Caption结束图片框Picture1 Picture Visible False第三步：补充完成代码编写 Private Sub Command1_Click() Picture1.Visible = True Command2.Enabled = True Command1.Enabled

24、= False End Sub Private Sub Command2_Click() Picture1.Visible = False Command1.Enabled = True Command2.Enabled = False End Sub Private Sub Command3_Click() End End Sub 【教学目的】通过教学，使学生进一步熟练窗体和常用控件的属性，并在编程中加以应用。【教材分析】1、教学重点：窗体和常用控件的属性在编程中加以应用。2、教学难点：如何提高学生解决实际问题的能力。【教学时间】三课时一节在多媒体阶梯教室，二节在第七机房【学习过程】一、复习

25、：1、选择题： 1要把一个命令按钮设置为无效，应设置( )属性的值。 AVisible BEnabled CDefault DCancel 2要把一个图形框设置为不可见，应设置( )属性的值。 AVisible BEnabled CDefault DCancel2、上节例24设计一个名为“图片的显示与隐藏窗体界面，该窗体包含3个命令按钮和一个图片框。开始运行时，图形框被隐藏，单击“显示按钮，图形框及所装的“D：VBIMG1123.JPG显示出来，且“显示按钮显示灰色，单击“隐藏按钮，图形框再次被隐藏，且“ “隐藏按钮显示灰色，“显示按钮激活，假设单击“结束按钮，程序结束运行。完成后把窗体和工程

26、以默认名保存到“D:自己学号姓名6”文件夹。解第一步： 创立新窗体Form1，在新窗体上创立三个命令按扭Command1、 Command2和一个图片框Picture1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption图片的显示与隐藏命令按钮Command1Caption显示命令按钮Command2Caption隐藏命令按钮Command3Caption结束图片框Picture1Picture VisibleFalse第三步：补充完成代码编写Private Sub Command1_Click()Picture1.Visible = TrueCommand2.Enabl

27、ed = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Picture1.Visible = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd Sub二、介绍窗体和控件的几个属性、方法：1、文本框的属性和事件：P22241PasswordChar属性：密码替换符。2MaxLength属性：设置文本框内文本的最大长度。3SelText属性：文本框内补选定的文本。4SetFocus事

28、件：使文本框获得焦点。2、窗体的事件：P191Hide事件：使窗体隐藏。2Show事件：使窗体显示出来。3、Msgbox()函数P57功能：在对话框中显示提示信息，等待用户单击后返回。格式1：Msgbox“提示信息，按钮数，“标题格式2：字符串变量Msgbox“提示信息，按钮数，“标题例31在名为“复制文本的窗体中设置2个文本框和2个命令按钮，我们在第一个文本框中输入一段文字显示蓝色三号楷体字体，当单击“复制命令按钮时，刚刚输入的文字在第二个文本框中全部复制出来显示红色三号楷体字体，当单击“结束命令按钮时，结束程序运行。解第一步： 创立新窗体Form1，在新窗体上创立二个命令按扭Command

29、1、 Command2，创立二个文本框Text1和Text1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption复制文本命令按钮Command1Caption复制命令按钮Command2Caption结束文本框Text1Text空白ForeColor蓝色Font三号楷体MultiLineTrue文本框Text1Text空白ForeColor红色Font三号楷体MultiLineTrue第三步：补充完成代码编写Private Sub Command1_Click()End SubPrivate Sub Command2_Click()EndEnd Sub例32在名为“复制文

30、本的窗体中设置2个文本框和2个命令按钮，我们在第一个文本框中输入一段文字显示蓝色三号楷体字体，当单击“复制命令按钮时，刚刚输入的文字前6个字在第二个文本框中复制出来显示红色三号楷体字体，当单击“结束命令按钮时，结束程序运行。解把代码增加一句Text2的MaxLength属性设置为6，其余与例31相同。思考：如何把例31的工程复制过来，加以修改Private Sub Command1_Click()Text2. MaxLength6End SubPrivate Sub Command2_Click()EndEnd Sub例33在名为“复制文本的窗体中设置2个文本框和2个命令按钮，我们在第一个文本

31、框中输入一段文字显示蓝色三号楷体字体，然后选中其中的一段文字，当单击“复制命令按钮时，刚刚选中的文字在第二个文本框中复制出来显示红色三号楷体字体，当单击“结束命令按钮时，结束程序运行。解把Text2文本框设置为SelText属性，其余与例31相同。把代码修改如下：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()EndEnd Sub例34分别创立名为“登录窗口和“系统窗口的2个窗体，登录窗口有1个文本框，一个标签，2个命令按钮，程序运行时，在文本框中输入用户名称和密码(密码的长度为7位，用*号代表)，假设密码正确密码预

32、设为abcd789，单击“确定按钮后，翻开一个“系统窗口窗体；假设密码错误，那么去除密码，利用Msgbox函数提示重新输入密码。假设单击“取消按钮，那么去除密码，单击“结束命令按钮时，结束程序运行。程序运行界面如以下图所示。解第一步： 创立新窗体Form1，在此窗体上创立三个命令按扭Command1、 Command2，Command3，创立一个标签Label1和一个文本框Text1。创立新窗体Form2，在此窗体上创立一个标签Label2。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption录入窗口命令按钮Command1Caption确定黄色背景命令按钮Command2

33、Caption取消黄色背景命令按钮Command3Caption退出黄色背景标签Label1Caption请输入密码三号隶书文本框Text1Text空白PasswordChar*窗体Form2Caption系统界面绿色背景标签Label2Caption绍兴市职教中心校园管理系统欢送你黄色背景、红色前景第三步：补充完成代码编写Private Sub Command1_Click()If Text1.Text = abcd789 Then Else MsgBox 密码输入出错，请重新输入密码!, 0, 密码校验 Text1.Text = End IfEnd SubPrivate Sub Comma

34、nd2_Click() Text1.Text = End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = End Sub作业完成学案报告三第三章 Visual Basic语言根底 【教学目的】 通过教学，使学生了解Visual Basic语言中的数据类型、常量、变量、数组、函数、运算符与表达式的概念，理解输入输出函数MsgBox()和InputBox()函数的功能，并能在编程中加以应用。 【教材分析】 1、教学重点：Visual Basic语言中的数据类型、常量、变量、数组、函数、运算符与

35、表达式的概念，并在编程中加以应用。 2、教学难点：Visual Basic语言中的数据类型、常量、变量、数组、函数、运算符与表达式与QB语言有很大的不同，应提醒学生注意。 【教学时间】三课时一节在多媒体阶梯教室，二节在第七机房 【学习过程】 引入：解如下问题：输入一个圆半径，求它的周长和面积。 分析说明：回忆QB中的程序 INPUT “R=；R L=2*3.1416*R S=3.1416*R*R PRINT “L；L，“S；S END 在Visual Basic中，对每个变量必须先定义，后使用。 如果要把结果显示在文本框对象中，还必须把数字转变为字符。 一、理论知识：Visual Basic语

36、言中的数据类型、常量、变量、函数 1、数据类型 类型名称关键字P4647字节型Byte整数Integer 长整型Long单精度实数Single 双精度型Double字符串String 2、变量的定义 格式：Dim 变量名As 类型名P5051 练习：说出以下变量定义语句的意义 1DimAAsInteger 2DimXANAMEAsString 3DimS 4DimBAsString *20 3、字符串与数值转换函数：P5961 1VALX：把字符串X的值转换为数值型。 如VAL“123123 VAL“4.5 2STR$(X):把数值X转换成字符串 如STR$(123)“123 STR$(5.8

37、)“ 3、输入输出函数P5759 1Msgbox()函数P57 功能：在对话框中显示提示信息，等待用户单击后返回。 格式1：Msgbox“提示信息，按钮数，“标题 格式2：字符串变量Msgbox“提示信息，按钮数，“标题 2InputBox()函数 功能：显示一个带提示信息的输入对话框，接收用户输入的字符串。 格式：字符串变量InputBox()“提示信息，“标题，“缺省值 4、数学函数：P59-60 1Int(x)函数 功能：得到不大于X的最大整数。 如Int(3.9)3Int(5.1)-6 2Fix(X)函数 功能：取X的整数局部，直接去掉小数 如Fix(3.9)3Fix(5.1)-5 3

38、Sqr(N)函数，N=0 功能：得到N的平方根。 如Sqr(9)3Sqr(10) 4Rnd(N) 函数功能：产生随机数 如Rnd 产生01之间的一个随机数 Int10050+1*Rnd(9)+50 产生一个50100之间的随机整数 Int10000+1*Rnd(9)+0 产生一个01000之间的随机整数 IntYX+1*Rnd(9)+X 产生一个XY之间的随机整数 思考：如何产生3898之间的一个随机整数 说明：如果要使产生的随机数每次不同，应先运行Randomize语句 例41输入一个圆半径，求它的周长和面积。 解第一步：创立新窗体Form1，在此窗体上创立二个命令按扭Command1、 C

39、ommand2，创立三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1 Caption半径标签Label2 Caption周长标签Label3 Caption面积文本框Text1 Text空白文本框Text2 Text空白文本框Text3 Text空白第三步：补充完成代码编写 Private Sub Command

40、1_Click() Dim R As Single Dim P As Single Dim A As Single R = Val(Text1.Text) P = 2 * 3.14159 * R A = 3.14159 * R * R Text2.Text = Str$(P) Text3.Text = Str$(A) End Sub Private Sub Command2_Click() End End Sub 例42输入任意一个整数，输出这个数的平方值、立方值和平方根值。 解第一步：创立新窗体Form1，在此窗体上创立二个命令按扭Command1、 Command2，创立四个标签Label

41、1、Label2、Label3、Label4和四个文本框Text1、Text2、Text3、Text4。定义四个变量X,A、B、C分别代表平方值、立方值和平方根值。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1 Caption输入标签Label2 Caption平方标签Label3 Caption立方标签Label4 Caption平方根文本框Text1 Text空白文本框Text2 Text空白文本框Text3 Text空白文本框Text4 Text

42、空白第三步：补充完成代码编写 Private Sub Command1_Click() Dim X Dim A Dim B Dim C XVAL A = X*X B = X*X*X C = SqrX = Str$(A) Text3.Text = Str$(B) Text4.Text = Str$(C) End Sub Private Sub Command2_Click() End End Sub 例43用InputBox()函数输入一个人的身高H厘米和体重W公斤，如果HW的值大于等于110，那么打印“你太瘦了！；如果HW的值小于等于110，那么打印“你太胖了！；如果HW的值在100110之间

43、110，那么打印“你的身材真好！。 解第一步：创立新窗体Form1。定义四个变量H身高，字符串型、W体重，字符串型,Ha身高，数值型、Wa体重，数值型、CCha wa，数值型 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption根据身高和体重判断胖瘦第三步：补充完成代码编写 Private Sub Form_Click() Dim h Dim w Dim ha Dim wa Dim c h = InputBox(请输入身高(厘米, 输入身高, 0) w = InputBox(请输入体重(公斤, 输入体重, 0) Print 身高为; h; 厘米 Print 体重为; w;

44、 公斤 ha = Val(x) wa = Val(y) c = ha - wa If c = 110 Then Print 你太瘦了！ If c 100 And c = 110 Then Text3.Text = 你太瘦了！ If c 100 And c 110 Then Text3.Text = 你的身材真好！ End Sub Private Sub Command2_Click() End End Sub 第四章 Visual Basic程序设计根底1 【教学目的】 通过教学，使学生了解Visual Basic程序设计的根底知识，如VB程序的构成过程和调用、VB的赋值语句、条件语句等，并能

45、在编程中熟练应用。 【教材分析】 1、教学重点：VB程序的构成过程和调用、VB的赋值语句、条件语句等，并在编程中熟练应用。 2、教学难点：过程和调用是一种与QB语言不同的概念，应提醒学生注意。 【教学时间】三课时一节在多媒体阶梯教室，二节在第七机房 【学习过程】 导入：我们已经上机完成了14个练习题，那个同学能能归纳出VB的程序代码的结构吗？ 一、VB的程序代码的结构翻开一个例题的代码分析 1、VB程序中代码由假设干个过程构成事件过程、通用过程。 2、过程的定义格式： Private Sub 过程名(参数) 语句1 语句n End Sub 注：过程名一般由对象名和事件名两局部组成，如Comma

46、nd1_Click() Private表示这个过程是非通用的 二、VB的赋值语句 格式：Let 变量表达式 (Let 可省略不写)例 Dim a As Integer a=100*20 Text1.text=str(a) 三、VB的条件语句三种 1、If Then格式一：If 条件Then语句格式二：If 条件Then 语句块 End If2、If Then Else格式一：If 条件Then语句1Else语句2格式二：If 条件Then .Else.End If例分析以下程序的功能：If Text1.Text = abcd789 Then Form1.Hide Form2.Show Else

47、 MsgBox 密码输入出错，请重新输入密码!, 0, 密码校验 Text1.SetFocus Text1.Text = End If 3、Select Case 语句用于对某一表达式的值进行多种处理格式如下：Select Case 表达式Case 值1：.Case 值2：.Case Else.End Select例分析以下程序的功能： Select Case Text1.Text Case 1 Text2.Text = 星期一 Case 2 Text2.Text = 星期二 Case 3 Text2.Text = 星期三 Case 4 Text2.Text = 星期四 Case 5 Text

48、2.Text = 星期五 Case 6 Text2.Text = 星期六 Case 7 Text2.Text = 星期天 Case Else Text2.Text = 非法数值，无法转换! End Select 例5-1在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入17的数字时，点击“转换命令按钮，在文本框2中就会转换成与数字相对应的星期序列，如输入的数字不是17，那么显示“非法数值，无法转换!，点击“结束命令按钮，那么程序结束运行。 解第一步：创立新窗体Form1，在此窗体上创立二个命令按扭Command1、 Command2，创立二个标签Label1、Label2和

49、二个文本框Text1、Text2。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption转换星期序列命令按钮Command1Caption转换命令按钮Command2Caption结束标签Label1 Caption输入数字17标签Label2 Caption转换结果文本框Text1 Text空白文本框Text2 Text空白第三步：补充完成代码编写 Private Sub Command1_Click() Select Case Text1.Text Case 1 Text2.Text = 星期一 Case 2 Text2.Text = 星期二 Case 3 Text2.

50、Text = 星期三 Case 4 Text2.Text = 星期四 Case 5 Text2.Text = 星期五 Case 6 Text2.Text = 星期六 Case 7 Text2.Text = 星期天 Case Else Text2.Text = 非法数值，无法转换! End Select End Sub Private Sub Command2_Click() End End Sub 例5-2在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入010的数字时，点击“转换命令按钮，在文本框2中就会转换成与数字相对应的大写数字序列，如输入的数字不是010，那么显示“

51、数值超出东范围，无法转换!，点击“结束命令按钮，那么程序结束运行。 解第一步：创立新窗体Form1，在此窗体上创立二个命令按扭Command1、 Command2，创立二个标签Label1、Label2和二个文本框Text1、Text2。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption转换大写数字命令按钮Command1Caption转换命令按钮Command2Caption结束标签Label1 Caption输入数字010标签Label2 Caption转换结果文本框Text1 Text空白文本框Text2 Text空白第三步：补充完成代码编写 Private Su

52、b Command1_Click() Select Case Text1.Text Case 0 Text2.Text = 零 Case 1 Text2.Text = 壹 Case 2 Text2.Text = 贰 Case 3 Text2.Text = 叁 Case 4 Text2.Text = 肆 Case 5 Text2.Text = 伍 Case 6 Text2.Text = 陆 Case 7 Text2.Text = 柒 Case 8 Text2.Text = 捌 Case 9 Text2.Text = 玖 Case 10 Text2.Text = 拾 Case Else Text2

53、.Text = 数值超出东范围，无法转换! End Select End Sub Private Sub Command2_Click() End End Sub 例5-3在火车站托运行李，需要根据行李的重量按不同标准收费。假设重量不超过50KG，那么每公斤收运费0.3元，假设重量超过50KG，那么期中的50公斤仍按每公斤0.3元收费，超出50公斤的局部按每公斤0.6元收费。请你编制一个收费程序，行李的重量W公斤用InputBox()函数输入，行李托运费在窗体上显示出来。 分析高行李的重量为W公斤，行李托运费的金额为P元，那么 0.3*W0W50 P 0.3*50+0.6*W50W50 解第一

54、步：创立新窗体Form1， 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption计算行李托运费第三步：补充完成代码编写 Private Sub Form_Click() Dim p, w w = InputBox(请输入行李的重量W公斤：, 输入数据, 0) If w = 50 Then p = 0.3 * w Else p = 0.3 * 50 + 0.6 * (w - 50) End If Print 行李的重量为; w; 公斤 Print 应付的行李托运费为; p; 元 Print End Sub 例5-4在火车站托运行李，需要根据行李的重量按不同标准收费。假设重量

55、不超过50KG，那么每公斤收运费0.3元，假设重量超过50KG，那么期中的50公斤仍按每公斤0.3元收费，超出50公斤的局部按每公斤0.6元收费。请你编制一个收费程序，行李的重量W公斤用一个文本框，行李托运费在另一个文本框中显示出来。 解第一步：创立新窗体Form1，在此窗体上创立三个命令按扭Command1、 Command2、 Command3，创立二个标签Label1、Label2和二个文本框Text1、Text2。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption计算行李托运费命令按钮Command1Caption计算命令按钮Command2Caption重新输

56、入命令按钮Command3Caption结束标签Label1 Caption输入行李的重量W公斤：标签Label2 Caption应付的行李托运费元：文本框Text1 Text空白文本框Text2 Text空白第三步：补充完成代码编写 Private Sub Command1_Click() Dim p, w, a w = Val(Text1.Text) If w = 50 Then p = 0.3 * w Else p = 0.3 * 50 + 0.6 * (w - 50) End If Text2.Text = Str(p) End Sub Private Sub Command2_Cli

57、ck() Text1.SetFocus Text1.Text = Text2.Text = End Sub Private Sub Command3_Click() End End Sub 例5-5 设计一个应用程序，由用户从键盘输入两个数，然后求这两个数的和，并将结果显示出来。用户界面如以下图： 解第一步：创立新窗体Form1，在此窗体上创立三个命令按扭Command1、 Command2、 Command3，和五个文本框Text1、Text2、Text3、Text4、Text5。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption加法计算器命令按钮Command1Ca

58、ption去除数据命令按钮Command2Caption运算命令按钮Command3Caption退出文本框Text1 Text？文本框Text2 Text文本框Text3 Text？文本框Text4 Text文本框Text5 Text？第三步：补充完成代码编写 Private Sub Command1_Click() Text1.SetFocus Text1.Text = Text3.Text = Text5.Text = End Sub Private Sub Command2_Click() xt) + Val(Text3.Text) End Sub Private Sub Comman

59、d3_Click() End End Sub 例5-6 修改例5-5，使其能做加、减、乘、除的运算 解第一步：创立新窗体Form1，在此窗体上创立三个命令按扭Command1、 Command2、 Command3，和五个文本框Text1、Text2、Text3、Text4、Text5。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption四那么运算计算器命令按钮Command1Caption去除数据命令按钮Command2Caption运算命令按钮Command3Caption退出文本框Text1 Text？文本框Text2 Text运算符文本框Text3 Text？文本

60、框Text4 Text文本框Text5 Text？第三步：补充完成代码编写 Private Sub Command1_Click() Text1.Text = Text2.Text = Text3.Text = Text5.Text = End Sub Private Sub Command2_Click() Select Case Text2.Text Case + Text5.Text = Str(Val(Text1.Text) + Val(Text3.Text) Case - Text5.Text = Str(Val(Text1.Text) - Val(Text3.Text) Case