VB程序设计课程教案2

1、VB程序设计课程教案第一章 Visual Basic概述 【教学目的】 1、通过教学，使学生明确Visual Basic编程基础课程教学内容和要求，掌握学习本课程的方法。 2、通过教学，使学生掌握VB的基本特点，了解可视化编程、事件驱动等概念。 3、通过教学，使学生掌握VB的启动方法和退出方法，初步了解和使用VB 60的集成开发环境编制、运行程序。【教材分析】 1、教学重点：VB的基本特点、VB的启动方法和退出方法、VB 60的集成开发环境构成。2、教学难点：初步接触VB编程，及QB有很大差别。 【教学时间】三课时（一节教室，二节机房） 【学习过程】 一、关于Visual Basic Visu

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

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

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

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

6、打开工具栏、属性窗口、工程窗口(工程资源管理器窗口)、工具箱窗口、窗体布局窗口。 4、 在窗体中设置一个命令按钮控件，名称为Command1,显示文本为¡°确定¡±。 5、 在窗体中设置一个文本框控件，名称为Text1,显示文本为¡°我的文本¡±。 6、 在窗体中设置一个标签控件，名称为Label1,显示文本为¡°我的标签¡±。 7、 在窗体中设置一个图形框控件，名称为Picture1,显示图形为“D:VBIMG2312.jpg”。 8、把此窗体以“form1”为名保存到“D

7、:1”文件夹，把此工程以“工程1”为名保存到“D:1”文件夹。 9、退出Visual Basic 60集成环境。 七、创建VB应用程序的基本步骤 1、设计应用程序界面：界面由窗体和控件组成，控件放在窗体上。 2、设置对象属性：在属性窗口设置对象(窗体和控件)的属性。 3、编写程序代码：在代码编辑器窗口中进行。代码由语句、常数和声明部分组成。 4、调试运行程序： 5、保存工程：把窗体文件和工程文件保存在磁盘上。窗体文件的扩展名为*.frm，工程文件的扩展名为*.vbp。 例2编程上机：设计一个开学致词窗体，由一个文本框控件和两个命令按钮组成。运行程序时，若单击¡°显示

8、1;±按钮，则文本框显示：满怀豪情投入新的学习生活；若单击结束按钮，则退出程序运行。 第一步： 创建新窗体 在新窗体Form1上创建3个控件： 命令按扭Command1、 命令按扭Command2、 文本框Text1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption开学致词命令按键Command1Caption显示命令按键Command2Caption结束文本框Text1text无第三步：补充完成代码编写 Private Sub Command1_Click() Text1.text=“满怀豪情投入新的学习生活!”  End Sub Privat

9、e Sub Command2_Click()  end End Sub 第四步：调试运行程 第五步：保存工程 把此窗体以“form2”为名保存到“D:1”文件夹，把此工程以“工程2”为名保存到“D:1”文件夹。 八、第一章小结 本章主要内容： VB6的特点、安装和启动过程 帮助系统的使用方法； VB6的集成开发环境 VB6应用程序的开发步骤 本章学习要求： 熟悉VB6的集成开发环境 熟练掌握菜单栏、工具栏、工程资源管理器、属性窗口等的使用方法。 熟练创建简单的VB的应用程序。 第二章 Visual Basic程序设计基础 (窗体和常用控件属性)【教学目的】 通过教学，使学生熟悉Vis

10、ual Basic程序设计的基本方法，掌握窗体和常用控件(如文本框、命令按钮、标签、图形框等)的属性、方法和事件过程的使用，并能应用于Visual Basic程序设计。 【教材分析】 1、教学重点：掌握窗体和常用控件(如文本框、命令按钮、标签、图形框等)的属性、方法和事件过程的使用。2、教学难点：对象、属性、方法和事件过程等概念的理解。 【教学时间】三课时（一节教室，二节机房） 【学习过程】 一、复习：创建VB应用程序的基本步骤 1、设计应用程序界面：界面由窗体和控件组成，控件放在窗体上。 2、设置对象属性：在属性窗口设置对象(窗体和控件)的属性。 3、编写程序代码：在代码编辑器窗口中进行。代

