《Visual-Basic-6.0可视化编程与实训》完整版课件全套ppt教学教程最全整套电子

1、项目一 VB集成环境及基本操作 学习目标了解VB语言的发展历史了解VB的工作原理VB的集成开发环境掌握基本操作VB6.0的启动和工作界面 启动方法1：开始按钮程序Microsoft Visual Basic 6.0中文版Microsoft Visual Basic 6.0中文版。方法 2：桌面 Microsoft Visual Basic 6.0中文版图标。VB工作界面用户界面 工具栏：由多个图标按钮组成，用于对常用常用命令的快速访问。工具箱 使用工具箱将使界面设计变得更加容易，只需要拖动任意控件到主窗体上便能创建一个标准的界面元素。（用鼠标左键按单击一个控件，鼠标指针变成十字，在窗体上单击左

2、键即可。双击控件则可添加该控件的程序代码）。 用户界面 属性窗口 属性窗口是用来设置对象的颜色、字体、大小和尺寸之类的属性，这些属性可以通过属性窗口进行修改。 用户界面 窗体布局窗口 窗体布局窗口是用来设置窗体在“屏幕”中的位置，这种设置将影响程序运行时窗体在屏幕的初始位置，这个窗口增强了Visual Basic的可视化功能。 用户界面 工程管理器窗口 工程管理器窗口用来显示一个应用程序中所有的组件（类似于浏览器），如工程、窗体、模块等等。 用户界面 【案例1.1】我的第一个程序加法器。 设计一个加法器程序，输入两个数，点“计算”按钮算出两个数的和。第1步：在空白窗体中放入指定控件。 【案例1

3、.1】我的第一个程序加法器。第2步，为指定的控件写入相应的属性值 控件属性值FormNameForm1CaptionForm1LabelNameLabel1Caption第一个数LabelNameLabel2Caption第二个数TextNameText1CaptionTextNameText2CaptionCommandNameCommand1Caption计算CommandNameCommand2Captin和为：第3步，双击“计算”按钮，输入代码【案例1.1】我的第一个程序加法器。VB的工作原理事件驱动 传统结构化编程的思路是：根据程序实现的功能，写出一个主程序和若干子程序，执行时从主程

4、序的第一句开始，不断的转向子程序中并在程序运行中暂停输入数据，这样一旦出错就得从头开始一步一步去检查。而VB编程只需要对界面中的每一个对象的事件写出相对应的代码，执行时一般是一段程序对应一个单一的功能。也就是说，一个主程序统一控制的局面被分解成许多独立的小模块，每一个模块又独立的由各种事件来驱动。控件的添加 1控件的选择：在工具箱里用鼠标左键单击控件选中2控件的添加：鼠标的指针成为十字型的时候，在指定位置按下鼠标左键并拖动，会得到一个随鼠标拖动而变化大小的矩形框，放开鼠标左键，会产生一个控件的实例。也可以在工具箱中的控件上双击鼠标左键，这样可以快速的在窗体中产生一个控件的实例，只是它的位置和大

5、小采取系统的默认值。3创建多个不同的控件：先在工具箱中选择控件，然后再窗体中按第2步的方法创建任意一个控件的实例。产生一个控件实例以后，鼠标指针已经还原，再继续拖拽鼠标不会产生新的实例。如果要创建控件的多个实例，则可以按住Ctrl键再用鼠标左键单击工具箱中的控件，这里在窗体中创建一个控件实例后，鼠标的形状还保持十字不变，这样可以连续创建控件的实例。【案例1.2】我的文字会隐藏 单击“显示”按钮在窗体上显示文本；单击“隐藏”按钮隐藏文本；单击“退出”按钮可结束程序，关闭窗体。操作步骤启动VB向窗体中添加控件：添加一个标签，三个按钮设置标签控件的属性： Caption世上无难事，只要肯登攀。 Vi

6、sibleFalse设置命令按钮的属性：将三个按钮的Caption属性分别设为“显示”、“隐藏”、“退出”编辑程序代码：双击“显示”按钮，输入“Label1.Visible=True”双击“隐藏”按钮，输入“Label1.Visible=False”双击“退出”按钮，输入“Unload Form1”【案例1.2】我的文字会隐藏本章小结对于初涉编程的同学们来说，Basic语言可能是最好的开端；而选择VB6.0则为这种语言提供了优秀的可视化集成编程环境。作为一种大众化的编程工具，Visual Basic具有强大的功能，这一点，同学们可以在学习完本章就有了初步的认识，等学完本书后，你就更能体会出她的

