校本课程--VB入门

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