11、码由语句、常数和声明部分组成。 4、调试运行程序： 5、保存工程：把窗体文件和工程文件保存在磁盘上。窗体文件的扩展名为*.frm，工程文件的扩展名为*.vbp。 二、对象、属性、方法和事件过程的概念 1、对象：Visual Basic把窗体和控件等叫作对象。对象是程序设计的核心。 对象举例：窗体、文本框、命令按钮、标签、图形框等 2、对象的属性： (1)定义：对象的特性和性能叫对象的属性。它反映了对象的外观和功能。如命令按钮的标题、文本框中文字的内容和字形、字体、颜色等。 (2)设置对象属性的方法： （1）在属性窗口设置。（2）在程序代码中设置。 格式：对象名.属性=设置值 3、基本属性：（窗

12、体和控件的通用属性） （1）Name属性： 表示识别一个窗体或控件的名字。 Name属性必需英文字母或汉字开头，一般都是采用默认值：如窗体Form1、文本框Text1、命令按钮Command1、标签Label1、图形框Picture1。 （2）BackColor属性：设置背景颜色 （3）ForeColor属性：设置前景颜色 （4）Caption属性：设置对象的标题内容 例21设置一个标题为“Caption属性例题”的窗体，在窗体中设置一个命令按钮，其背景色为黄色，前景色为红色，且每次单击按钮，显示内容在“确定”和“输入”之间变换。完成后把此窗体以“form3”为名保存到“D:自己学号姓名3”文

13、件夹，把此工程以“工程3”为名保存到“D: 自己学号姓名3”文件夹。 第一步： 创建新窗体Form1，在新窗体上创建一个命令按扭Command1 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1CaptionCaption属性例题ForeColor红色BackColor黄色命令按钮Command1 Caption确定第三步：补充完成代码编写 Private Sub Command1_Click() If Command1. Caption=”确定”Then Command1. Caption=”输入” Else Command1. Caption=”确定”Endif End Sub

14、 （5）Visible属性: 表示一个控件是否可见。值为true:可以看见；值为false: 隐藏不可见。 （6）Font属性:设置字体、字形、字号、字体样式等。 （7）Enabled属性：表示一个控件是否可对用户的事件作出反应，即该控件可不可用。 Enabled属性值为true 可以作出反应，值为false则不可以作出反应。 （以上属性不宜抽象讲解，应该用实例说明） 4、方法：指对象可以进行的操作。VB常用的方法有Print、Cls、Move、Setfocus、Show等 （1）Print方法：在指定在窗体、图片框或打印机上输出表达式的值。格式及QB相同。 （2）Move方法：移动窗体或控件

15、，并改变其大小。 （3）Cls方法：清除运行时窗体、图片框显示的内容。 5、事件：在对象上发生的事情，如单击、双击等 （1）Click事件：鼠标单击窗体或控件时触发此事件 （2）DblClick事件：鼠标双击窗体或控件时时，将触发此事件 （3）Load事件：把窗体装入内存。 三、应用举例： 例22设置一个标题为“字体设置”的窗体，窗体的背景色为黄色，在窗体中设置二个命令按钮和一个文本框，每次单击“确定”按钮，在文本框中显示红色三号隶书字体，内容为“开学了，欢迎你来校报到!”，并使文本能自动换行显示，单击“结束”按钮，则退出程序运行。完成后把窗体和工程以默认名保存到“D:自己学号姓名4”文件夹(

16、说明：能使文本能自动换行显示的属性为MultiLine，其值为True时文本可以显示在多行，其值为False时文本只能显示在一行。) 解第一步： 创建新窗体Form1，在新窗体上创建二个命令按扭Command1、 Command2和一个文本框Text1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption字体设置BackColor黄色命令按钮Command1Caption确定命令按钮Command2Caption结束文本框Text1 Text 空白Font三号隶书MultiLine True第三步：补充完成代码编写 Private Sub Command1_Click(

17、) Text1.ForeColor =vbred Text1.Text = "开学了，欢迎你来校报到!" End Sub Private Sub Command2_Click() End End Sub 例23设计一个名为“图片”窗体界面，该窗体包含3个命令按钮和一个图片框。开始运行时，图形框被隐藏；单击“显示”按钮，图形框显示“D：VBIMG6722.JPG”图片；单击“清除”按钮，图形框变空白，若单击“结束”按钮，程序结束运行。完成后把窗体和工程以默认名保存到“D:自己学号姓名5”文件夹。 解第一步： 创建新窗体Form1，在新窗体上创建三个命令按扭Command1、