7、易学易用性。本章，你知道了什么是编程？为什么要编程？编程过程及用户界面的设计，当然还有界面元素（控件）的属性及设置。对VB6.0的工作集成环境有了认识，以后，它就是你手中的设计工具，把你头脑中的想法通过它来完成吧，相信自己，你一定能行。项目二 窗体及输入输出学习目标了解窗体的信息输出理解数据的输入了解信息输出的格式掌握信息输入、输出的对话框的使用掌握如何运用输入输出的运用知识1 窗体的常用属性常用属性意义Caption返回设置窗口标题栏中的显示文本Backcolor设置窗体的背景颜色Height返回、设置窗体的高度Width返回、设置窗体的宽度maxbutton设置窗体是否具有最大化按钮功能M

8、inbutton设置窗体是否具有最小化按钮功能Mousepoint设置鼠标经过窗体时显示的鼠标形状Picture设置窗体背景图片，默认无图片Visible设置窗体是否是可视的1窗体的建立每次装入Visual Basic或从File菜单中选择新建项目，一个空白的窗体自动出现在屏幕上。可以开始画用户界面了。对一个简单的程序，一个窗体已经足够了。但是对于一个长程序，也许需要用两个、三个、或者十几个窗体。为了创建另一个窗体，你可以单击工具栏中的第二个按钮来添加第二个窗体。知识1 窗体的常用属性2.窗体的存储在创建一个窗体之后，用户也许需要保存它，这样以后不必再创建它，为了存储一个窗体，Visual B

9、asic提供了两种方法：从文件菜单中单击保存按Ctrl+s键， 知识1 窗体的常用属性3窗体的边框边框使得窗体看上去漂亮。根据BorderStyle（边框类型）属性，窗体可以有几种不同的类型：0-None1-Fixed Single2-Sizable3-Fixed Dialob4-Fixed ToolWindow5-Sizable ToolWindow知识1 窗体的常用属性知识2 信息的输出Print方法：1 格式 对象名.Print Spc(n)|Tab(m) 表达式 抑制换行符2 说明（1）对象名参数指定了文本的显示地方（下例中指定的是“Form1”-即窗体），这个参数可以取以下四个值之一

10、。窗体名称、图片框名称、调试窗口(debug)或者printer（打印机）。 也可以省略对象名，那么结果将在当前窗体中显示文本。当文本出现在窗体中时，文本将会成为窗体背景的一部分。文本将在窗体中所有的控件之下出现，因此很少在应用程序的主窗体中使用print来显示文本，而是运用专门的文本信息显示。（2）n为插入空格的个数，spc为产生n个空格的相对定位函数（3）m为插入点定位的列号,Tab为横向绝对列定位函数使用无参数的Tab表示插入点定位在下一列。在同一行上m的值应该是递增的，不然会从下一行显示。知识2 信息的输出知识3 信息的输入 InputBox函数1语法格式：InputBox(promp

11、t,title,default,xpos,ypos,helpfile,context)BackString=InputBox(prompt,title,default,xpos,ypos,helpfile, context )选项中参数对应的中文含义为： InputBox(提示信息,标题,缺省值,X坐标,Y坐标)如：BackString= InputBox(“请输入用户名:”,“安全”,“张三”, 800, 800)BackString 对话框中的返回值prompt 对话框中显示的提示信息，必选项title 可选，对话框的标题，缺省标题为应用程序名default 可选，输入文本框中的缺省值xp

12、os,ypos 对话框与屏幕左边和上边的距离知识3 信息的输入 2作用： 该函数能产生一个对话框，并显示提示，等待用户输入正文或按下按钮，如果用户单击OK或按下ENTER，则InputBox函数返回文本框中的内容，输入的是数值，就返回数值，是字符串就返回字符串3说明：（1）提示信息：最大长度为1024个字符,VB将长消息自动换行（2）缺省值：可选显示文本框中的字符串表达式，在没有其它输入时作为缺省值如果省略default，则文本框为空（3）X坐标缺省时，输入框水平居中（4）Y坐标缺省时，输入框垂直居中知识3 信息的输入 知识4 信息框的使用MsgBox函数1格式：MsgBox( prompt

13、,buttons ,title ,helpfile, context )2作用：弹出信息框3参数说明： Prompt：对话框中显示的消息 如果有多行信息，则每行结尾加上回车符chr(10) 和换行符chr(13)，或者常量vbCrlf知识4 信息框的使用知识4 信息框的使用【案例2.1】密码的控制 模拟用户登录界面，利用输入对话框要求用户输入密码（假设密码为“abcd”）， 如果输入正确，则开始程序，否则退出程序。知识4 信息框的使用【案例2.1】密码的控制【案例2.1】密码的控制1密码的输入 在程序运行的时候，可以通过inputbox获得数据，然后再和指定的密码比较2信息提示 在密码不正确而

