《VisualBasic程序设计案例驱动型教程 第2篇 Visual Basic编程基础知识.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计案例驱动型教程 第2篇 Visual Basic编程基础知识.ppt（195页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Visual BasicVisual Basic编程基础知识编程基础知识 案例案例2 成绩计算成绩计算 案例案例3 体育达标测试体育达标测试 案例案例4 九九表九九表 案例案例5 竞赛作品评定竞赛作品评定 案例案例6 简易计算器简易计算器 案例案例7 古诗选读古诗选读 案例案例2 成绩计算成绩计算 案例案例3 体育达标测试体育达标测试 案例案例4 九九表九九表 案例案例5 竞赛作品评定竞赛作品评定 案例案例6 简易计算器简易计算器 案例案例7 古诗选读古诗选读 案例案例8 用户登录用户登录 案例案例9 运动会报名运动会报名 案例案例10 倒计时表倒计时表 案例案例11 挂历制作挂历制作 案例案
2、例12 简易记事本简易记事本【案例案例2】成绩计算成绩计算 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖知识1.控件的布局(1)选中需进行布局的所有控件，并指定其中一个控件为“基准控件”。(2)选中了所有控件后，就可以设置对齐和调整大小了。可以通过“格式”菜单中的“对齐”、“统一尺寸”、“水平间距”和“垂直间距”4项分别设置所选中控件的对齐效果、尺寸大小、控件间的间距，其中前两项的设置以基准控件为标准。涵盖知识2.变量的使用 变量的命名规则如下：(1)变量必须以字母开头，后跟字母、数字或下划线。(2)变量名不能使用Visual Basic中的运算符、语句
3、、函数、过程名及系统已有的方法和属性名等关键字。(3)变量的命名不区分大小写。变量一般要先定义再使用。变量的常用定义方法为：Dim变量名As数据类型涵盖知识3.Val函数的使用 Val（字符串型数值）该函数的功能是：把数值字符串型数据转换为数值型数据，忽略字符串中的非数字字符。如：Val（“1234abc”）返回数值1234。涵盖知识4.焦点的控制 焦点是指对象接收用户鼠标或键盘操作的能力。当一个对象具有焦点时，它可以接收用户的操作，同用户进行交互。常 用 于 焦 点 控 制 的 事 件 有 两 个：GotFocus和LostFocus。GotFocus事件的功能是当对象获得焦点时触发该事件对
4、应的效果；而LostFocus事件的功能是当对象失去焦点时触发该事件对应的效果。还有一个与焦点相关的常用方法：SetFocus。它的使用格式是：对象名.SetFocus。它的功能是将焦点转移给指定的对象。涵盖知识5.使用文本框输入输出信息 文本框自身具有输入功能，其输入的信息可用“Text”属性来读取；而需用文本框进行输出时，只需将输出信息赋值给文本框的“Text”属性。如：Text2.Text=Val（Text1.Text）+10涵盖知识6.使用标签输出信息 标签跟文本框相比，只能输出信息，而不能输入信息。当需用标签进行输出时，只需将输出信息赋值给标签的“Caption”属性。如：Label
5、1.Caption=“你好！”Label1.Caption=Text1.Text操作步骤操作步骤 1)启动VisualBasic，设计程序界面 2)设置对象属性对象名对象属性名属性值Form1NameForm1Caption示例2：计算成绩Label1NameLabel1Caption语文成绩Font宋体、粗体、小四Label2NameLabel2Caption数学成绩Font宋体、粗体、小四Label3NameLabel3Caption总分Font宋体、粗体、小四Text1NameText1Text(设置为空，即删除原有文本)Font宋体、粗体、小四Text2NameText2Text(设置
6、为空，即删除原有文本)Font宋体、粗体、小四Text3NameText3Text(设置为空，即删除原有文本)Font宋体、粗体、小四Command1NameCommand1Caption计算Font宋体、粗体、小四操作步骤操作步骤3)写代码 操作步骤操作步骤4)保存程序，并生成可执行文件 将本案例保存为一个名为“成绩计算.frm”的窗体文件和一个名为“成绩计算.vbp”的工程文件，并生成一个名为“成绩计算.exe”的可执行文件。案例小结案例小结 本案例主要介绍了变量的定义与使用、焦点的概念、Val函数的使用等理论知识点。本案例还介绍到了5个操作实训点：如何复制控件。如何进行控件的布局。如何用
7、文本框进行输入输出。如何用标签进行输出。如何转移对象的焦点。案例小结案例小结所学属性小结 类名属性名属性含义标签LabelName标签控件的名称Font标签中显示文本的字体Caption标签中显示的内容BorderStyle设置标签的边界样式BackColor设置标签的背景色文本框TextName文本控件的名称Font文本中显示文本的字体Text文本中显示的内容实训练习实训练习 (1)完成如图所示的程序界面。实训练习实训练习(2)请编程实现统计最高分、平均分和总分的功能。初始界面如图1所示。当输入四门功课的成绩后，单击“最高分”按钮则在下方显示出最高分的结果（如图2所示），当单击“平均分”按钮
8、时则在下方显示平均分结果（如图3所示），当单击“总分”按钮时则在下方显示总分结果（如图4所示），单击“退出”按钮时退出程序。要求显示的最终计算结果不能被直接修改（即该文本框只能用于输出,不能输入）。实训练习实训练习【案例3】体育达标测试案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖知识1.变量的作用域 1)过程级变量 2)在一个过程内部定义的变量，只有在过程内部才能访问或改变那个变量的值，称过程级变量。过程级变量用Dim或Staic关键字来定义，也称为局部变量。涵盖知识1.变量的作用域 2)模块级变量 在某一模块（窗体模块或标准模块）内使用Private语
9、句或Dim语句声明的变量都是模块级变量，其作用域只限于该模块，只能被该模块中的所有过程调用，其他模块中的任何过程都不能调用。涵盖知识1.变量的作用域 3)全局变量 在标准模块中定义一个全局变量，其方法与在标准模块中定义一个模块级变量相同，只是在定义时必须冠以Public，不能使用Dim和Private。在窗体模块中定义一个全局变量，其方法与在窗体模块中定义一个模块级变量相同，只是在定义时必须冠以Public，不能使用Dim和Private。在窗体模块中定义一个全局变量时，关键词Public不能缺省。过程中不能定义全局变量。涵盖知识2.常量的使用 1)直接常量直接常量就是直接给出一个确定的值，如
10、布尔型值True、日期型#05/01/2003#等。2)符号常量 定义格式如下。ConstAs=，As=涵盖知识3.运算符与表达式 1)算术运算符与算术表达式 运算运算符优先级示例示例结果乘方1XY双精度1000取负23整形数3乘*3*整形数30浮点除法3/双精度数3.33333333333333整数除法4Y整形数取模mod5XmodY整形数1加法+6XY整形数13减法6XY整形数7涵盖知识3.运算符与表达式2)关系运算符与关系表达式 运算符测试关系表达式例子等于X=Y或不等于XY或X大于XY小于XY=小于等于X=大于等于X=YLike比较样式Is比较对象变量涵盖知识3.运算符与表达式3)逻辑
11、运算符与逻辑表达式(1)逻辑非：Not进行“取反”运算，例如Not36结果为True。(2)逻辑与：And对两个关系表达式的值进行比较，如果两个表达式的值均为True，结果为True，否则结果为False。如(511)And(311)Or(35)结果为True。涵盖知识3.运算符与表达式4)字符串运算符与字符串表达式 字符串运算符有两个，“&”和“”，都用于将两个字符串接起来，合并为一个新的字符串。涵盖知识4.选择结构1)单行选择结构If-Then-Else格式：IfThenElse功能：当条件成立时，执行Then后的语句组1，否则执行Else后的语句组2。涵盖知识2)多行选择结构If-The
12、n-End If格式：IfthenElseIfthenElseIfthenElseEndIf 功能：首先判断条件1是否成立，若成立则执行语句组1，然后执行EndIf后面的语句；若条件1不成立，再判断条件2是否成立，若成立则执行语句组，然后执行EndIf后面的语句，若条件2不成立，再判断条件3是否成立如果条件1到条件n都不成立，则执行Else后面的其他语句组。涵盖知识3)多分支选择结构SelectCase-EndSelect 格式：SelectCaseCaseCaseCaseElseEndSelect功能：首先计算SelectCase后的测试表达式的值，若表达式1能匹配则执行语句组1，然后执行E
13、ndSelect后面的语句；若不能匹配，再匹配表达式2，若能匹配则执行语句组2，然后执行EndSelect后面的语句如果所有表达式都不能匹配，则执行CaseElse后面的其他语句组。操作步骤操作步骤1)启动VisualBasic，设计程序界面 2)设置对象属性 对象名对象属性名属性值Form1NameForm1Caption体育达标测试Command1NameCommand1Caption档次Font宋体、粗体、五号Text1NameText1Font宋体、粗体、五号Label1Caption请输入测试成绩：Font宋体、粗体、五号Label2Caption“”Font宋体、粗体、五号操作步骤
14、操作步骤3)写代码 If结构如左图，case结构如右图操作步骤操作步骤4)保存程序，并生成可执行文件 将本题保存为一个名为“达标测评.frm”的窗体文件和一个名为“达标测评.vbp”的工程文件，并生成一个名为“达标测评.exe”的可执行文件。案例小结案例小结 本案例主要介绍了变量的作用域，常量的使用，各种运算符与表达式的使用，选择结构中的单行选择结构、多行选择结构和多分支选择结构等理论知识。本案例还主要介绍了2个操作实训点：选择结构中的单行选择结构、多行选择结构和多分支选择结构。如何设计输入信息提示框、输出信息提示框。实训练习实训练习(1)比较以下两个程序的运行结果，并说明Static与Dim
15、定义的过程级变量的区别。程序一：程序二：PrivateSubForm_click()PrivateSubForm_click()DimaAsInteger staticaAsIntegera=a+1a=a+1PrintaPrintaEndSubEndSub实训练习实训练习(2)定义满足如下要求的变量。定义一个能存放单位名称的过程级变量。定义一个能存放出生年月的静态变量。定义一个能存放真假值的全局变量。定义一个能存放六位数整数的模块级变量。定义一个能存放分数的全局变量。定义一个能存放年龄的过程级变量。实训练习实训练习(3)编程实现以下3种效果。当单击窗体时，弹出一个输入对话框。当用户输入名字后，
16、用信息提示框输出此名字。自行设计输入对话框和输出对话框的格式。在文本框中输入姓名，当单击按钮时，在标签中将姓名输出。程序界面自行设计。当单击窗体时，在弹出的输入对话框中输入姓名后，在窗体上直接将此名字输出。实训练习实训练习(4)编写一个运输公司的计费程序，界面自行设计，计费公式如下：运费基本运费货重运输距离（折扣）其中，基本运费指每吨公里的运费，设为1元tkm，货重量单位为t，运输距离单位为km，折扣标准如下：运输距离250km0%250km=运输距离500km2%500km=运输距离1000km5%1000km=运输距离2000km8%2000km=运输距离3000km10%3000km=运
17、输距离15%要求：用户输入货重吨数和运输距离公里数后程序能自动计算出运费。用单行选择语句编制。用多行选择If-Then-EndIf编制。用多分支SelectCase-EndSelect编制。【案例案例4】九九九九表表 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖涵盖知识知识1.Print方法 窗体、图片、打印机对象都具有Print方法，调用Print方法的格式：.Print；|，对象名为可选项，省略则默认为当前窗体。表达式表中的表达式可以是算术表达式、字符串表达式、关系表达式或布尔表达式，各表达式之间用逗号“，”或分号“；”分隔。使用逗号时为分区显示格式
18、，以14个字符位置为单位将一个输入行分为若干个区，一个区只显示一个表达式的值；使用分号时为紧凑显示格式，后一项紧跟前一项输出。涵盖知识涵盖知识2.循环结构1)For-Next 循环 其结构的格式如下：For=ToStepExitForNext是一个数值型变量，起循环计数的作用。和即循环的初值和终值，为数值表达式。即循环变量的增量，为数值表达式。值为正时，循环变量将增加一个步长；值为负时，则减少一个步长。值为“1”时，Step可省略。涵盖知识涵盖知识2)Do-Loop循环(1)DoWhile-Loop循环。格式：DoWhileExitDoLoop先判断成立否，若成立则循环，不成立则退出循环。涵盖
19、知识涵盖知识(2)DoUntil-Loop循环。格式：DoUntilExitDoLoop先判断成立否，若不成立则循环，成立则退出循环。涵盖知识涵盖知识(3)Do-LoopWhile循环。DoExitDoLoopWhile先循环，再判断，成立则循环，不成立则退出循环。涵盖知识涵盖知识(4)Do-LoopUntil循环。DoExitDoLoopUntil先循环，再判断，不成立则循环，成立退出循环。涵盖知识涵盖知识3.Function过程 1)定义格式：StaticPublic|PrivateFunction()AsExitFunction=EndFunction涵盖知识涵盖知识3.Function
20、过程2)建立方法(1)直接在通用窗口中输入代码。在代码窗口的所有过程之外，按Function过程的定义格式输入。(2)使用“添加过程”命令。选择“工具”菜单中的“添加过程”命令，打开对话框，在“名称”框内输入要建立的过程名，如fact，进行相应选择，单击“确定”按钮，回到模块代码窗口，涵盖知识涵盖知识3.Function过程3)调用Function的调用比较简单，可以像使用VisualBasic内部函数一样来调用。调用格式：()其中，为要调用的Function过程名，为要传递给Function过程的常量、变量或表达式，各参数间用逗号隔开，如果是数组，在数组名之后必须跟一对空括号。例如：Text
21、2.Text=sum(n)涵盖知识涵盖知识4.Sub过程 1)定义格式：StaticPublic|PrivateSub()ExitSubEndSub涵盖知识涵盖知识2)调用Sub过程的调用有两种方法，一种是把过程的名字放在一个Call语句中，一种是把过程名作为一个语句来使用。(1)用Call调用过程。格式：Call（）例如：Callfact(x,f)CallMul(n,sum2)(2)把过程名作为一个语句使用。格式：例如：factx,f操作步骤1)启动VisualBasic，设计程序界面 2)设置对象属性 对象名对象属性名属性值Form1NameForm1Caption示例：九九表Comman
22、d1NameCommand1Caption计算Font宋体、五号CommandNameCommandCaption九九表Font宋体、五号Text1、Text2、Text3NameText1、Text2、Text3Font宋体、五号Label1Caption请输入n值：Font宋体、五号Label2Caption1+2+n=Font宋体、五号Label3Captionn!=Font宋体、五号操作步骤3)写代码 操作步骤4)保存程序，并生成可执行文件 将本题保存为一个名为“九九表.frm”的窗体文件和一个名为“九九表.vbp”的工程文件，并生成一个名为“九九表.exe”的可执行文件。案例小结 本
23、案例主要介绍了Print方法的使用、程序结构的循环结构语句格式要求、过程与函数的定义。重点是要对各种实际情况进行合理循环语句的选择。实训练习(1)编写程序，求1/(12)+1/(22)+1/(32)+1/(n2)的值，直到最后一项的值小于0.001为止。界面自行设计。(2)编写一个判断自然数是否为质数的Function过程，在窗体上打印出100,200之间的所有质数，并求出它们的和。(3)编写一个求一元二次方程ax2+bx+c=0(a不等于0)的实根的Sub过程，要求能判断有无实根、实根的个数并求出实根。【案例案例5】竞赛作品评定竞赛作品评定 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案
24、例小结案例小结实训练习实训练习涵盖涵盖知识知识1.随机函数 2.每次调用随机函数Rnd，将返回一个01之间的单精度随机数，其调用格式如下：Rnd(x)其中x作为随机函数参数，可以是任何单精度常数或有效的数值表达式。若x0，则以上一个随机数作为种子，产生序列中的下一个随机数；若x=0，则返回与最近生成的随机数相同的随机数。涵盖知识涵盖知识2.数组1)数组的概念(1)数组和数组元素。(2)数组名是用于标识数组的名字，其命名规则与简单变量的命名规则相同，如可以定义存放学生成绩的数组变量命名为StScore。1.存储在数组中的每一个数据称为一个元素，即数组元素。命名了一个数组，则数组中每一个数组元素都
25、拥有相同的名字，即数组名。同一个数组的每个元素都具有相同的名字：数组名。涵盖知识涵盖知识1)数组的概念(2)数组下标与维数。数组的下标即数组的索引，它规定了数组中元素的个数和位置，其下标值唯一地标识一个数组元素。根据需要，可以给数组定义一个下标，也可以定义多个下标。涵盖知识涵盖知识2)数组的定义(1)固定大小(静态)数组的定义 Dim|Private|Public|Static()As数据类型,Dim：用 于 在 过 程（Procedure）、窗 体 模 块（Form）或标准模块（Module）中建立一个数组变量。(1)Private：用于在窗体模块、标准模块的通用声明中建立一个模块级的私有数
26、组变量(2)Public：用于在标准模块中建立一个全局数组变量(3)Static：用于在过程中建立一个静态数组变量 涵盖知识涵盖知识2)数组的定义(2)可变大小(动态)数组的定义。第一步，在模块的通用声明段声明一个不指定下标的数组，格式如下。Dim|Private|Public|Static ()As 数据类型,如：Dim MyArry()As Integer第二步，在过程中重新定义该数组，指定数组的下标，格式如下。ReDim Preserve (下标列表)As 数据类型,Preserve：可选，当使用Preserve时，将保留重定义前数组中数组元素的值，否则系统将对数组重新初始化涵盖知识涵盖
27、知识3)常用数组函数和语句 格式：LBound(数组名,指定的维数)UBound(数组名,指定的维数)若缺省指定维数，默认为1。前者返回指定数组可用的最小下标，后者得到的是最大下标。涵盖知识涵盖知识3.循环的嵌套包含另一个循环结构的循环为外层循环；包含在一个循环结构中的循环称为内层循环；只有一层循环结构时称为单层循环，当有循环的嵌套时称为多层循环。操作步骤1)启动VisualBasic，设计程序界面 2)设置对象属性 对象名对象属性名属性值Form1NameForm1Caption竞赛作品评定Command1NameCommand1Caption模拟生成竞赛成绩Font宋体、五号Command
28、2NameCommand2Caption成绩排名Font宋体、五号Text1/Text2NameText1/Text2Font宋体、五号MultilineTrueScrollbars1-Horizontal操作步骤3)写代码 操作步骤4)保存程序，并生成可执行文件 将本题保存为一个名为“竞赛作品评定.frm”的窗体文件和一个名为“竞赛作品评定.vbp”的工程文件，并生成一个名为“竞赛作品评定.exe”的可执行文件。案例小结 本案例主要介绍了数组的概念、数组的定义、数组在实际编程中的应用、循环嵌套的使用。重点是利用数组进行合理的数据编程。实训练习(1)用数组编程生成斐波那契数列的前20项。斐波那
29、契数列的第一项为0，第二项为1，第三项后的各项均为其前两项之和。如0，1，1，2，3，5，8，13，(2)编写一个应用程序，针对一个整型数组具有以下功能，每个功能由一个过程来实现。读入一个由n个元素组成的整型数组。在数组中指定位置插入一个元素。在数组中删除指定位置的元素。删除数组中指定值的元素。（建议编写一个用于检索的Function过程，检索成功时，函数返回值为检索到的元素的下标。）【案例案例6】简易计算器简易计算器 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖涵盖知识知识1.创建控件数组 2.控件数组是指名称相同索引号不同的同一类控件。创建控件数组的
30、方法主要有两种。(1)从工具箱中拖放一个控件到窗体中，右击该控件，选择“复制”，右击窗体空白处，选择“粘贴”，单击“是”按钮即可。(2)从工具箱中拖放多个相同控件到窗体中，然后在属性窗口中将这多个控件的name属性设置为相同的名称即可。各控件的index属性会自动按序排列。涵盖知识涵盖知识2.控件数组的应用 控件数组由于其名称都是一样的，因此索引index属性值的不同是其主要区别，在使用过程中通过判断数组控件的index值来区分它们是我们常采用的办法。操作步骤1)启动VisualBasic，设计程序界面 2)设置对象属性 对象名对象属性名属性值Form1NamefrmcomputerCapti
31、on计算器Command1(0)Command1(9)NamenumberCaption分别为09Command2(0)Command2(4)NameoperatorCaption分别为+、-、*、/、=Command3NameSignerCaption+/-Command4VisiblefalseCommand5NamePercentCaption%Command6NamecancelCaptionCText1Text“”Alignment1-rightjustify操作步骤3)写代码 模块变量定义 操作步骤3)写代码 初始化代码数字按钮代码 操作步骤3)写代码运算符代码 操作步骤3)写代码
32、正负号代码%按钮代码cancel按钮代码 操作步骤4)保存程序，并生成可执行文件 工程运行调试完毕，将窗体文件保存为computer.frm，工程文件保存为computer.vbp，工程编译为computer.exe执行文件。案例小结 本案例中主要介绍了控件数组的应用，从代码及界面设置中我们可以很清楚看到控件数组的使用关键在于：控件数组的产生；控件的name和index两个重要属性的设置。案例小结所学属性小结 对象名对象属性名属性含义数组控件Name对象名称Index对象的索引值实训练习(1)设计一个统计体育期末达标成绩情况的程序，初始界面如图1所示。输入各项成绩后，单击“总评成绩”按钮，效果
33、如图2所示。要求：输入成绩的4个文本框为一控件数组，成绩等级设置分别为：90分及以上为优，80分至89分为良，70分至79分为中，60分至69分为及格，60分以下为不及格。实训练习【案例案例7】古古诗诗选选读读 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖涵盖知识知识1.并行多窗体设计 2.并行多窗体程序的开发过程主要有以下5个步骤：3.(1)在程序设计状态下，利用“工程”菜单中的“添加窗体”子菜单添加每一个窗体，并设计好每一个窗体上的控件对象，并设置相关的属性。4.(2)给每个窗体及其上的控件对象设计相应的程序代码。5.(3)利用“工程”菜单中的“工程
34、1属性”子菜单项来指定运行程序时的启动窗体。6.(4)将多个窗体独立存盘，并保存其工程文件。7.(5)运行程序。涵盖知识涵盖知识2.父子多窗体设计 此种容器关系表现为：任何时候，子窗体都在父窗体中，它的存在随着父窗体而定。父子多窗体程序常用到1个属性和1个方法。1)MdiChild属性若属性值为True，则该窗体将作为父窗体的子窗体；值为False，则不作为子窗体，而作为与父窗体并行的窗体。在设置该属性之前，必须已存在一个父窗体了。2)Arrange方法此方法用来以不同的方式排列MDI中的窗口或图标。其格式为：MDI窗体.Arrange方式参数 涵盖知识涵盖知识3.列表框的简单使用 1)Lis
35、tIndex属性该属性用于设置或返回列表框中当前被选中的列表项的编号。列表框中的第一项编号为0，第二项编号为1，依此类推。若ListIndex属性返回值为-1，则表示无列表项被选中。2)AddItem方法此方法用于给列表框添加列表项内容。它的使用格式为：列表框名.AddItem列表项内容，位置编号涵盖知识涵盖知识3)Clear方法该方法的功能是清除列表框中的所有列表项内容。它的使用格式为：列表框名.Clear4)DblClick鼠标双击事件该事件的功能是当鼠标在列表框中双击时触发相应的效果。它的使用格式为：PrivateSub列表框名_DblClick()效果代码EndSub涵盖知识涵盖知识4
36、.设置颜色 1)直接设置颜色值VisualBasic内部使用十六进制数表示指定的颜色，在设置颜色时，可以直接写出该种颜色的十六进制值，格式为：&HBBGGRR，其中“&H”表示是十六进制数，“BB”表示蓝色分量，“GG”表示绿色分量，“RR”表示红色分量。涵盖知识2)使用调色板对象的属性窗口中，当单击与颜色有关的属性名（如BackColor和ForeColor）时会出现一个下拉箭头，单击下拉箭头，会弹出一个对话框，其中有两个选项卡：调色板和系统预定义的颜色。可以从两个选项卡中任选其一，再从中选择所需要的颜色。涵盖知识3)使用系统颜色常量对象名对象属性名属性值vbBlack&H000000黑色v
37、bRed&H0000FF红色vbGreen&H00FF00绿色vbYellow&H00FFFF黄色vbBlue&HFF0000蓝色vbMagenta&HFF00FF紫红色vbCyan&HFFFF00青色vbWhite&HFFFFFF白色涵盖知识4)使用QBColor函数QBColor函数返回一个长整型数，用来表示所对应颜色的RGB颜色值，其调用格式如下：QBColor(Value)，其中参数Value是介于015之间的整数。值颜色值颜色0黑色8灰色1蓝色9亮蓝色2绿色10亮绿色3青色11亮青色4红色12亮红色5洋红色13亮洋红色6黄色14亮黄色7白色15亮白色涵盖知识5)使用RGB函数RGB函
38、数返回一个长整型数，用来表示一个RGB颜色值，其调用格式如下。RGB(red，green，blue)其中red参数取值范围为0255，表示颜色的红色成分；green参数取值范围为0255，表示颜色的绿色成分；blue参数取值范围为0255，表示颜色的蓝色成分。如果传给RGB函数的参数值超过255，系统将当作255处理。操作步骤1)启动VisualBasic，设计程序封面界面及相关控件属性(1)先启动VisualBasic6.0，然后从工具箱中往窗体上添加1个标签和2个按钮控件(2)添加用于选择古诗的列表窗体，并设计其界面和相关控件属性。(3)单击“工程”菜单“添加窗体”子菜单项 1.(3)添加
39、用于显示第1、2、3首古诗的窗体，并设计其界面和相关控件属性。2.(4)单击“工程”菜单“工程1”子菜单项，来设置启动窗体。操作步骤2)写代码(1)给Formcover窗体写代码。操作步骤2)写代码(2)给listform窗体写代码。操作步骤2)写代码(3)给p1窗体写代码。操作步骤2)写代码(4)给p2和p3窗体写代码 操作步骤3)保存程序，并生成可执行文件本案例保存时将生成如下文件。(1)Formcover窗 体 将 保 存 为 一 个 名 为“Formcover.frm”的窗体文件。(2)listform窗体将保存为一个名为“listform.frm”的窗体文件。(3)p1、p2、p3窗
40、 体 将 分 别 保 存 为“p1.frm”、“p2.frm”、“p3.frm”3个窗体文件。(4)整个程序对应的一个名为“古诗选读.vbp”的工程文件，并生成一个名为“古诗选读.exe”的可执行文件。案例小结 本案例主要介绍了并行多窗体和父子多窗体程序界面的设计方法、列表框控件的用法、字符串连接、续行符的用法以及VbCrlf的用法等知识点。本案例还介绍到了2个操作实训点：如何添加窗体。如何给文本框添加内部滚动条。案例小结所学属性小结 类名属性名属性含义窗体FormMDIChild是否设置为子窗体Picture指定一个图片文件作为窗体背景列表框ListListIndex列表框中的项目编号（从0
41、开始）标签LabelBackStyle设置标签的背景样式ForeColor设置标签的前景色文本框TextMultiline设置文本框是否允许多行显示ScrollBars设置文本框显示滚动条（0表示无滚动条，1表示只显示水平滚动条，2表示只显示垂直滚动条，3表示两种滚动条都显示）案例小结所学方法小结 类名方法名功能窗体FormShow显示窗体Hide隐藏窗体，但窗体依然存在于内存中列表框ListAddItem给列表框添加选项Clear清除列表框所有选项MDIChildArrange设置父窗体中所有子窗体的排列方式实训练习(1)请编程实现如下效果：设计一个包含Form1和Form2两个窗体的多重并
42、行窗体应用程序。Form1为启动窗体。单击Form1，隐藏Form2，显示Form1；单击Form2时，隐藏Form2，显示Form1。双击任何一个窗体时，结束程序的运行。(2)请编程实现如下效果：程序运行时的初始界面如图1所示。当单击“排列窗体”按钮时出现如图2所示的对话框。若在对话框中输入“1”，单击“确定”按钮后出现界面效果与初始界面一致；若在对话框中输入“2”，单击“确定”按钮后出现图3所示的界面效果；若在对话框中输入“3”，单击“确定”按钮后出现图4所示的界面效果。若单击父窗体上方的“退出”按钮则退出整个程序。实训练习实训练习(3)利用本案例所学知识，编程实现如下效果：程序运行的初始
43、界面如图1所示，当双击列表中的任一数字时，该数字将被添加到文本框中进行显示，如图2至图4效果所示。单击“结束”按钮时退出程序。实训练习【案例案例8】用用户户登登录录 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖涵盖知识知识1.文本框 Text属性：文本框最基本的属性，表示文本框中的内容，既可以在属性窗口中静态设置，也可以在代码窗中设置。Font属性：用来设置文本框的字体、字形、字号等。Passwordchar属性：用于设置文本框的内容的显示形式，只有当Multiline属性为False（单行文本框）时才有用，常用于密码口令设置。Maxlength：用于确
44、定文本框中最大长度。涵盖知识涵盖知识2.静态变量 所谓静态变量是指在程序运行过程中该变量的值会一直保存在内存中直到程序结束。本案例中密码的输入只有3次机会，若3次都输入错误则终止程序。为了记录用户密码的输入次数，特设计了一个计数变量，该变量是一个静态变量（static）。操作步骤1)启动VisualBasic，设计程序界面 2)设置对象属性 对象名对象属性名属性值Form1NameFrmuser_loginCaption用户登录Command1Caption确定Font宋体、粗体、小四Command2Caption取消Font宋体、粗体、小四Label1Caption用户名：对象名对象属性名属
45、性值Label2Caption密码：Text1Text“”Text2Text“”Passwordchar*Maxlength6操作步骤3)写代码“登录”按钮代码 操作步骤3)写代码“取消”按钮代码 操作步骤4)保存程序，并生成可执行文件 当工程调试完毕，将工程窗体文件保存为frmuser_login.frm，工程项目保存为user_login.vbp，并生成执行文件user_login.exe。案例小结 本案例中主要介绍了如何用文本框进行密码输入的操作，主要介绍了Passwordchar和Maxlength属性的使用。案例小结所学属性小结 类名属性名属性含义文本框TextText文本控件的内容
46、Passwordchar文本中显示文本的形式Maxlength文本中显示内容的最大长度实训练习(1)设计一个用户登录系统的程序，界面如图所示。单击“登录”按钮时可实现：当用户名为自己的姓名且口令为“123456”时弹出一个欢迎对话框。当用户名为自己的姓名且口令不为“123456”时弹出一个口令错误的提示图。当用户名不为自己的姓名且口令不为“123456”时弹出一个用户名与口令都错误的提示图。当用户名或口令不正确时可输入3次，若3次都不对则结束程序。单击“退出”按钮时卸载窗体。实训练习(2)设计一个多行的文本框，界面如图所示，并能设置其中的字体。（提示：楷体标准名称为“楷体_GB2312”。）【
47、案例案例9】运动会报名运动会报名 案例效果案例效果涵盖知识涵盖知识操作步骤操作步骤案例小结案例小结实训练习实训练习涵盖涵盖知识知识1.单选按钮 单选按钮主要用于让用户进行单项选择操作，其主要属性Value的取值有True和False两种，取值为True时表示用户选择了该项，反之则表示未选中该项。单选按钮的常用事件为Click，当用户选择了该项时触发该事件。涵盖知识涵盖知识2.列表框 列表框可以以列表项的形式显示内容并可由用户选择其中一项或多项内容，其常用属性如下。(1)List：表示列表框中内容，其使用用法为:列表框.list(i)，i的取值范围为0到listcount-1。(2)Listin
48、dex：表示列表框中被选中的列表框项目的索引号，初始值为0，若未选中列表项则返回值为-1。(3)Listcount：列表框中项目的数量。(4)Text：列表框中被选中项目的内容，该属性为动态属性，只能在代码设计中使用。涵盖知识涵盖知识2.列表框常用方法如下。(1)Additem：添加项目到列表框中。其中，index选项表示增加的项目的索引位置。列表框对象.additem项目内容,index如：list1.additem“男子三级跳”,2表示增加第三项“男子三级跳”。(2)Removeitem：移除列表框中指定的项目。列表框对象.removeitemindex如：list1.removeitem
49、0表示删除第一项。(3)列表框对象.Clear：清除列表框中所有项目。如：list1.clear。涵盖知识涵盖知识3.组合框 组合框是由文本框和列表框组合而成，因此具有它们两者的功能，既能显示文本输入文本，又可列表显示内容，并供用户选择。组合框的常用属性与列表框基本相似，此处不再赘述。不过它的Text属性为一静态属性，可在属性窗口中设置，也可在代码中设置。另外它的Style属性有3种设置：0-dropdowncombo，既可选择也可输入；1-simplecombo，只可输入不能选择；2-dropdownlist，只可选择不能输入。操作步骤1)启动VisualBasic，设计程序界面 2)设置对
50、象属性 对象名对象属性名属性值Form1NamefrmsportsmanCaption运动员报名Frame1Caption性别Label1Caption姓名Label2Caption编号Label3Caption系部Label4Caption运动项目Label5Caption运动员报名信息Text1Text“”Text2Text“”Command1Caption确定Command2Caption退出Option1Caption男ValueTrueOption2Caption女Combo1Style2-dropdownlistList1Text“”List2Text“”操作步骤3)写代码 初始化