18、Command2 、Command3和一个图片框Picture1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption图片命令按钮Command1Caption显示命令按钮Command2Caption清除命令按钮Command3Caption结束图片框Picture1 Picture D：VBIMG6722.JPGVisible False第三步：补充完成代码编写 Private Sub Command1_Click()Picture1.Visible = TrueEnd SubPrivate Sub Command2_Click()Picture1.Visible

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

20、片框Picture1。 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption图片的显示及隐藏命令按钮Command1Caption显示命令按钮Command2Caption隐藏命令按钮Command3Caption结束图片框Picture1 Picture D：VBIMG1123.JPGVisible False第三步：补充完成代码编写 Private Sub Command1_Click() Picture1.Visible = True Command2.Enabled = True Command1.Enabled = False End Sub Private S

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

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

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

24、ommand2.Enabled = TrueCommand1.Enabled = FalseEnd SubPrivate Sub Command2_Click()Picture1.Visible = FalseCommand1.Enabled = TrueCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()EndEnd Sub二、介绍窗体和控件的几个属性、方法：1、文本框的属性和事件：（P2224）（1）PasswordChar属性：密码替换符。（2）MaxLength属性：设置文本框内文本的最大长度。（3）SelText属性：

25、文本框内补选定的文本。（4）SetFocus事件：使文本框获得焦点。2、窗体的事件：（P19）（1）Hide事件：使窗体隐藏。（2）Show事件：使窗体显示出来。3、Msgbox()函数（P57）功能：在对话框中显示提示信息，等待用户单击后返回。格式1：Msgbox“提示信息”，按钮数，“标题”格式2：字符串变量Msgbox（“提示信息”，按钮数，“标题”）例31在名为“复制文本”的窗体中设置2个文本框和2个命令按钮，我们在第一个文本框中输入一段文字（显示蓝色三号楷体字体），当单击“复制”命令按钮时，刚才输入的文字在第二个文本框中全部复制出来（显示红色三号楷体字体），当单击“结束”命令按钮时，

26、结束程序运行。解第一步： 创建新窗体Form1，在新窗体上创建二个命令按扭Command1、 Command2，创建二个文本框Text1和Text1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption复制文本命令按钮Command1Caption复制命令按钮Command2Caption结束文本框Text1Text空白ForeColor蓝色Font三号楷体MultiLineTrue文本框Text1Text空白ForeColor红色Font三号楷体MultiLineTrue第三步：补充完成代码编写Private Sub Command1_Click()Text2.Text

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

28、ext = Text1.TextEnd SubPrivate Sub Command2_Click()EndEnd Sub例33在名为“复制文本”的窗体中设置2个文本框和2个命令按钮，我们在第一个文本框中输入一段文字（显示蓝色三号楷体字体），然后选中其中的一段文字，当单击“复制”命令按钮时，刚才选中的文字在第二个文本框中复制出来（显示红色三号楷体字体），当单击“结束”命令按钮时，结束程序运行。解把Text2文本框设置为SelText属性，其余及例31相同。把代码修改如下：Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubP

29、rivate Sub Command2_Click()EndEnd Sub例34分别创建名为“登录窗口”和“系统窗口”的2个窗体，登录窗口有1个文本框，一个标签，2个命令按钮，程序运行时，在文本框中输入用户名称和密码(密码的长度为7位，用*号代表)，若密码正确（密码预设为abcd789），单击“确定”按钮后，打开一个“系统窗口”窗体；若密码错误，则清除密码，利用Msgbox函数提示重新输入密码。若单击“取消”按钮，则清除密码，单击“结束”命令按钮时，结束程序运行。程序运行界面如下图所示。解第一步： 创建新窗体Form1，在此窗体上创建三个命令按扭Command1、 Command2，Comma