14、退出的时候，应该用MsgBox函数提示用户错误。这里需要使用选择语句来实现智能的判断。3在窗体中放入一按钮，显示的文字为“登录”； 然后，在command1_click( )的程序代码中输入如下代码： Private Sub Command1_Click() xx$ = InputBox(请输入你的密码:, 登录, , 3800, 2000) If xx$ abcd Then yy = MsgBox(你输入的密码不对, vbOKOnly, 提示信息) End End If Print 欢迎使用! End Sub【案例2.1】密码的控制本章小结Visual Basic 6.0是我们手中实现自己设

15、计思想并为用户提供服务的有利工具。本章让我们了解了窗体的外衣是如何改变的。并且我们理解了如何利用inputbox( )函数为程序随机的提供数据，程序会根据获得的数据进行处理。我们还利用了Msgbox( )函数进行动态的输出，让用户在使用程序过程中得到有益的提醒。我们利用了程序进行了密码控制，可以更加有效的使程序更加的智能化。当然，在以后的程序设计和开发过程中，你人更多的函数和方法，让你的程序实现更多、更好的功能。学习目标了解标签控件的属性了解文本框的属性了解命令按钮的属性掌握控件综合运用 项目三 VB基本控件的使用功能：常用于显示不可编辑的文本，作为说明文字文字使用。知识1 标签 对象属性属性

16、值说明名称Label1设置标签的名称CaptionLabel1设置标签的内容AutoSizeTrue标签长度是否随标签中文本长度的改变而改变FalseAlignment0设置标签上显示文本的对齐方式0代表文本左对齐1代表文本右对齐2 代表文本居中12BackStyle0设置标签的背景是否透明，0代表透明；1代表不透明1BorderStyle0设置标签边框类型，0代表无边框；1代表单线边框1属性：【案例3.1】让标签文字对齐设计如图界面，实现单击“左”按钮标签标题左对齐，单击“中”按钮标签标题居中，单击“右”按钮标签标题右对齐。 设置各控件属性值 对象属性属性值Label1CaptionVBFo

17、nt三号BackColor&H00000000&（黑色）ForeColor&H00FFFFFF&（白色）Command1Caption左Command2Caption中Command3Caption右Private Sub Command1_Click() Label1.Alignment = 0End SubPrivate Sub Command2_Click() Label1.Alignment = 2End SubPrivate Sub Command3_Click() Label1.Alignment = 1End Sub提示：如果标签已经设置AutoSize属性为True，那么标签大

18、小恰好容纳文本，此时将看不到Aligement属性设置的对齐效果。 双击三个按钮，分别输入下列代码：【案例3.2】会变的标签 设计窗体实现单击窗体，标签会变为透明，单击标签，标签具有单线边框。 单击标签后的效果对象属性属性值Form1BackColor&H00FFFFFF&（白色）Label1Caption会变的标签AutoSizeTrueFont三号设置控件的属性值 代码：Private Sub Form_Click() Label1.BackStyle = 0End SubPrivate Sub Label1_Click() Label1.BorderStyle = 1End Sub 提示

19、：如果标签的BackStyle属性值为0，此时标签变为透明，将看不到标签的背景色。功能：文本框控件常用于显示需要编辑的文本。 知识2 文本框 属性：对象属性属性值说明TextText1设置文本框中显示的文本。PasswordChar空设置文本框中的口令符。LockedTrue设置是否锁定文本而不可被编辑。值为True时，文本锁定不能被编辑；值为False时，文本可以被编辑.FalseMultiLineTrue设置是否可以在文本框中输入多行文本。值为True时，允许在文本框中输入多行文本；值为False时，则不允许。FalseScrollBars0设置文本框中是否有水平和垂直滚动条。值为0时，文

20、本框中无滚动条；值为1时，有水平滚动条；值为2时，有垂直滚动条；值为3时，既有水平滚动条也有垂直滚动条。123MaxLength0设置文本框中最多可容纳的字符数。控件事件：Change事件，当文本框中的Text属性值发生改变时，触发Change事件，程序运行后，在文本框中每输入一个字符，就会引发一次Change事件。 【案例3.3】同步的文本内容 设计如图窗体，在Text1中输入字符时，Text2中同步显示输入的内容，但Text2中的文本不可直接被编辑。 设置各控件属性值 对象属性属性值Text1Text空MultilineTrueScrollBars2Text2Text空MultilineT

21、rueScrollBars1LockedTrue代码：Private Sub Text1_Change() Text2.Text = Text1.TextEnd Sub提示：只有当MultiLine属性值为True时，ScrollBars属性设置的滚动条才会有效。 【案例3.4】用户登录界面 设计如图学籍管理系统的登录界面，在Text2中输入的6位密码以“*”显示，单击“确定”按钮，Text2中的真正密码字符显示在窗体上；单击“退出”按钮，结束程序运行。设置控件的属性值 对象属性属性值Label1Caption请输入Font楷体，加粗，四号Label2Caption用户名：Label3Capt

