《中学校本课程--VB入门.doc》由会员分享，可在线阅读，更多相关《中学校本课程--VB入门.doc（37页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、中学校本课程-VB入门校本课程纲要校本课程纲要 一、校本课程：VB面对对象的轨范设计教学材料：创编课程类型：教学型、尝摸索讨型、勾当沟通型。授课时刻：一学年。授课对象：高一班级中轨范设计的欢快宠爱者。二、校本课程的具体内容：常识与手艺：生疏VB对象的属性与体例，理解事务、事务过程和事务驱动的概念，体会VB的可视化编程。过程与体例：生疏VB界面，建筑简洁的轨范界面，能够经由过程属性窗口更改对象属性，生疏事务和事务过程的概念并建筑出一个小轨范。激情立场与价值不美观：经由过程实践演示并由同学自己脱手操作编纂简洁适用小轨范，激发同学进修计较机轨范的乐趣，从而形成乐观自动进修使用计较机解决问题的习惯。校
2、本课程名目：第一课：我的第一个VB轨范其次课 编写轨范代码第三课：生疏列国国旗第四课：做个简洁的文本编纂器第五课：“你猜对了吗？”-分支结构的轨范设计第六课：让飞机飞起来-轮回结构的轨范设计第七课：编译软件三、校本课程实施体例和形式：实施体例：教案教学，同学谈判剖析综合实践。实施形式：老师设计、组织主持，同学设计、集体实践四、校本课程教学评价：部门同学评价：VB轨范设计是一个斗劲抽象的概念，不易理解，但在教员的触类旁通的例证和深切浅出的讲解之下，能最年夜层度的激发我们的乐趣，调动我们进修介入的乐观性。在整个课程中，我们不单能体会了VB的一些最根基的功能，也能简洁的编纂一些适用的小轨范。我想，这
3、也为我们往后进一步的进修打下精采的基本。老师教学自我评价：本校本课程是VB面对对象的轨范部门，依据我校同学的自身特点，在教材自身的常识基本上插手了一些常规对话框的建筑，如自然数相加自然数的建筑，文本框的设计等等，充实了教材的内容，知足了同学的求知欲和洽奇心，同学根基能全程介入，乐观脱手。经由一学年的进修，同学根基能体会的轨范设计的对象的概念，设计并建筑一些简洁的适用的对象，如仿制操作系统中的文本框，建筑文件的保留对话框等等，根基达到了开设这门课的目的。第一课：我的第一个VB轨范用VB来编轨范并不是一件难事，不信？请往下看。编写一个轨范，运行时显示如下界面：图3-1.1 简洁的VB轨范操作轨范如
4、下： 一、新建一个工程 轨范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的窗口中有一个工具箱(一般在左边)，工具箱中有良多“工具”，称为控件。单击工具箱中的控件，然后在
5、窗体中拖放鼠标，就可以在窗体中绘制具体的控件，这些具体的控件就称为对象。图3-1.4 VB工具箱轨范3：单击工具箱中的Label（标签）控件，然后在窗体中拖放鼠标，窗体中就生成了一个新的对象，对象名为Label1。如图3-1.5。三、改削对象的属性 轨范4：选中窗体中的一个对象，属性窗口就会显示出这个对象的全部属性，如图3-1.6所示。属性 属性就是对象的特征。每个对象都有良多属性。属性的设定有两种体例：体例一：在属性窗口中改削属性值；操作体例如图3-1.6所示。体例二：经由过程节制代码来改削属性值，它的名目为：对象名.属性名=属性值。好比，将对象Label1的Caption属性改削为“我的第
6、一个VB轨范”：Label1.Caption=”我的第一个VB轨范”Name(名称)属性 Name属性用于识别窗体、控件等对象。当在窗体中添加一个对象时，其Name属性的默认值为该对象类别名加上一个数值。例如：适才添加的Label控件的Name属性值为Label1，若是在窗体中再加一个Label，则被自动命名为Label2，依次类推。【试一试】在窗体中添加一个对象Label2，然后选定改对象，按键把它删除。Caption属性窗体的Caption属性可以指定问题栏中的文字内容，对于控件则指定问题或显示的文字。被选定了一个控件后，属性窗口就会显示该控件的属性，若是没有选中控件，那么属性窗口中将显示
7、窗体的属性。轨范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.1
8、1)。轨范9：保留工程。选择文件夹、输入文件名，然后单击【保留】。此时保留的是工程文档，系统默认的扩展名为“.vbp”。VB与前面所用的软件纷歧样，VB轨范同时打开了两个保留对话框，一个是用来保留Form文档，一个是用来保留工程文档(如图3-1.10所示)。统一个工程里可以有多个Form文档。【试一试】依据自己的欢快宠爱，操作Label控件做一个VB轨范。六、美化轨范界面 改削控件的下列属性，可以使轨范界面美不美观起来。BackColor、ForeColor属性 BackColor用来设定控件的布景颜色，ForeColor则用来设定控件中的文字或图形的颜色。经由过程这两个属性可以转变布景和文字
9、的颜色。如图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控件及常用属性表Labe
10、l标签控件，用于显示文本。下表是它的常用属性：属性声名AutoSize节制对象自动调整巨细以顺应所包含的内容BackColor设置布景颜色BackStyle设置边框类型Caption设置问题Enabled设置对象是否可用Font设置或返回字体名称ForeColor设置前景颜色Height设置对象的高Left设置对象到窗体左鸿沟的距离Name对象名称Top设置对象到窗体顶部鸿沟的距离Width设置对象的宽度阅读材料二： 在VB工作窗口中，有不少悬浮式的窗口，若是把这些悬浮窗口封锁了，可以操作“视图”菜单将它们从头打开，如图3-1.13 所示。图3-1.13 视图菜单其次课 编写轨范代码 上一节课
11、，我们经由过程改削对象的属性做出了一个简洁的轨范。不外，要设计出简单一点的轨范，还得进修轨范设计的说话。一、事务过程 事务 所谓事务，就是在轨范的运行过程中发生的工作。好比鼠标单击、双击、移动，键盘按键等都是事务。当我们单击某个按钮对象时，就会激发该按钮对象的鼠标单击事务。Visual Basic应用轨范接受事务驱动的体例来运行。也就是说，只有在事务发生时，轨范才会运行，没有工作发生，轨范就处于障碍状况。在轨范运行过程中发生的事务，有些是酬报操作激发的，有些是系统激发的。事务过程 在轨范的运行过程中，当发生某一事务时，响应的对象就会对该事务发生响应，去执行一段轨范代码，这段轨范代码就称为事务过
12、程。VB轨范可以监测轨范运行过程中所发生的事务。然后依据所发生的事务执行响应的事务过程。用鼠标双击窗体或窗体中的某个对象，会打开该对象的事务过程窗口（即轨范代码窗口），如图3-2.1所示。图3-2.1 轨范代码窗口常见的事务有：Click(单击鼠标)、DblClick(双击鼠标)、KeyPress(键盘按键)、Change(内容转变)下面来做一个响应鼠标操作的轨范。例一：如图3-2.2所示，单击或双击图中的其次行文字，那么第一、二行文字的内容就会转变。 图3-2.2 轨范界面操作轨范如下： 轨范一：新建一个工程。VB会自动新建一个名为Form1的窗体。轨范二：在From1里新建一个Label对
13、象，它默认的名称为Label1。在属性窗口中把它的Caption属性改为“请单击这个处所！”，并改削文字的颜色与字号。轨范三：在From1里再新建一个Label对象，它默认的名称为Label2。把它的Caption属性改为“这是Label1内容转变前！”，改削文字的颜色与字号。此刻我们就可以编写轨范代码了。轨范四：双击Label1控件，系统弹出轨范代码窗口，在事务过程选项中选择“Click”事务， 然后在事务过程里输入轨范代码，如图3-2.3所示。事务过程有一个固定的名目：Private Sub 控件_事务()(我们可以在这中心写轨范代码)End Sub轨范五：依次编写如下两个事务过程：对La
14、bel1对象的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-
15、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)单击按钮时，轨范运行画
16、面如图3-2.10右图所示。(3)点击退出按钮时退出轨范。图3-2.10 操练示例阅读材料一：几个常见的事务：事务名称功能Change当转变文本框的Text属性值时发生Change事务Click当用户在某个对象上单击鼠标左键时发生的事务DblClick当用户在某个对象上双击鼠标左键时发生的事务KeyPress当用户在键盘上敲击某个键时发生的事务Resize窗口尺寸发生转变时自动触发Resize事务Timer在计时器顶用Interval属性所划定的时刻段达到时发生的事务阅读材料二：CommandButton控件及常用属性CommandButton呼吁按钮控件，选择按钮即可执行响应的操作。其常用属
17、性如下表：属性声名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
18、属性Height属性值用来指定对象的高度，Width属性值用来指定对象的宽度。这个两属性的值确定了一个对象的巨细(如图3-3.2)。图3-3.2 Height、Width属性三、Picture属性Picture属性用于设置要显示的图片文件。Picture属性设置的三种体例：体例一：在属性窗口中进行设置。点击Picture属性中的，在 “加载图片”对话框中选摘要加载的图片文件，如图3-3.3所示。图3-3.3 加载图片体例二：轨范运行时经由过程LoadPicture来设置，所用的语句是：Picture=LoadPicture(文件路径与名称)若是LoadPicture()中不指明文件的路径与名称
19、，将消弭窗体或控件中的图片。体例三：经由过程剪贴板进行粘贴。先把需要使用的图片复制，然后粘贴到控件或窗体中。【试一试】给窗体Form1添加一个布景。如图3-3.4所示。图3-3.4 加了布景的窗体例一：设计一个界面如图3-3.5所示的轨范，当单击窗体左边的国家名时，右边就会显示这个国家的国旗。 操作轨范： 轨范1：新建一个窗体，给窗体添加一个布景，如图3-3.4所示。轨范2：在窗体中添加一个PictureBox控件，用于显示国旗。轨范3：在窗体中添加七个OptionButton控件，形成一组单选按钮，用于选择国家。7个OptionButton的名称分袂为Option1、Option2Optio
20、n7。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
21、图片扫瞄器例一设计的小轨范只能看到轨范里固定的图片，本例设计的图片扫瞄器可以看到磁盘上的肆意图片（Windows可以识此外）。操作轨范如下： 轨范1：新建一个窗体；轨范2：在窗体上新建一个驱动器列表框(Drivelistbox)对象Driver1；轨范3：在窗体中新建一个名目列表框(Dirlistbox)对象Dir1；轨范4：在窗体中新建一个文件列表框(Filelistbox) 对象File1；轨范5：在窗体中新建一个图像框(Image) 对象Image1；轨范6：编写轨范代码，如图3-3.8所示；图3-3.8 图片扫瞄器代码当轨范运行时，我们可以经由过程三个列表框找到图片，然后双击图片文件名
22、显示图像（请看图3-3.8中的File1_DblClick事务过程）。在VB的控件中除了Form拥有Picture属性外，PictureBox 和Image这两个控件也有Picture属性。Image控件供应了一个Stretch（伸展）属性，可以限制图形显示在固定的区域中，即图片的巨细会自动酿成图像框的固定巨细的巨细，这样会使图片可以完整地显示出来，但错误谬误是会使图片发生变形。轨范7：保留轨范。操练：做一个简洁的文件扫瞄器，要求：(1)在左边窗口中选择驱动器、名目、文件，在右边窗口中显示选定的文件内容。(2)在左边窗口选择了驱动器和名目后，在上方的地址栏处显示当前的文件地址。如图3-3.9：
23、图3-3.9阅读材料： 1、PictureBox、Image控件及其常用属性：PictureBox图片框控件，用于显示和编纂图形；Image图像控件，用于显示图像。其常用属性如下表：属性声名AutoSize节制对象自动调整巨细以自顺应所包含的内容(PictureBox)BackColor设置布景颜色(PictureBox)BackStyle设置边框类型Picture设置欲显示的图形文件2、OptionButton控件及其常用属性：OptionButton选项按钮，用户在一组选项中只可选择其中一个。其常用属性如下表。属性声名Caption设置问题Font设置或返回字体名称Picture设置欲显示
24、的图形文件Value返回或设置控件的状况3、DriveListBox、DirListBox、FileListBox控件及其常用属性：DriveListBox驱动器列表框控件，用于显示驱动器盘符。DirListBox名目列表框控件，用于显示名目或文件夹。FileListBox文件列表框控件，用于显示当前名目下的文件。其常用属性如下表：属性声名Hidden设置文件列表框中是否含有Hidden文件(隐含文件)Patten设置文件列表框中将要显示的文件类型ReadOnly设置文件列表框中是否能被编纂System设置文件列表框中是否含有System文件(系统文件)4、LoadPicture函数将图形载入
25、到窗体的Picture属性、PictureBox控件或Image控件。名目：LoadPicture(stringexpression)stringexpression是需要的，为被载入的图形文件名。5、ChDir语句ChDir语句，转变当前的名目或文件夹。名目：ChDir pathpat它指明哪个名目或文件夹将成为新的缺省名目或文件夹。path 可能会包含驱动器。若是没有指定驱动器，则 ChDir 在当前的驱动器上转变缺省名目或文件夹。3、ChDrive语句ChDrive语句，转变当前的驱动器。名目：ChDrive drivedrive指定一个存在的驱动器。若是使用零长度的字符串()，则当前的
26、驱动器将不会转变。若是drive参数中有多个字符，则ChDrive只会使用首字母。第四课：做个简洁的文本编纂器 巨匠都用过Windows中的“记事本”轨范，学了VB编程后有没有想过自己脱手做一个文本编纂器呢？其实这并不难。下面我们就来做一个如图3-4.1所示的简洁文本编纂器。图3-4.1 文本编纂器操作轨范如下： 轨范1：新建一个窗体。轨范2：在窗体中新建一个TextBox对象Text1。在这里，TextBox的浸染是用于输入文本。TextBox对象显示出来的文字对应的是它的Text属性值，而不是Caption属性值。将TextBox对象的MultiLine属性设置为True， TextBox
27、对象就可以领受多行文本了。轨范3：新建一个Frame(框架)控件，把Frame的Caption属性改为“字型”。除了有一个TextBox用来给用户输入文字外，还可以设计一些简洁的文字润色的选项给用户使用。这里操作复选框控件CheckBox设置文本的字型, 选项按钮控件OptionButton设置文本的字号与颜色。由于在一个窗体中全部的OptionButton按钮归为一组，选择时只能选择一个。为了能零丁设置字号与颜色，需要增加Frame(框架)对象来把字号与颜色分隔。框架的浸染是将对象分组。留意：使用Frame进行分组时，必定要先建Frame，然后在Frame里添加其他的对象，这样Frame才会
28、起浸染.轨范4：在字型Frame中新建三个CheckBox控件(如图3-4.2所示)，将它们的名称分袂改为：chkBold、chkItalic、chkUnderline，并将它们的Caption属性改削为：粗体、斜体、下划线。轨范5：再建两个Frame架框，分袂把Frame的Caption属性改为“字号”和“颜色”。在两个框架平分袂建三个OptionButton控件，按图3-4.1所示改削其Caption属性。轨范6：编写轨范代码分袂对有关对象的Click事务编写轨范代码：改削字型 改削字型的属性有： FontBold (粗体)、FontItalic (斜体)、FontUnderline (下
29、划线)。例如将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改削颜色 字体的颜色属性
30、为ForeColor，例如将Text1中的字酿成红色，代码可以这样写：Text1.foreColor=vbRed其中vbRed示意红色。（依次类推：vbWhite示意白色、vbBlack示意黑色）轨范运行时，就可以在Text框里输入文本。点击字体、字号、颜色就可以转变文本的各个属性。下面来给文本编纂器做菜单。轨范7：单击【工具】【菜单编纂器】打开菜单编纂器(如图3-4.3)。图3-4.3 菜单编纂器轨范8：在“问题”中填写菜单的选项名称。轨范9：在“名称”中填写对应的事务名称。轨范10：经由过程上、下、左、右键来调整菜单的位置。下一级的子菜单也可以经由过程这个编纂器来完成。如图3-4.3：图中
31、的“文件”、“字型”、“字号”等顶头的文字示意一级菜单，而“退出”是“文件”的子菜单；“粗体”、“斜体”、“下划线”是“字型”的子菜单。也就是说当我们输入完“文件”后，点【下一个】直接输入下一级子菜单的名称，然后点按向右的按钮，就可以把“退出”算作“文件”的子菜单了！轨范11：单击【确定】完成菜单的编写。轨范12：对菜单事务编程。在窗体上点击需要编程的菜单选项，就会弹出对应的菜单的事务代码窗口。然后在代码窗口里编写需要的语句。例如：菜单【文件】【退出】是退出轨范，那么我们就可以在代码窗口里写上“End”语句：Private Sub exit_Click()EndEnd Sub若是在菜单项后面加
32、上(&)就可以界说热键。例如：退出(&X)，在菜单上显示出来的就是：退出(X)。轨范运行时，我们可以按Alt键打开菜单，然后按对应的热键来进行菜单的操作。 轨范13：运行轨范，操作菜单对文字进行润色。轨范14：保留轨范。操练：模拟Windows的记事本轨范，设计一个与记事本界面、功能四周的轨范。阅读材料： 1、 CheckBox控件及其常用属性 CheckBox复选框控件，用户可以一次选择多个复选框项。其常用属性声名如下表：属性声名Caption设置问题Value返回或设置控件的状况2、 Frame控件及其常用属性 Frame框架控件，可以将其他控件放在其中并按类对控件分组。其常用属性声名如下
33、表：属性声名Caption设置问题3、 TextBox控件及其常用属性 TextBox文本框控件，用于输入和显示文本。其常用属性声名如下表：属性声名BorderStyle设置对象的边框样式MultiLine设置是否可以接管多行文本PasswordChar设置一个值，选择是否在控件中显示用户键入字符或保留区字Text设置控件中包含的文本ToolTipText设置当鼠标在控件上暂停时显示的文本1. 文字的四个属性：FontBold(粗体)、FontItalic(斜体)、FontUnderline(下划线)、FontSize(字号) 第五课：“你猜对了吗？”-分支结构的轨范设计 用VB编写的轨范，依
34、据轨范运行的挨次可以分为三种根基结构：挨次结构、分支结构、轮回结构。挨次结构的轨范，轨范的运行的挨次是畴前面到后面逐句执行的，如图3-5.1所示：图3-5.1 挨次结构轨范流程图分支结构的轨范，是依据前提的成立与否来选择轨范执行的挨次，如图3-5.2所示，若是前提成立就会执行语句块1，不会执行语句块2，同样，若是前提不成立就会执行语句块2，而不会执行语句块1.图3-5.2 分支结构轨范流程图分支结构又称为选择结构。轮回结构的轨范，是依据前提成立与否，来选择是否一再执行某一段轨范，如图3-5.3所示：若是前提成立，则执行“语句块”，执行完“语句块”后，又从头搜检前提是否还成立，若成立则再一次执行
35、“语句块”，否则轨范将转去执行轮回结构后面的语句。图3-5.3 轮回结构轨范流程图一般情形下，轨范都是依据挨次结构的体例运行的，除非赶上转变轨范运行标的目的的语句。这一节课我们就来进修编写分支结构的轨范。例一：编写一个判定题轨范，如图3-5.4所示。当单击“确定”按钮时显示你的选择是对仍是错。操作轨范如下：轨范1：新建一个工程。轨范2：在Form中新建2个Label对象，用于显示问题问题。轨范3：新建两个OptionButton，用于显示选择题谜底。轨范4：新建一个CommandButton对象Command1，用于提交谜底。轨范5：编写轨范代码。当单击“确定”按钮时，需要判定你的选择是对仍是
36、错。其判定过程如下：图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 “答
37、错了”,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 后直接写语句而不用换行，也不用写
38、 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，分袂
39、用于显示问题、问题问题、正误、成就。轨范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
40、函数有一个特征，每次运行轨范城市返回不异的数，为了避开这个现象的呈现，需要在RND函数使用之前执行Randomize语句。INT（X）函数称为取整函数，它的浸染就是对X取整。是以表达式Int(Rnd * 99 + 1)发生一个小于或等于100的自然数。2、领受同学输入的谜底Text1可以领受用户输入的数据，用它来领受同学输入的谜底。3、判定谜底的正误当同学输入谜底并点击了确定按钮，轨范就对同学输入的谜底进行判定。是以对“确定”按钮的Click事务编写如下代码：If Val(Text1) = Val(Label1) + Val(Label3) ThenLabel5.Caption = ElseL
41、abel5.Caption = End If由于输入到TextBox中的全数是字符，但要计较的功效却是数字，所以必需把数字字符转化成为数值数字。这样就需要用到一个转换函数：Val( )函数，它的浸染是将一个数字字符转换成为相等的数值。4、记实同学的成就在轨范的执行时代，可能有些中心功效需要保留起来，这时需要使用变量到姑且存储这些功效。将运算功效姑且存储到变量中可以使用赋值语句，其名目是：=好比：X=3+5，就是将3+5的运算功效保留到变量X中。要出格声名的是，这里的“=”号叫做赋值号，其寄义是把右边表达式的值赋给左边的变量，与数学上的“=”号寄义分歧。变量的名称必需是以英文字母开首，可以使用字
42、母和数字来作为变量的名称。当同学回覆正确时，轨范自动将同学的成就加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
43、.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、数
44、据类型表 数据类型取值规模数值型整型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类型。第六课：让飞机
45、飞起来-轮回结构的轨范设计 这一节课，我们要设计一个飞机飞翔的轨范，如图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 coun