30、nd3，创建一个标签Label1和一个文本框Text1。创建新窗体Form2，在此窗体上创建一个标签Label2。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption录入窗口命令按钮Command1Caption确定（黄色背景）命令按钮Command2Caption取消（黄色背景）命令按钮Command3Caption退出（黄色背景）标签Label1Caption请输入密码（三号隶书）文本框Text1Text空白PasswordChar*窗体Form2Caption系统界面（绿色背景）标签Label2Caption绍兴市职教中心校园管理系统欢迎你（黄色背景、红色前景）第三步

31、：补充完成代码编写Private Sub Command1_Click()If Text1.Text = "abcd789" Then Form1.Hide Form2.Show Else MsgBox "密码输入出错，请重新输入密码!", 0, "密码校验" Text1.SetFocus Text1.Text = "" End IfEnd SubPrivate Sub Command2_Click() Text1.SetFocus Text1.Text = ""End SubPrivate S

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

33、sual Basic语言中的数据类型、常量、变量、数组、函数、运算符及表达式及QB语言有很大的不同，应提醒学生注意。 【教学时间】三课时（一节在多媒体阶梯教室，二节在第七机房） 【学习过程】 引入：解如下问题：输入一个圆半径，求它的周长和面积。 分析说明：回忆QB中的程序 INPUT “R=”；R L=2*3.1416*R S=3.1416*R*R PRINT “L”；L，“S”；S END l         在Visual Basic中，对每个变量必须先定义，后使用。 l   &#

34、160;     如果要把结果显示在文本框对象中，还必须把数字转变为字符。 一、理论知识：Visual Basic语言中的数据类型、常量、变量、函数 1、数据类型 类型名称关键字（P4647）字节型 Byte整数 Integer 长整型Long单精度实数 Single 双精度型 Double字符串 String 2、变量的定义 格式：Dim 变量名As 类型名（P5051） 练习：说出下列变量定义语句的意义 （1）DimAAsInteger （2）DimXANAMEAsString （3）DimS （4）

35、DimBAsString *20 3、字符串及数值转换函数：（P5961） （1）VAL（X）：把字符串X的值转换为数值型。 如VAL（“123”）123 VAL（“4.5AB”）4.5 （2）STR$(X):把数值X转换成字符串 如STR$(123)“123” STR$(5.8)“5.8” 3、输入输出函数（P5759） （1）Msgbox()函数（P57） 功能：在对话框中显示提示信息，等待用户单击后返回。 格式1：Msgbox“提示信息”，按钮数，“标题” 格式2：字符串变量Msgbox（“提示信息”，按钮数，“标题”） （2）InputBox()函数 功能：显示一个带提示信息的输入对话

36、框，接收用户输入的字符串。 格式：字符串变量InputBox()（“提示信息”，“标题”，“缺省值”） 4、数学函数：（P59-60） （1）Int(x)函数 功能：得到不大于X的最大整数。 如Int(3.9)3Int(5.1)-6 （2）Fix(X)函数 功能：取X的整数部分，直接去掉小数 如Fix(3.9)3Fix(5.1)-5 （3）Sqr(N)函数，N>=0 功能：得到N的平方根。 如Sqr(9)3Sqr(10)3.162277 （4）Rnd(N) 函数功能：产生随机数 如Rnd 产生01之间的一个随机数 Int（10050+1）*Rnd(9)+50 产生一个50100之间的随机

37、整数 Int（10000+1）*Rnd(9)+0 产生一个01000之间的随机整数 Int（YX+1）*Rnd(9)+X 产生一个XY之间的随机整数 思考：如何产生3898之间的一个随机整数   说明：如果要使产生的随机数每次不同，应先运行Randomize语句 例41输入一个圆半径，求它的周长和面积。 解第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量R、P、A分别代表半径、周长和面积。 第二步：设置对象的属性 对象类型对象名

38、属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1 Caption半径标签Label2 Caption周长标签Label3 Caption面积文本框Text1 Text空白文本框Text2 Text空白文本框Text3 Text空白第三步：补充完成代码编写 Private Sub Command1_Click() Dim R As Single Dim P As Single Dim A As Single R = Val(Text1.Text) P = 2 * 3.14159 * R A =

39、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，创建四个标签Label1、Label2、Label3、Label4和四个文本框Text1、Text2、Text3、Text4。定义四个变量X,A、B、C分别代表平方值、立方值和平方根值。 第二步：设置对象的属性 对象类型对象名