22、ion密码：Text1Text空Text2Text空PasswordChar*MaxLength6Command1Caption确定Command2Caption退出代码：Private Sub Command1_Click() Print Text2.TextEnd SubPrivate Sub Command2_Click() EndEnd Sub运行： 在文本框Text1中输入“admin”，在文本框Text2中输入“123456”，单击“确定”按钮，窗体上显示输入的密码，如图所示：提示：如果文本框的PasswordChar属性设置为一个字符，则在文本框中输入字符时，显示的不是输入的字符

23、，而是通过PasswordChar设置的字符。如果需要知道输入的字符是什么，可以通过文本框的Text属性获取。 功能：在应用程序中，命令按钮通常用来在单击时执行指定的操作。 知识3 命令按钮 属性：对象属性属性值说明CaptionCommand1设置命令按钮的标题。在标题中插入“&”符号则其后的字母为该按钮的快捷键。例：退出（&X）,此时按Alt+X与单击该命令按钮的作用相同。CancelTrue值为True时，按Esc键与单击该命令按钮的作用相同。在一个窗体中，只允许有一个命令按钮的Cancel属性为True。FalseDefaultTrue值为True时，按回车键与单击该命令按钮的作用相同

24、。在一个窗体中，只允许有一个命令按钮的Default属性为True。FalseStyle00代表标准样式，命令按钮中只显示文本；1代表图形格式，命令按钮中不仅可以显示文本，还可显示图形。1PictureNone为命令按钮指定一个图形。Style属性值必须为1，此属性才有效。事件：Click事件，单击命令按钮引发该事件。【案例3.5】按钮的简单应用 设计如图窗体，单击“默认”按钮，文本框中显示“Text1”；单击“确定”按钮或按回车键，窗体上显示文本框中的内容；单击“取消”按钮或按Esc键，结束程序运行。设置各控件属性值 对象属性属性值Command1Caption默认(&D)Command2C

25、aption确定DefaultTrueCommand3Caption取消CancelTrueText1Text空代码：Private Sub Command1_Click() Text1.Text = Text1End SubPrivate Sub Command2_Click() Print Text1.TextEnd SubPrivate Sub Command3_Click() EndEnd Sub 提示：如果焦点已经在命令按钮上，此时按回车键相当于单击焦点所在的命令按钮。 【案例3.6】文本的复制 设计如图窗体，单击“复制”按钮，将文本框Text1中的文本复制到Text2中，单击“清除

26、”按钮，清除两个文本框中的文本。 设置控件的属性值 对象属性属性值Command1Caption复制Style1PictureCopy.bmpCommand2Caption清除Style1PictureClear.bmpText1Text空Text2Text空代码：Private Sub Command1_Click()Text2 = Text1End SubPrivate Sub Command2_Click()Text1 = Text2 = End Sub 提示：按钮的大小可以根据图片的大小进行相应的调整，使文字显示在图片的下方。 本章小结本章介绍了标签控件、文本框控件和命令按钮控件的功能

27、、常用属性和事件。标签控件常用于显示系统的说明信息和为没有Caption属性的控件添加描述性文字，文本框控件主要用于显示文本和接受用户输入的文本，命令按钮控件常用于执行指定的操作。掌握标签控件、文本框控件和命令按钮控件的属性和功能，以及设置属性值的方法，对编写Visual Basic程序是大有好处的，也为今后学习更复杂的VB控件打下了坚实基础。项目四 VB程序设计 学习目标掌握VB中的各种数据类型VB中常量与变量的概念及定义方法熟练使用VB中的常用函数掌握VB中的选择结构和循环结构的基本格式 各种数据有不同的特性。例如，学生成绩是可计算的数值型数据，而学生姓名、性别是不需要计算的字符型数据。不

28、同类型的数据在计算机中的处理和组织是不同的，我们来看一看Visual Basic是如何在内存中组织不同类型的数据的。 基本数据类型 Visual Basic的数据类型 用户自定义数据类型知识1 数据类型数据类型关键字类型符前缀占字节数整型Integer%Int2长整型Long&lng4单精度Single!Sng4双精度Double#Dbl8字节型ByteByt1货币型CurrencyCur8字符型String$Str可变日期型Datedtm8逻辑型BooleanBln2对象型Objectobj4变体型Variantvnt可变知识1 数据类型1字符型（String）：字符型数据也称字符串。凡是用

29、双引号引起来的数据都是字符串。例如，”Visual Basic 6.0”、”中国”、”12345”、”1月20日”字符串的双引号不能省略，并且必须是“英文”状态下的双引号。组成字符串的字句可以是英文字母、汉字、数字和除双引号外的其他符号。字符串不能参加算术运算。不包含任何字符的字符串称为空串，用两个连续的双引号来表示（“”）。知识1 数据类型2整型（Integer）： 凡是在-32768 +32767之间的整数都称为整型数据。占用2个字节的内存空间，类型符是“%”。例如，234、4568、-32003长整型（Long）： 凡是在-2147483648 +2147483647之间的整数都称为长整

