1、VB 面向对象的程序设计校本课程设计一、校本课程：VB 面向对象的程序设计教学材料：创编课程类型：讲授型、实验探究型、活动交流型。授课时间：一学年。授课对象：高一年级中程序设计的爱好者。二、校本课程的具体内容：知识与技能：认识 VB 对象的属性与方法，理解事件、事件过程和事件驱动的概念，了解 VB 的可视化编程。过程与方法：熟悉 VB 界面，制作简单的程序界面，能够通过属性窗口更改对象属性，认识事件和事件过程的概念并制作出一个小程序。情感态度与价值观：通过实践演示并由学生自己动手操作编辑简单实用小程序，引发学生学习计算机程序的兴趣，从而形成积极主动学习使用计算机解决问题的习惯。校本课程目录：第
2、一课：我的第一个 VB 程序第二课 编写程序代码第三课：认识各国国旗第四课：做个简单的文本编辑器第五课：“你猜对了吗？”-分支结构的程序设计第六课：让飞机飞起来-循环结构的程序设计第七课：编译软件三、校本课程实施方法和形式：实施方法：教案讲授，学生讨论分析综合实践。实施形式：教师设计、组织主持，学生设计、集体实践四、校本课程教学评价：部分学生评价：VB 程序设计是一个比较抽象的概念，不易理解，但在老师的举一反三的例证和深入浅出的讲解之下，能最大层度的激发我们的兴趣，调动我们学习参与的积极性。在整个课程中，我们不但能了解了 VB 的一些最基本的功能，也能简单的编辑一些实用的小程序。我想，这也为我
3、们以后进一步的学习打下良好的基础。教师教学自我评价：本校本课程是 VB 面向对象的程序部分，根据我校学生的自身特点，在教材自身的知识基础上加入了一些常规对话框的制作，如自然数相加自然数的制作，文本框的设计等等，充实了教材的内容，满足了学生的求知欲和好奇心，学生基本能全程参与，积极动手。经过一学年的学习，学生基本能了解的程序设计的对象的概念，设计并制作一些简单的实用的对象，如仿制操作系统中的文本框，制作文件的保存对话框等等，基本达到了开设这门课的目的。第一课：我的第一个 VB 程序操作步骤如下：一、新建一个工程步骤 1：启动 VB6。单击【开始】【程序】【Microsoft Visual Bas
4、ic 6.0】【Visual Basic 6.0】。步骤 2：在新建工程对话框中选择【标准 EXE】。Visual Basic 把设计程序比作兴建工程。因此，启动 VB6 时首先要新建一个工程或打开一个工程文件。创建一个新的工程时，Visual Basic 将自动创建一个空窗体，并命名为“Form1”。窗体是程序运行的窗口。二、在窗体中新建对象控件和对象 在 VB 的窗口中有一个工具箱(一般在左边)，工具箱中有很多“工具”，称为控件。单击工具箱中的控件，然后在窗体中拖放鼠标，就可以在窗体中绘制具体的控件，这些具体的控件就称为对象。步骤 3：单击工具箱中的 Label（标签）控件，然后在窗体中拖
5、放鼠标，窗体中就生成了一个新的对象，对象名为 Label1。三、修改对象的属性步骤 4：选中窗体中的一个对象，属性窗口就会显示出这个对象的所有属性。属性 属性就是对象的特征。每个对象都有很多属性。属性的设定有两种方法：方法一：在属性窗口中修改属性值；操作方法方法二：通过控制代码来修改属性值，它的格式为：对象名.属性名=属性值。比如，将对象 Label1 的 Caption 属性修改为“我的第一个 VB 程序”：Label1.Caption=”我的第一个 VB 程序”Name(名称)属性Name 属性用于识别窗体、控件等对象。当在窗体中添加一个对象时，其 Name属性的默认值为该对象类别名加上一
6、个数值。例如：刚才添加的 Label 控件的Name 属性值为 Label1，如果在窗体中再加一个 Label，则被自动命名为Label2，依次类推。【试一试】在窗体中添加一个对象 Label2，然后选定改对象，按键把它删除。Caption 属性窗体的 Caption 属性可以指定标题栏中的文字内容，对于控件则指定标题或显示的文字。当选定了一个控件后，属性窗口就会显示该控件的属性，如果没有选中控件，那么属性窗口中将显示窗体的属性。步骤 5：选中 Label1 控件，然后在属性窗口中选择 Caption 属性，把“Label1”改为“我的第一个 VB 程序！”(如图 3-1.6)；选中窗体 Fo
7、rm1，然后选择 Caption 属性，将它改为“VB 欢迎您”四、运行程序步骤 6：点击工具栏上的运行按钮，运行程序。这就是我们制作的第一个 VB 程序。五、保存程序步骤 7：单击【文件】【保存工程】保存程序。这时出现“文件另存为”对话框。步骤 8：保存窗体。选择文件夹、输入文件名，然后单击【保存】。此时保存的是 Form(窗体)文档，系统默认的扩展名为“.frm”。接下来出现“工程另存为”对话框。步骤 9：保存工程。选择文件夹、输入文件名，然后单击【保存】。此时保存的是工程文档，系统默认的扩展名为“.vbp”。VB 与前面所用的软件不一样，VB 程序同时打开了两个保存对话框，一个是用来保存
8、 Form 文档，一个是用来保存工程文档。同一个工程里可以有多个 Form 文档。【试一试】根据自己的喜好，利用 Label 控件做一个 VB 程序。六、美化程序界面修改控件的下列属性，可以使程序界面美观起来。BackColor、ForeColor 属性BackColor 用来设定控件的背景颜色，ForeColor 则用来设定控件中的文字或图形的颜色。通过这两个属性可以改变背景和文字的颜色。通过调色板把字体的颜色改为红色。Font 属性Font 属性包括了字体、字形、大小等特征，与 WORD 的字体属性对话框类似。AutoSize 属性当文字变大时，经常会发现 Label1 的宽度不够。如果将
9、 AutoSize 属性设置为Ture，那么控件就会随文字大小的变化而自动变化，始终能够显示文字内容。修改 Label 控件的 Font、AutoSize、BackColor、ForeColor 等属性后，再一次运行程序，感觉就好看些了。至此，第一个 VB 程序就基本做好了。阅读材料一：Label 控件及常用属性表Label 标签控件，用于显示文本。下表是它的常用属性：属性 说明AutoSize 控制对象自动调整大小以适应所包含的内容BackColor 设置背景颜色BackStyle 设置边框类型Caption 设置标题Enabled 设置对象是否可用Font 设置或返回字体名称ForeCol
10、or 设置前景颜色Height 设置对象的高Left 设置对象到窗体左边界的距离Name 对象名称Top 设置对象到窗体顶部边界的距离Width 设置对象的宽度阅读材料二：在 VB 工作窗口中，有不少悬浮式的窗口，如果把这些悬浮窗口关闭了，可以利用“视图”菜单将它们重新打开。第二课 编写程序代码上一节课，我们通过修改对象的属性做出了一个简单的程序。不过，要设计出复杂一点的程序，还得学习程序设计的语言。一、事件过程事件 所谓事件，就是在程序的运行过程中发生的事情。比如鼠标单击、双击、移动，键盘按键等都是事件。当我们单击某个按钮对象时，就会激发该按钮对象的鼠标单击事件。Visual Basic 应
11、用程序采用事件驱动的方式来运行。也就是说，只有在事件发生时，程序才会运行，没有事情发生，程序就处于停滞状态。在程序运行过程中发生的事件，有些是人为操作激发的，有些是系统激发的。事件过程 在程序的运行过程中，当发生某一事件时，相应的对象就会对该事件产生响应，去执行一段程序代码，这段程序代码就称为事件过程。VB 程序可以监测程序运行过程中所发生的事件。然后根据所发生的事件执行相应的事件过程。用鼠标双击窗体或窗体中的某个对象，会打开该对象的事件过程窗口（即程序代码窗口）常见的事件有：Click(单击鼠标)、DblClick(双击鼠标)、KeyPress(键盘按键)、Change(内容改变)下面来做一
12、个响应鼠标操作的程序。例一：单击或双击图中的第二行文字，那么第一、二行文字的内容就会改变。操作步骤如下：步骤一：新建一个工程。VB 会自动新建一个名为 Form1 的窗体。步骤二：在 From1 里新建一个 Label 对象，它默认的名称为 Label1。在属性窗口中把它的 Caption 属性改为“请单击这个地方！”，并修改文字的颜色与字号。步骤三：在 From1 里再新建一个 Label 对象，它默认的名称为 Label2。把它的Caption 属性改为“这是 Label1 内容改变前！”，修改文字的颜色与字号。现在我们就可以编写程序代码了。步骤四：双击 Label1 控件，系统弹出程序代
13、码窗口，在事件过程选项中选择“Click”事件，然后在事件过程里输入程序代码。事件过程有一个固定的格式：Private Sub 控件_事件()(我们可以在这中间写程序代码)End Sub步骤五：依次编写如下两个事件过程：对 Label1 对象的 DblClick（鼠标双击）事件编写程序代码：Label1.Caption = “这是双击鼠标左键！“对 Label1 对象的 Change（内容改变）事件编写程序代码：Label2.Caption=“Label1 的内容改变了！“这是完整的代码窗口内容：步骤 6：单击运行按钮，运行程序。步骤 7：点击“保存”，把程序保存下来。例二：给第一课中的程序做
14、一个按钮。操作步骤：一、打开工程文档步骤 1：打开第一课中制作的程序 first.vbp。步骤 2：工程资源管理器中，双击“窗体”中 Form 的名称，打开第一课中制作的 Form。步骤 3：在窗体中添加一个按钮控件(CommandButton)，把按钮的 Caption 属性改为“结束”，字号改为“小四”。步骤 4：双击按钮控件，在代码窗口中输入“End”代码“End”是结束程序运行的意思。步骤 5：运行程序。单击结束按钮，程序结束运行。步骤 6：保存程序。【小技巧】如果事件过程中引用了不存在的对象，当程序运行时会显示错误信息。练习1、做一个 VB 程序。要求：(1)程序界面。(2)单击按钮
15、时，程序运行画面。(3)点击“退出“按钮时退出程序。阅读材料一：几个常见的事件：事件名称 功能Change 当改变文本框的 Text 属性值时产生 Change 事件Click 当用户在某个对象上单击鼠标左键时产生的事件DblClick 当用户在某个对象上双击鼠标左键时产生的事件KeyPress 当用户在键盘上敲击某个键时产生的事件Resize 窗口尺寸发生变化时自动触发 Resize 事件Timer 在计时器中用 Interval 属性所规定的时间段到达时产生的事件阅读材料二：CommandButton 控件及常用属性CommandButton 命令按钮控件，选择按钮即可执行相应的操作。其常
16、用属性如下表：属性 说明BackColor 设置背景颜色Caption 设置标题Enabled 设置对象是否可用Font 设置或返回字体名称ForeColor 设置前景颜色Height 设置对象的高Left 设置对象到窗体左边界的距离Name 对象名称Top 设置对象到窗体顶部边界的距离Width 设置对象的宽度第三课：认识各国国旗这一课，我们要编写一个简单的程序，教人认识各国国旗。首先来学习 VB 中的几个重要属性：一、Left、Top 属性Left 属性值用来指定对象左边到窗体左边边缘的距离；而 Top 属性值指定控件上方到对象上方边缘的距离。二、Height、Width 属性Height
17、 属性值用来指定对象的高度，Width 属性值用来指定对象的宽度。这个两属性的值确定了一个对象的大小三、Picture 属性Picture 属性用于设置要显示的图片文件。Picture 属性设置的三种方法：方法一：在属性窗口中进行设置。点击 Picture 属性中的 ，在 “加载图片”对话框中选择要加载的图片文件，如图 3-3.3 所示。图 3-3.3 加载图片方法二：程序运行时通过 LoadPicture 来设置，所用的语句是：Picture=LoadPicture(“文件路径与名称“)如果 LoadPicture(“)中不指明文件的路径与名称，将消除窗体或控件中的图片。方法三：通过剪贴板进
18、行粘贴。先把需要使用的图片复制，然后粘贴到控件或窗体中。【试一试】给窗体 Form1 添加一个背景。例一：设计一个界面程序，当单击窗体左边的国家名时，右边就会显示这个国家的国旗。操作步骤：步骤 1：新建一个窗体，给窗体添加一个背景。步骤 2：在窗体中添加一个 PictureBox 控件，用于显示国旗。步骤 3：在窗体中添加七个 OptionButton 控件，形成一组单选按钮，用于选择国家。7 个 OptionButton 的名称分别为 Option1、Option2Option7。OptionButton(选项按钮)最常用的两个属性为：Caption 和 Value，其中Caption 是用
19、于显示选项的提示内容。Value 是用于设置选项按钮的状态，即选中(True)与没有选中(False)，而系统默认为 False。当单击某个 OptionButton 时，它的 Value 属性值变为 True，而其它OptionButton 的 Value 属性值变为 False。步骤 4：编写代码。对 7 个 OptionButton 控件的 Click 事件步骤 5：运行程序。步骤 6：保存程序。例二：设计一个图片浏览器。例一设计的小程序只能看到程序里固定的图片，本例设计的图片浏览器可以看到磁盘上的任意图片（Windows 可以识别的）。操作步骤如下：步骤 1：新建一个窗体；步骤 2：在
20、窗体上新建一个驱动器列表框(Drivelistbox)对象 Driver1；步骤 3：在窗体中新建一个目录列表框(Dirlistbox)对象 Dir1；步骤 4：在窗体中新建一个文件列表框(Filelistbox) 对象 File1；步骤 5：在窗体中新建一个图像框(Image) 对象 Image1；步骤 6：编写程序代码当程序运行时，我们可以通过三个列表框找到图片，然后双击图片文件名显示图像的 File1_DblClick 事件过程）。在 VB 的控件中除了 Form 拥有 Picture 属性外，PictureBox 和 Image 这两个控件也有 Picture 属性。Image 控件提
21、供了一个 Stretch（伸展）属性，可以限定图形显示在固定的区域中，即图片的大小会自动变成图像框的固定大小的大小，这样会使图片可以完整地显示出来，但缺点是会使图片产生变形。步骤 7：保存程序。练习：做一个简单的文件浏览器，要求：(1)在左边窗口中选择驱动器、目录、文件，在右边窗口中显示选定的文件内容。(2)在左边窗口选择了驱动器和目录后，在上方的地址栏处显示当前的文件地址。阅读材料：1、PictureBox、Image 控件及其常用属性：PictureBox 图片框控件，用于显示和编辑图形；Image 图像控件，用于显示图像。其常用属性如下表：属性 说明AutoSize 控制对象自动调整大小
22、以自适应所包含的内容(PictureBox)BackColor 设置背景颜色(PictureBox)BackStyle 设置边框类型Picture 设置欲显示的图形文件2、OptionButton 控件及其常用属性：OptionButton 选项按钮，用户在一组选项中只可选择其中一个。其常用属性如下表。属性 说明Caption 设置标题Font 设置或返回字体名称Picture 设置欲显示的图形文件Value 返回或设置控件的状态3、DriveListBox、DirListBox、FileListBox 控件及其常用属性：DriveListBox 驱动器列表框控件，用于显示驱动器盘符。DirL
23、istBox 目录列表框控件，用于显示目录或文件夹。FileListBox 文件列表框控件，用于显示当前目录下的文件。其常用属性如下表：属性 说明Hidden 设置文件列表框中是否含有 Hidden 文件(隐含文件)Patten 设置文件列表框中将要显示的文件类型ReadOnly 设置文件列表框中是否能被编辑System 设置文件列表框中是否含有 System 文件(系统文件)4、LoadPicture 函数将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。格式：LoadPicture(stringexpression)stringexpression
24、是必要的，为被载入的图形文件名。5、ChDir 语句ChDir 语句，改变当前的目录或文件夹。格式：ChDir pathpat 它指明哪个目录或文件夹将成为新的缺省目录或文件夹。path 可能会包含驱动器。如果没有指定驱动器，则 ChDir 在当前的驱动器上改变缺省目录或文件夹。3、ChDrive 语句ChDrive 语句，改变当前的驱动器。格式：ChDrive drivedrive 指定一个存在的驱动器。如果使用零长度的字符串(“)，则当前的驱动器将不会改变。如果 drive 参数中有多个字符，则 ChDrive 只会使用首字母。第四课：做个简单的文本编辑器大家都用过 Windows 中的“
25、记事本”程序，学了 VB 编程后有没有想过自己动手做一个文本编辑器呢？其实这并不难。下面我们就来做一个简单文本编辑器。操作步骤如下：步骤 1：新建一个窗体。步骤 2：在窗体中新建一个 TextBox 对象 Text1。在这里，TextBox 的作用是用于输入文本。TextBox 对象显示出来的文字对应的是它的 Text 属性值，而不是 Caption 属性值。将 TextBox 对象的 MultiLine 属性设置为 True， TextBox 对象就可以接收多行文本了。步骤 3：新建一个 Frame(框架)控件，把 Frame 的 Caption 属性改为“字型”。除了有一个 TextBox
26、 用来给用户输入文字外，还可以设计一些简单的文字修饰的选项给用户使用。这里利用复选框控件 CheckBox 设置文本的字型, 选项按钮控件 OptionButton 设置文本的字号与颜色。由于在一个窗体中所有的 OptionButton 按钮归为一组，选择时只能选择一个。为了能单独设置字号与颜色，需要增加 Frame(框架)对象来把字号与颜色分开。框架的作用是将对象分组。注意：使用 Frame 进行分组时，一定要先建 Frame，然后在 Frame 里添加其他的对象，这样 Frame 才会起作用.步骤 4：在字型 Frame 中新建三个 CheckBox 控件(如图 3-4.2 所示)，将它们
27、的名称分别改为：chkBold、chkItalic、chkUnderline，并将它们的 Caption 属性修改为：粗体、斜体、下划线。步骤 5：再建两个 Frame 架框，分别把 Frame 的 Caption 属性改为“字号”和“颜色”。在两个框架中分别建三个 OptionButton 控件，按图 3-4.1 所示修改其 Caption 属性。步骤 6：编写程序代码分别对有关对象的 Click 事件编写程序代码：修改字型修改字型的属性有： FontBold (粗体)、FontItalic (斜体)、FontUnderline (下划线)。例如将 Text1 控件的字型设置为黑体：Text
28、1.FontBold=True本例中我们使用 CheckBox 对象来改变字型，当选中复选框 chkBold 时，chkBold.value 的值为 True，否则为 False。代码应该这样写：Text1.FontBold=chkBold.valuechkBold 对象的 Click 事件过程如下：Private Sub chkBold_Click()Text1.FontBold=chkBold.valueEnd Sub修改字号修改字号的属性为 FontSize，例如将 Text1 控件的字号设置为 16：Text1.FontSize=16修改颜色字体的颜色属性为 ForeColor，例如将
29、 Text1 中的字变成红色，代码可以这样写：Text1.foreColor=vbRed其中 vbRed 表示红色。（依次类推：vbWhite 表示白色、vbBlack 表示黑色）程序运行时，就可以在 Text 框里输入文本。点击字体、字号、颜色就可以改变文本的各个属性。下面来给文本编辑器做菜单。步骤 7：单击【工具】【菜单编辑器】打开菜单编辑器步骤 8：在“标题”中填写菜单的选项名称。步骤 9：在“名称”中填写对应的事件名称。步骤 10：通过上、下、左、右键来调整菜单的位置。下一级的子菜单也可以通过这个编辑器来完成。图中的“文件”、“字型”、“字号”等顶头的文字表示一级菜单，而“退出”是“文
30、件”的子菜单；“粗体”、“斜体”、“下划线”是“字型”的子菜单。也就是说当我们输入完“文件”后，点【下一个】直接输入下一级子菜单的名称，然后点按向右的按钮，就可以把“退出”当作“文件”的子菜单了！步骤 11：单击【确定】完成菜单的编写。步骤 12：对菜单事件编程。在窗体上点击需要编程的菜单选项，就会弹出对应的菜单的事件代码窗口。然后在代码窗口里编写需要的语句。例如：菜单【文件】【退出】是退出程序，那么我们就可以在代码窗口里写上“End”语句：Private Sub exit_Click()EndEnd Sub如果在菜单项后面加上(&)就可以定义热键。例如：退出(&X)，在菜单上显示出来的就是：
31、退出(X)。程序运行时，我们可以按 Alt 键打开菜单，然后按对应的热键来进行菜单的操作。步骤 13：运行程序，利用菜单对文字进行修饰。步骤 14：保存程序。练习：模仿 Windows 的记事本程序，设计一个与记事本界面、功能相近的程序。阅读材料：1、 CheckBox 控件及其常用属性CheckBox 复选框控件，用户可以一次选择多个复选框项。其常用属性说明如下表：属性 说明Caption 设置标题Value 返回或设置控件的状态2、 Frame 控件及其常用属性Frame 框架控件，可以将其他控件放在其中并按类对控件分组。其常用属性说明如下表：属性 说明Caption 设置标题3、 Tex
32、tBox 控件及其常用属性TextBox 文本框控件，用于输入和显示文本。其常用属性说明如下表：属性 说明BorderStyle 设置对象的边框样式MultiLine 设置是否可以接受多行文本PasswordChar 设置一个值，决定是否在控件中显示用户键入字符或保留区字Text 设置控件中包含的文本ToolTipText 设置当鼠标在控件上暂停时显示的文本1. 文字的四个属性：FontBold(粗体)、FontItalic(斜体)、FontUnderline(下划线)、FontSize(字号)第五课：“你猜对了吗？”-分支结构的程序设计用 VB 编写的程序，按照程序运行的顺序可以分为三种基本
33、结构：顺序结构、分支结构、循环结构。顺序结构的程序，程序的运行的顺序是从前面到后面逐句执行的分支结构的程序，是根据条件的成立与否来决定程序执行的顺序，如果条件成立就会执行语句块 1，不会执行语句块 2，同样，如果条件不成立就会执行语句块 2，而不会执行语句块 1.分支结构又称为选择结构。循环结构的程序，是根据条件成立与否，来决定是否重复执行某一段程序，如果条件成立，则执行“语句块”，执行完“语句块”后，又重新检查条件是否还成立，若成立则再一次执行“语句块”，否则程序将转去执行循环结构后面的语句。一般情况下，程序都是按照顺序结构的方式运行的，除非遇上改变程序运行方向的语句。这一节课我们就来学习编
34、写分支结构的程序。例一：编写一个判断题程序，当单击“确定”按钮时显示你的选择是对还是错。操作步骤如下：步骤 1：新建一个工程。步骤 2：在 Form 中新建 2 个 Label 对象，用于显示题目。步骤 3：新建两个 OptionButton，用于显示选择题答案。步骤 4：新建一个 CommandButton 对象 Command1，用于提交答案。步骤 5：编写程序代码。当单击“确定”按钮时，需要判断你的选择是对还是错。其判断过程如下：在 VB 里，通常使用“TFTHEN”语句来实现一个程序的转向。简单的“TFTHEN”语句的格式如下：If ThenElseEnd if上述语句称为条件分支语句
35、，中括号括住的语句可以省略。“TFTHEN”语句的含义是：如果条件表达式成立，则执行，否则，执行。我们在“确定”按钮的 Click 事件中编写如下代码：Private Sub Command1_Click()If Option1.Value = True ThenMsgBox “答对了”,vbOkOnly,“选择结果”EndEnd IfIf Option2.Value = True ThenMsgBox “答错了”,vbOkOnly,“选择结果”End IfEnd Sub程序中用了两个 IFTHEN语句，也可以简化成一个：以上的事件过程也可以简化如下：Private Sub Command1_
36、Click()If Option1.Value = True ThenMsgBox “答对了”,vbOkOnly,“选择结果”EndElseMsgBox “答错了”,vbOkOnly,“选择结果”End IfEnd Sub一般情况下，一个 IF 的后面都要跟一个 END IF，但也有特殊的，例如：IF a=1 THEN b=2也就是说，如果 IF 后面只有一条语句，可以在 THEN 后直接写语句而不用换行，也不用写 END IF；但如果你需要换行，那么就必须要有一个 END IF。在上述事件过程中使用了 MsgBox 语句，MsgBox 的使用格式为：MsgBox prompt, button
37、s , title其中：Prompt 是必需的，表示对话框里要显示的提示内容。Buttons 是可选的，指定显示按钮的数目及形式；Title 也是可选的，在对话框标题栏中显示的标题内容。比如，执行代码：MsgBox “答对了”,vbOkOnly,“选择结果”屏幕将会显示例二：设计一个 “口算比赛”程序操作步骤：步骤 1：新建一个工程。步骤 2：在窗体中新建八个 Label，分别用于显示标题、题目、正误、成绩。步骤 3：新建一个 TextBox 对象 Text1，用于接收答案。步骤 4：新建一个 CommandButton 对象 Command1，用于提交答案。步骤 5：编写程序代码。1、随机生
38、成题目在窗体的 Load 事件中编写如下代码：Private Sub Form_Load()RandomizeLabel1.Caption = Int(Rnd * 99 + 1)Label3.Caption = Int(Rnd * 99 + 1)End Sub程序中用到了 RND 函数，RND 函数称为随机函数，它随机产生一个 01 之间的小数。因此，RND*99 相当于一个介于 099 之间的小数。RND 函数有一个特性，每次运行程序都会返回相同的数，为了避免这个现象的出现，需要在 RND 函数使用之前执行 Randomize 语句。INT（X）函数称为取整函数，它的作用就是对 X 取整。因
39、此表达式 Int(Rnd * 99 + 1)产生一个小于或等于 100 的自然数。2、接收学生输入的答案Text1 可以接收用户输入的数据，用它来接收学生输入的答案。3、判断答案的正误当学生输入答案并点击了确定按钮，程序就对学生输入的答案进行判断。因此对“确定”按钮的 Click 事件编写如下代码：If Val(Text1) = Val(Label1) + Val(Label3) ThenLabel5.Caption = “ElseLabel5.Caption = “End If由于输入到 TextBox 中的全部是字符，但要计算的结果却是数字，所以必须把数字字符转化成为数值数字。这样就需要用
40、到一个转换函数：Val( )函数，它的作用是将一个数字字符转换成为相等的数值。4、记录学生的成绩在程序的执行期间，可能有些中间结果需要保存起来，这时需要使用变量来临时存储这些结果。将运算结果临时存储到变量中可以使用赋值语句，其格式是：=比如：X=3+5，就是将 3+5 的运算结果保存到变量 X 中。要特别说明的是，这里的“=”号叫做赋值号，其含义是把右边表达式的值赋给左边的变量，与数学上的“=”号含义不同。变量的名称必须是以英文字母开头，可以使用字母和数字来作为变量的名称。当学生回答正确时，程序自动将学生的成绩加 10 分，回答错误就减 5 分。为此，我们就得使用一个变量 cj 来记录学生的成
41、绩。如果学生做对了，就把原来的成绩 cj 加上 10 分，然后再存储在变量 cj 中，用语句表示就是这样的：cj=cj+10如果做错了，则：cj=cj-5这样一来，源代码就变成：Private Sub Command1_Click()If Val(Text1) = Val(Label1) + Val(Label3) ThenLabel5.Caption = “cj = cj + 10ElseLabel5.Caption = “cj = cj - 5End IfLabel8.Caption = cjLabel1.Caption = Int(Rnd * 99 + 1)Label3.Caption
42、= Int(Rnd * 99 + 1)End Sub练习：1、 设计一个一位数乘一位数的口算练习程序。2、 设计一个人和计算机玩石头、剪刀、布的游戏程序。提示：利用 RND 函数来确定电脑出拳，然后用变量记录自己的出拳，最后比较两个出拳，得出胜负。阅读材料：1、变量声明在 VB 中，要使用变量，一般要利用 DIM 语句对变量进行声明。变量的声明写在程序的开始部分。其格式为：DIM 变量名称 (As 数据类型)将 a 声明为整数型变量。2、数据类型表数据类型 取值范围Byte 0-255Integer -32768-32767整型Long -2147483648-2147483647Single
43、 -3.402823E38-1.401298E45Double -1.79769313486231E308-4.94065645841247E308数值型实型Currency -922337203685477.5808-922337203685477.5807字符串 String 两个字符一个字节布尔型 Boolean True、False日期型 Date 100 年 1 月 1 日至 9999 年 12 月 31 日注：如果没有注明数据类型则被声明为 Variant 类型。第六课：让飞机飞起来-循环结构的程序设计这一节课，我们要设计一个飞机飞行的程序。设计的思路是，使飞机的显示位置不断地往前
44、移，产生一种飞行的效果。为了模拟飞机不断地往前移动的过程，需要使用一个新的语句:FoxNext，这就是一个循环结构语句。FORNEXT 语句FORNEXT 的语句格式为：FOR = TO STEP NEXT ForNext 语句运行的流程。例如，下面是一个求 1+2+3+99+100 的简单程序：Dim counter,nSumnSum=0For counter=1 to 100 Step 1nSum = nSum + counterNext counter程序运行的结果是，变量 nSum 的值变为 5050，变量 counter 的值变为 101.FOR 与 NEXT 是一对语句，必须成对出
45、现，循环变量用于控制循环体的循环，循环的次数由初值、终值与步长决定。整个循环的过程如下：1. 把初值赋给循环变量2. 判断循环变量是否超过终值，如果超过则执行第步，否则执行第步3. 执行循环体4. 循环变量加上步长再赋值给循环变量5. 重复执行第步6. 离开循环，继续执行循环语句后面的语句下面就利用 ForNext 语句来制作飞机飞行的程序，操作步骤如下：步骤 1：新建一个工程。步骤 2：在窗体上新建一个 Image 控件，用于显示飞机，名称为 Image1。步骤 3：在窗体上新建三个 CommandButton 控件，将它们的 Caption 属性分别改为“复位”、“起飞”、“退出”。步骤
46、4：编写程序代码。对“起飞”按钮 Command2 的 Click 事件编写如下代码：Private Sub Command2_Click()For i = 1 To 3300For j = 1 To 50000NextnLeft = nLeft + 2nTop = nTop + 1Image1.Left = nLeftImage1.Top = nTopNextEnd Sub在上面的程序中，使用了如下语句：For j = 1 To 50000Next它的作用是控制飞机的飞行速度。将循环的终值减小，飞机就飞得快；增大，飞机就飞得慢。在循环语句中执行 Exit For 语句，可以退出循环，使程序跳
47、到 Next 之后的语句继续执行。练习编写一个循环结构的程序，使之能计算下面各算式：1+2+3+99+100= 1+3+6+9+297+300= 0+5+10+195+200= 提示：循环变量的初值、终值、步长都在程序运行时输入。第七课：编译软件一、 编译软件当我们把程序写好了，经过多次调试，程序已经没有什么问题了，这时就可以把程序编译成可执行文件（.exe）文件了。编译的步骤如下：步骤 1：打开已经写好的程序；步骤 2：单击【文件】【生成 FileName.exe】，VB 系统就会在程序所在的文件夹中生成一个以工程文件名作为文件名的 exe 程序。二、 生成安装程序为了使我们编写的程序能在别
48、的计算机上也能运行，还要生成一个安装程序，以便能将我们编写的程序安装到别的计算机上。生成安装程序的操作步骤如下：步骤 1：单击【开始】【程序】【Microsoft Visual Basic 5.0】【应用程序安装向导】。然后跟着提示操作。步骤 2：在图 3-7.1 中，输入应用程序所在的文件夹、应用程序的工程文件名称。选择“创建安装程序”选项，然后点击“下一步”。步骤 3：选择需要生成的安装程序的形式，可以选择以软件安装的形式出现，也可以选择生成一个安装的目录，作出了选择以后单击“下一步”。步骤 4：选择安装程序存储的文件夹，也可以直接在上面键入文件夹的路径与名称，如果没有这个文件夹，系统会自
49、动创建一个。然后点击“下一步”。步骤 5：系统会自动搜集出系统运行时需要使用的动态链接库文件，并一起打包到安装程序中，如果还有其它的程序需要附加，可以单击“添加”按钮，添加上来。步骤 6：单击“完成”，系统就开始生成安装程序。最后，系统在选定的文件夹中生成一个 Setup.exe 文件，并且把安装程序时所需要的一些文件也拷到该文件夹中。至此，安装程序就生成好了。将安装程序复制下来，拿到别的计算机上，只要运行 Setup.exe，就可以安装该程序了。练习：1.把你学习 VB 编写的程序都编译成 EXE 文件。2.设计一个计算乘法的程序，调试好后，将它编译成.exe 文件，并生成一个安装目录，最后将它安装到别的计算机上运行