40、属性设置窗体Form1Caption求圆周长和面积命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1 Caption输入标签Label2 Caption平方标签Label3 Caption立方标签Label4 Caption平方根文本框Text1 Text空白文本框Text2 Text空白文本框Text3 Text空白文本框Text4 Text空白第三步：补充完成代码编写 Private Sub Command1_Click() Dim X Dim A Dim B Dim C XVAL（Text1.Text） A = X*X B = X*X*X

41、 C = Sqr（X） Text2.Text = 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之间110，则打印“你的身材真好！”。 解第一步：创建新窗体Form1。定义四个变量H（身高，字符串型）、W（体重，字符串型）,Ha（身高，数值型）、

42、Wa（体重，数值型）、C（Cha wa，数值型） 第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption根据身高和体重判断胖瘦第三步：补充完成代码编写 Private Sub Form_Click() Dim h Dim w Dim ha Dim wa Dim c h = InputBox("请输入身高(厘米）", "输入身高", "0") w = InputBox("请输入体重(公斤）", "输入体重", "0") Print "身高为&quo

43、t; h; "厘米" Print "体重为" w; "公斤" ha = Val(x) wa = Val(y) c = ha - wa If c >= 110 Then Print "你太瘦了！" If c <= 100 Then Print "你太胖了！" If c > 100 And c < 110 Then Print "你的身材真好了！" End Sub 例44创建新窗体名为“根据身高和体重判断胖瘦”，在此窗体上创建二个命令按扭“计算”和“结束”

44、，创建三标签“输入身高（厘米）”、“输入体重（公斤）”、“判断胖瘦程度”和三个文本框Text1、Text2、Text3。判断法则为：设身高为H（厘米），体重为W（公斤），如果HW的值大于等于110，则打印“你太瘦了！”；如果HW的值小于等于110，则打印“你太胖了！”；如果HW的值在100110之间110，则打印“你的身材真好！”。 解第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，创建三个标签Label1、Label2、Label3和三个文本框Text1、Text2、Text3。定义三个变量H、W、C 第二步：设置对象的属性 对象类型对象名属性设

45、置窗体Form1Caption根据身高和体重判断胖瘦命令按钮Command1Caption计算命令按钮Command2Caption退出标签Label1 Caption输入身高（厘米）标签Label2 Caption输入体重（公斤）标签Label3 Caption判断胖瘦程度文本框Text1 Text空白文本框Text2 Text空白文本框Text3 Text空白第三步：补充完成代码编写 Private Sub Command1_Click() Dim h Dim w Dim c h = Val(Text1.Text) w = Val(Text2.Text) c = h - w If c &g

46、t;= 110 Then Text3.Text = "你太瘦了！" If c <= 100 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的赋值语句、

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

48、事件名两部分组成，如Command1_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"

49、Then Form1.Hide Form2.Show Else 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 = "

50、;星期一" Case "2" Text2.Text = "星期二" Case "3" Text2.Text = "星期三" Case "4" Text2.Text = "星期四" Case "5" Text2.Text = "星期五" Case "6" Text2.Text = "星期六" Case "7" Text2.Text = "星期天" C

51、ase Else Text2.Text = "非法数值，无法转换!" End Select 例5-1在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入17的数字时，点击“转换”命令按钮，在文本框2中就会转换成及数字相对应的星期序列，如输入的数字不是17，则显示“非法数值，无法转换!”，点击“结束”命令按钮，则程序结束运行。 解第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，创建二个标签Label1、Label2和二个文本框Text1、Text2。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Ca

52、ption转换星期序列命令按钮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

53、" Text2.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

54、 Sub Command2_Click() End End Sub 例5-2在窗体中设置2个标签、2个命令按钮、2个文本框，当我们在文本框1中输入010的数字时，点击“转换”命令按钮，在文本框2中就会转换成及数字相对应的大写数字序列，如输入的数字不是010，则显示“数值超出东范围，无法转换!”，点击“结束”命令按钮，则程序结束运行。 解第一步：创建新窗体Form1，在此窗体上创建二个命令按扭Command1、 Command2，创建二个标签Label1、Label2和二个文本框Text1、Text2。第二步：设置对象的属性 对象类型对象名属性设置窗体Form1Caption转换大写数字命令按钮Com