30、型数据。占用4个字节的内存空间，类型符是“&”。例如，400000、-237485、32768、345&4单精度实型（Single）： 凡是在-3.4028231038 +3.4028231038之间的实数都称为单精度型数据。占用4个字节的内存空间，有效位数最多为7，类型符是“！”。例如，3.1415、-12.13、123！知识1 数据类型5双精度实型（Double）： 凡是在-1.7976931348623210308 +1.7976931348623210308之间的实数都称为双精度型数据。占用8个字节的内存空间，有效位数最多为15，类型符是“#”。例如，2345.78#、-1234567

31、8.9、245#说明：在Visual Basic中单精度实型和双精度实型有两种表示方法：定点表示法和浮点表示法。定点表示法：即普通的表示实数的方法，如12.67、-154.79等。浮点表示法：当一个实数的位数较多时，先把该数写成科学计数法的形式，然后用大写的英文字母E表示底数10，再将指数写在后面。知识1 数据类型6逻辑型（Boolean）： 逻辑型数据也称为布尔型数据，只有真（True）和假（False）两个值。通常用True表示成立，用False表示不成立。7日期型（Date）： 用来表示日期和时间的数据。占用8个字节的内存空间，日期型数据用#月/日/年 时：分：秒AM或PM#表示。例如，

32、#12/26/2007#、#10：23：56AM#、#11/23/2008 11：23：45PM#8货币型（Currency）： 整数部分最多有15位数据，小数部分最多有4位数据，占用8个字节内存空间，类型符是“”。知识1 数据类型1常量在程序运行过程中其值始终保持不变的量称为常量。常量的数据类型在Visual Basic中，常量的数据类型有整型、长整型、单精度型、双精度型、字节型、货币型、字符型、日期型和逻辑型。分类方法同上一节所述，这里不再赘述。知识2 常量、变量及其定义方法2变量在程序运行过程中其值可以改变的量称为变量。（1）变量的命名每个变量都必须有一个唯一的名字，以便在程序中区分和引

33、用它们，给变量命名时要遵守以下规定：必须以字母开头，后面可以出现字母、数字和下划线。不能含有句号、空格和类型符。长度不超过255个字符，大小写不区分。不能与Vbd的保留字重名。知识2 常量、变量及其定义方法（2）变量的数据类型每个变量都有一个数据类型，变量的数据类型指定其可以存储的数据的类型，同时确定了变量在内存中占用的存储空间的大小。在Visual Basic中，变量的数据类型有整型、长整型、单精度型、双精度型、字节型、货币型、字符型、日期型和逻辑型。分类方法同上一节所述。（3）变量的定义在Visual Basic程序中，每一个变量必须先定义，后使用。定义的作用是为了便于系统分配合适的内存空

34、间给变量。知识2 常量、变量及其定义方法类型声明符 把类型声明符放在变量名的尾部，可以标识不同的变量类型.各种类型声明符表示的类型声明符 类型 % 整型 & 长整型 ! 单精度 # 双精度 货币型 $ 字符串型 知识2 常量、变量及其定义方法数学函数绝对值函数Abs 格式：Abs(x) 功能：求x的绝对值。平方根函数Sqr 格式：Sqr(x) 功能：求x的平方根。取整函数Int 格式：Int(x) 功能：求不大于x的最大整数。小数函数Fix 格式：Fix(x) 功能：截去x的小数部分，求x的整数部分。取整函数Int 格式：Int(x) 功能：求不大于x的最大整数。小数函数Fix 格式：Fix(

35、x) 功能：截去x的小数部分，求x的整数部分。 知识3 常用函数符号函数Sgn 格式：Sgn(x) 功能：求x的符号。当x为正数时，函数结果为1；当x为0时，函数结果为0；当x为负数时，函数结果为-1。 随机函数Rnd 格式：Rnd(x) 功能：求（0，1）之间的一个随机数。 知识3 常用函数字符串函数测字符串长度函数Len 格式：Len(字符串) 功能：计算字符串中包含的字符数。左子串函数Left 格式：Left(字符串，长度) 功能：从“字符串”的最左边开始，截取指定长度的字符，组成新的字符串。右子串函数Right 格式：Right(字符串，长度) 功能：从“字符串”的末尾开始，截取指定长

36、度的字符，组成新的字符串。截子串函数Mid 格式：Mid(字符串，起始位置，长度) 功能：从指定“字符串”的指定位置开始，截取指定长度的字符，组成新的字符串。删除前导空格函数Ltrim 格式：Ltrim(字符串) 功能：删除字符串开头的空格。 知识3 常用函数删除尾随空格函数Rtrim 格式：Rtrim(字符串) 功能：删除字符串末尾的空格。删除空格函数Trim 格式：Trim(字符串) 功能：删除字符串的前导空格和尾随空格。字符串函数String 格式：String(字符个数，字符) 功能：生成由指定字符组成的指定长度的字符串。 知识3 常用函数转换函数数值转换为字符函数Str 格式：Str

37、(数值表达式) 功能：将“数值表达式”的值转换成字符串。字符转换为数值函数Val 格式：Val(字符表达式) 功能：将“字符表达式”中的数字字符转换为数值型数据。ASCII码函数Asc 格式：Asc(字符表达式) 功能：返回“字符表达式”的值的第1个字符的ASCII码值。 知识3 常用函数字符函数Chr 格式：Chr(数值表达式) 功能：返回以“数值表达式”的值为ASCII码值的字符。大写字母转换为小写字母函数Lcase 格式：Lcase(字符表达式) 功能：将“字符表达式”的值中的大写字母转换为小写字母。小写字母转换为大写字母函数Ucase 格式：Ucase(字符表达式) 功能：将“字符表达

38、式”的值中的小写字母转换为大写字母 知识3 常用函数日期函数日期函数Date 格式：Date 功能：返回当前系统日期。时间函数Time 格式：Time 功能：返回当前系统时间。日期时间函数Now 格式：Now 功能：返回当前系统日期和时间。年份函数Year 格式：Year(日期表达式) 功能：返回日期表达式中的年的数据。知识3 常用函数月份函数Month 格式：Month(日期表达式) 功能：返回日期表达式中的月的数据。日函数Day 格式：Day(日期表达式) 功能：返回日期表达式中的日的数据。星期函数Weekday 格式：Weekday(日期表达式) 功能：返回日期表达式中的星期的数据。 说

39、明：1代表星期日、2代表星期一等。知识3 常用函数单分支选择结构 单分支选择结构只有一个程序分支，只有满足指定的条件，才执行该程序分支的语句。1单分支行If语句 格式：If Then 功能：当条件成立时执行语句。 说明：（1）“语句”必须是一条语句 （2）单分支行If语句必须写在一行上知识4 选择结构2.单分支块If语句 格式：If Then End If 功能：根据“条件”选择是否执行“语句组”中的语句。 说明： (1)条件是一个逻辑表达式或关系表达式 (2)“语句组”由一条或多条语句组成 (3)If语句开头，End If语句结束，必 须成对出现，End If中间空格不能省略知识4 选择结构

40、3.双分支选择结构 双分支选择结构提供两个程序分支，程序根据判断的结果，在两个程序分支中选择其一执行。双分支行If语句 格式：If Then Else 功能：如果条件成立，执行“语句1”，否则“语句2”。 说明：（1）“语句1”、“语句2”必须是一条语句 （2）双分支行If语句必须写在一行上知识4 选择结构双分支块If语句 格式：If Then Else End If 功能：根据“条件”的值，执行“语句组1”或“语句组2”。 说明：（1）条件是一个逻辑表达式或关系表达式 （2）“语句组1”、“语句组2”由一条或多条语句组成 （3）If语句开头，End If语句结束，必须成对出现，End If中

41、间空格不能省略知识4 选择结构4.多分支选择结构 如果根据条件选择执行的程序分支多于两个时，则通常使用多分支选择结构。多分支选择结构可以提供多个程序分支，但同一时刻只能执行其中的一个程序分支，也可能一个分支也不执行。多分支块If语句 格式：If Then ElseIf Then ElseIf Then ElseIf Then End If 功能：根据“条件1”，“条件2”，“条件n”的值，选择是否执行对应的“语句组”。 说明：ElseIf是一个单词，中间没有空格；End If是两个单词，中间有空格。知识4 选择结构多条件分支语句 格式：Select Case Case Case Case Ca

42、se Else End Select 功能：根据“测试表达式”和“表达式表1”，“表达式表2”，“表达式表n”的值，选择是否执行相应的“语句组”。 说明：（1）Select Case语句开头，End Select语句结束，必须成对出现。 （2）“测试表达式”可以是算术表达式或字符表达式 比较“测试表达式”的值与“表达式表”的值是否满足条件的各种方法：知识4 选择结构 循环结构中，程序可以根据是否满足指定的条件重复执行某个程序段。Visual Basic中提供了两类循环结构：基于条件的循环和指定次数的循环。基于条件的循环1循环语句WhileWend 格式：While Wend 功能：当“条件”的

43、值为True时，反复执行“循环体”中的语句。直到“条件”的值为False时，结束循环。 说明：（1）While语句开头，Wend语句结束。 （2）“条件”为逻辑表达式或关系表达式 （3）“循环体”由一条或多条语句组成知识5 循环结构2“当型”循环语句 格式1：Do While Loop 功能：当“条件”的值为True时，反复执行“循环体”中的语句。直到“条件”的值为False时，结束循环。 格式2： Do Loop While 功能：当“条件”的值为True时，反复执行“循环体”中的语句。直到“条件”的值为False时，结束循环。 说明：1）Do语句开头，Loop While语句结束。 2）“

44、条件”为逻辑表达式或关系表达式 3）“循环体”由一条或多条语句组成知识5 循环结构3“直到型”循环语句（1） Do UntilLoop语句 格式：Do Until Loop 功能：当“条件”的值为False时，反复执行“循环体”中的语句。直到“条件”的值为True时，结束循环。（2）DoLoop Until语句 格式：Do Loop Until 功能：当“条件”的值为False时，反复执行“循环体”中的语句。直到“条件”的值为True时，结束循环。 知识5 循环结构指定次数的循环 当我们事先知道循环的次数时，我们可以用指定次数的循环。 For循环语句 格式：For = To Step 步长 N

45、ext 循环控制变量 说明：(1)For语句开始，Next语句结束 (2)“循环控制变量”是一个数值型变量 (3)“循环体”可以写一条或多条语句 知识5 循环结构本章小结本章内容主要为编写VB程序打基础，介绍一些与程序设计有关的基础知识，重点介绍了VB中的基本数据类型、VB中常量与变量的概念及定义方法、VB中的常用函数的使用、VB中的选择结构和循环结构。要求同学们掌握常量和变量的数据类型，使用Dim语句定义变量，使用赋值语句为变量赋值。本章还介绍了VB中的常用函数，要求正确使用函数的格式和功能。在本章同学还学习了了VB中的选择结构和循环结构，这是编好一个程序的基础，要求会正确使用结构的格式，并

46、能运用各种结构编写简单的程序。项目五 VB常用控件 学习目标掌握框架和单选按钮的使用掌握复选框的的使用掌握下拉列表框和组合框的使用掌握滚动条的使用掌握计时器的使用知识1 框架和单选按钮控件功能：框架的主要作用是作为容器以放置其他控件对象。将控件对象分成相互独立的控件组。单选按钮由一个圆圈及其右边的文字组成，是一种表示状态的选项，通常以选项组的形式出现。对于一组单选按钮，只能选择其中之一 控件属性：控件属性属性值说明名称Option1设置单选按钮的名称，CaptionOption1设置按钮的标题。EnabledTrue设置按钮是否可用FalseValueTrue设置按钮是否为选中状态False控

47、件属性属性值说明名称Frame1设置框架的名称，CaptionFrame1设置框架的标题。知识1 框架和单选按钮【案例5.1】设置字体字号颜色 要求：设计如图窗体，单击不同的单选按钮，改变标签的字号、字体和颜色 对象对象名称属性属性值标签Label1Caption好好学习 天天向上框架Frame1Caption字号Frame2Caption字体Frame3Caption颜色单选按钮Option1Caption12Option2Caption22Option3Caption32Option4Caption宋体Option5Caption黑体Option6Caption隶书Option7Capti

48、on红色Option8Caption蓝色Option9Caption绿色【案例5.1】设置字体字号颜色部分程序代码Private Sub Option1_Click() Label1.FontSize=12End SubPrivate Sub Option4_Click() Label1.FontName=”宋体”End SubPrivate Sub Option7_Click() Label1.ForeColor=VBRedEnd Sub【案例5.1】设置字体字号颜色【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。对象对象名称属性属性值标签Label1Capt

49、ion空框架Frame1Caption交通Frame2Caption地点单选按钮Option1Caption飞机Option2Caption火车Option3Caption广州Option4Caption昆明【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。代码Private Sub Form_Click() If Option1.Value = True Then a = 飞机 Else a = 火车 End If If Option3.Value = True Then b = 广州 Else b = 昆明 End If Label1.Caption = 坐

50、+ a + 去 + bEnd Sub【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。知识2 复选框控件功能：复选框由一个矩形框及其右边的文字组成。当存在多个复选框时，每个复选框都是相互独立的，可以多选、单选，也可以一个都不选。控件属性属性值说明NameCheck1设置复选框的名称CaptionCheck1设置复选框的标题EnabledTrue设置复选框是否可用FalseValue0复选框为未选中状态1复选框为选中状态2复选框处于禁止状态，灰色知识2 复选框【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 对象对象名称属性属性值标签Label1Ca

51、ption复选框的应用Font三号复选框Check1Caption粗体Check2Caption斜体Check3Caption下划线【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 代码：Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else

52、 Label1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Label1.FontUnderline =True Else Label1.FontUnderline =False End IfEnd Sub【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 对象对象名称属性属性值文本框Text1Text空复选框Check1Caption上网Check2Caption读书命令按钮Co

53、mmand1Caption确定Command2Caption退出【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 部分程序代码：Private Sub Command1_Click() If Check1.Value = 1 Then a = 上网 End If If Check2.Value = 1 Then b = 读书 End If Text1.Text = 我喜欢 + a + b End Sub【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”； 知识3 列表框控件功能：列表框控件提供一个选项列表，用户可以从中选择一项或多项。控件属性

54、属性值说明名称List1设置列表框的名称。Columns0显示列表项目时的列数。List空设置列表项目内容（设计或运行时都可以设置）。Style00：标准11：复选框形式MultiSelect0列表框不支持多选。1列表框支持简单多选。按住Ctrl键同时逐个选择多个项目。2列表框支持扩展多选；按住Ctrl键同时逐个选择多个项目；按住Shift键同时可以选择多个连续的项目。SortedTrue列表框中的项目是否排序，True排序，False不排序。False知识3 列表框控件属性说明ListCount返回列表框中的总项目数。ListIndex返回已选中项目的序号（项目序号从0开始）。Text返回当

55、前选中项目的文本内容。Selected判断列表框中的项目是否被选中，True为选中；False为未选中。Selcount返回选中项目数知识3 列表框事件：1.Click：单击列表框时引发该事件。2.DblClick：双击列表框时引发该事件。知识3 列表框方法：1. 添加项目（AddItem）格式：.AddItem 功能：向列表框中添加项目，项目内容要用双引号引起来。2 删除项目（RemoveItem）格式：.RemoveItem 功能：从指定列表框中删除指定的项目，索引值为要删除项目的序号即ListIndex的值。3 删除所有选项（Clear）格式：.Clear功能：删除指定列表框中所有项目知

56、识3 列表框【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。 对象对象名称属性属性值标签Label1Caption项目数Label2Caption选中项目内容Label3Caption选中项目序号文本框Text13Text空列表框List1ListA,BB命令按钮Command1Caption确定【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。 在列表框中设置List属性时，每输入一项后要按Ctrl+回车后再输入下一项。代码Private Sub Command1_Click() Text1.Text = List1.ListCount Text

57、2.Text = List1.Text Text3.Text = List1.ListIndexEnd Sub【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。 【案例5.6】 在文本框中输入文字，单击“添加”按钮，将文本框中文字添加到列表框中对象对象名称属性属性值文本框Text1Text空列表框List1ListA,BB命令按钮Command1Caption添加代码Private Sub Command1_Click() List1.AddItem Text1.TextEnd Sub【案例5.6】 在文本框中输入文字，单击“添加”按钮，将文本框中文字添加到列表框中【案例

58、5.7】 在列表框中选择一项，单击“删除”按钮，则删除此项。对象对象名称属性属性值列表框List1ListA,BB命令按钮Command1Caption删除Private Sub Command1_DblClick() List1.RemoveItem List1.ListIndexEnd Sub 【案例5.7】 在列表框中选择一项，单击“删除”按钮，则删除此项。知识4 组合框控件功能：组合框实际就是文本框和列表框的组合控件属性属性值说明名称Combo1设置组合框的名称Style0下拉组合框：用户可在列表中选择也可直接输入项目1简单组合框：用户可在列表中选择也可直接输入项目2下拉列表框：用户只

59、能在列表中选择项目【案例5.8】建立如图三个类型的组合框，并输入相应内容 对象对象名称属性属性值组合框Combo1List1,2Style0Combo2List a,bStyle1Combo3List甲,乙Style2【案例5.8】建立如图三个类型的组合框，并输入相应内容 【案例5.9】在两个组合框中选择姓名和科目，单击确定按钮，在文本框中显示“XXX选修XXX科目” 对象对象名称属性属性值组合框Combo1List张三，李四，王五Style2Combo2List VB,3DMAXStyle1文本框Text1Text空命令按钮Command1Caption确定Private Sub Comma

60、nd1_Click()Text1.Text=Combo1.Text+”选修”+ Combo2.Text+”科目”End Sub【案例5.9】在两个组合框中选择姓名和科目，单击确定按钮，在文本框中显示“XXX选修XXX科目” 知识5 滚动条控件功能：用于辅助浏览显示内容、确定位置，也可作为数据输入工具。控件分类：滚动条分为水平滚动条和垂直滚动条两类。 事件：Change事件：当滚动条上的滚动块位置发生变化时触发本事件Scroll事件：当用鼠标直接拖动滚动块时触发本事件控件属性属性值说明名称HScroll1设置水平滚动条的名称Vscroll1设置垂直滚动条的名称Min0滚动块位于滚动条左端或顶端时