《Visual Basic 6.0可视化编程与实训》完整版课件全套ppt教学教程最全整套电子讲义幻灯片（最新）

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

2、一个控 件，鼠标指针变成十字，在 窗体上单击左键即可。双击 控件则可添加该控件的程序 代码）。 用户界面 o 属性窗口 属性窗口是用来设置对象 的颜色、字体、大小和尺寸之 类的属性，这些属性可以通过 属性窗口进行修改。 用户界面 o 窗体布局窗口 窗体布局窗口是用来设置窗 体在“屏幕”中的位置，这种设置 将影响程序运行时窗体在屏幕的初 始位置，这个窗口增强了Visual B a s i c 的 可 视 化 功 能 。 用户界面 o 工程管理器窗口 工程管理器窗口用来显示 一个应用程序中所有的组件（类 似于浏览器），如工程、窗体、 模块等等。 用户界面 【案例1.1】我的第一个程序加法器。 设计

3、一个加法器程序，输入两个数，点 “计算”按钮算出两个数的和。 o第第1步步：在空白窗体中放入指定控件。 【案例1.1】我的第一个程序加法器。 o第第2步步，为指定 的控件写入相应 的属性值 控件控件属性属性值值 Form NameForm1 CaptionForm1 Label NameLabel1 Caption第一个数 Label NameLabel2 Caption第二个数 Text NameText1 Caption Text NameText2 Caption Command NameCommand1 Caption计算 Command NameCommand2 Captin和为：

4、o第第3步步，双击“计算”按钮，输入代码 【案例1.1】我的第一个程序加法器。 VB的工作原理的工作原理事件驱动事件驱动 o传统结构化编程的思路是：根据程序实现的功能，写出一个主 程序和若干子程序，执行时从主程序的第一句开始，不断的转 向子程序中并在程序运行中暂停输入数据，这样一旦出错就得 从头开始一步一步去检查。而VB编程只需要对界面中的每一个 对象的事件写出相对应的代码，执行时一般是一段程序对应一 个单一的功能。也就是说，一个主程序统一控制的局面被分解 成许多独立的小模块，每一个模块又独立的由各种事件来 驱动。 控件的添加控件的添加 1控件的选择：在工具箱里用鼠标左键单击控件选中 2控件的

5、添加：鼠标的指针成为十字型的时候，在指定位置按下 鼠标左键并拖动，会得到一个随鼠标拖动而变化大小的矩形框， 放开鼠标左键，会产生一个控件的实例。也可以在工具箱中的 控件上双击鼠标左键，这样可以快速的在窗体中产生一个控件 的实例，只是它的位置和大小采取系统的默认值。 3创建多个不同的控件：先在工具箱中选择控件，然后再窗体中 按第2步的方法创建任意一个控件的实例。产生一个控件实例 以后，鼠标指针已经还原，再继续拖拽鼠标不会产生新的实例。 如果要创建控件的多个实例，则可以按住Ctrl键再用鼠标左键 单击工具箱中的控件，这里在窗体中创建一个控件实例后，鼠 标的形状还保持十字不变，这样可以连续创建控件的

6、实例。 【案例1.2】我的文字会隐藏 单击“显示”按 钮在窗体上显示文 本；单击“隐藏” 按钮隐藏文本；单 击“退出”按钮可 结束程序，关闭窗 体。 启动VB 向窗体中添加控件：添加一个标签，三个按钮 设置标签控件的属性： Caption世上无难事，只要肯登攀。 VisibleFalse 设置命令按钮的属性：将三个按钮的Caption属性分别设为“显 示”、“隐藏”、“退出” 编辑程序代码：双击“显示”按钮，输入“Label1.Visible=True” 双击“隐藏”按钮，输入“Label1.Visible=False” 双击“退出”按钮，输入“Unload Form1” 【案例1.2】我的文

7、字会隐藏 本章小结 o对于初涉编程的同学们来说，Basic语言可能是最好的开端； 而选择VB6.0则为这种语言提供了优秀的可视化集成编程环境。 o作为一种大众化的编程工具，Visual Basic具有强大的功能， 这一点，同学们可以在学习完本章就有了初步的认识，等学完 本书后，你就更能体会出她的易学易用性。 o本章，你知道了什么是编程？为什么要编程？编程过程及用户 界面的设计，当然还有界面元素（控件）的属性及设置。对 VB6.0的工作集成环境有了认识，以后，它就是你手中的设计 工具，把你头脑中的想法通过它来完成吧，相信自己，你一定 能行。 项目二 窗体及输入输出 o了解窗体的信息输出 o理解数

8、据的输入 o了解信息输出的格式 o掌握信息输入、输出的对话框的使用 o掌握如何运用输入输出的运用 知识知识1 窗体的常用属性窗体的常用属性 常用属性常用属性意义意义 Caption返回设置窗口标题栏中的显示文本 Backcolor设置窗体的背景颜色 Height返回、设置窗体的高度 Width返回、设置窗体的宽度 maxbutton设置窗体是否具有最大化按钮功能 Minbutton设置窗体是否具有最小化按钮功能 Mousepoint设置鼠标经过窗体时显示的鼠标形状 Picture设置窗体背景图片，默认无图片 Visible设置窗体是否是可视的 1窗体的建立窗体的建立 o 每次装入Visual

9、Basic或从File菜单中选择 新建项目，一个空白的窗体自动出现在 屏幕上。可以开始画用户界面了。 o 对一个简单的程序，一个窗体已经足够了。 但是对于一个长程序，也许需要用两个、三 个、或者十几个窗体。为了创建另一个窗体， 你可以单击工具栏中的第二个按钮来添加第 二个窗体。 知识知识1 窗体的常用属性窗体的常用属性 2.窗体的存储窗体的存储 o 在创建一个窗体之后，用户也许需要保存它， 这样以后不必再创建它，为了存储一个窗体， Visual Basic提供了两种方法： 从文件菜单中单击保存 按Ctrl+s键， 知识知识1 窗体的常用属性窗体的常用属性 3窗体的边框窗体的边框 边框使得窗体看

10、上去漂亮。根据BorderStyle（边框 类型）属性，窗体可以有几种不同的类型： 0-None 1-Fixed Single 2-Sizable 3-Fixed Dialob 4-Fixed ToolWindow 5-Sizable ToolWindow 知识知识1 窗体的常用属性窗体的常用属性 知识知识2 信息的输出信息的输出 Print方法： 1 格式 对象名.Print Spc(n)|Tab(m) 表达式 抑制换行符 2 说明 （1）对象名参数指定了文本的显示地方（下例中指定的是“Form1”-即 窗体），这个参数可以取以下四个值之一。窗体名称、图片框名称、 调试窗口(debug)或者

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

12、mpt,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 可选，输入文

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

14、知识4 信息框的使用信息框的使用 MsgBox函数 1格式：MsgBox( prompt ,buttons ,title ,helpfile, context ) 2作用：弹出信息框 3参数说明： Prompt：对话框中显示的消息 如果有多行信息，则每行结尾加上回车符chr(10) 和换行符chr(13)，或 者常量vbCrlf 知识知识4 信息框的使用信息框的使用 知识知识4 信息框的使用信息框的使用 【案例2.1】密码的控制 模拟用户登录界面，利用输入对话框要求用 户输入密码（假设密码为“abcd”）， 如果 输入正确，则开始程序，否则退出程序。 知识知识4 信息框的使用信息框的使用 【案

15、例2.1】密码的控制 【案例2.1】密码的控制 1密码的输入 在程序运行的时候，可以通过inputbox获得数据，然后再和指定的密码比较 2信息提示 在密码不正确而退出的时候，应该用MsgBox函数提示用户错误。这里需要使 用选择语句来实现智能的判断。 3在窗体中放入一按钮，显示的文字为“登录”； 然后，在command1_click( )的程序代码中输入如下代码： Private Sub Command1_Click() xx$ = InputBox(请输入你的密码:, 登录, , 3800, 2000) If xx$ abcd Then yy = MsgBox(你输入的密码不对, vbOK

16、Only, 提示信息) End End If Print 欢迎使用! End Sub 【案例2.1】密码的控制 本章小结 o Visual Basic 6.0是我们手中实现自己设计思想并为用户提 供服务的有利工具。本章让我们了解了窗体的外衣是如 何改变的。并且我们理解了如何利用inputbox( )函数为程 序随机的提供数据，程序会根据获得的数据进行处理。我们 还利用了Msgbox( )函数进行动态的输出，让用户在使用程 序过程中得到有益的提醒。 o 我们利用了程序进行了密码控制，可以更加有效的使程序更 加的智能化。当然，在以后的程序设计和开发过程中，你人 更多的函数和方法，让你的程序实现更多

17、、更好的功能。 学习目标 o 了解标签控件的属性 o 了解文本框的属性 o 了解命令按钮的属性 o 掌握控件综合运用 项目三 VB基本控件的使用 功能：常用于显示不可编辑的文本，作为说明文字文字使用。 知识知识1 标签 对象属性对象属性属性值属性值说明说明 名称Label1设置标签的名称 CaptionLabel1设置标签的内容 AutoSize True 标签长度是否随标签中文本长度的改变而 改变 False Alignment 0设置标签上显示文本的对齐方式 0代表文本左对齐 1代表文本右对齐 2代表文本居中 1 2 BackStyle 0 设置标签的背景是否透明， 0代表透明；1代表不透

18、明 1 BorderStyle 0 设置标签边框类型，0代表无边框；1代表 单线边框 1 属性： 【案例3.1】让标签文字对齐 设计如图界面，实现单击“左”按钮标签标题左对齐，单击“中”按钮 标签标题居中，单击“右”按钮标签标题右对齐。 设置各控件属性值 对象对象属性属性属性值属性值 Label1 CaptionVB Font三号 BackColor&H00000000&（黑色） ForeColor&H00FFFFFF&（白色） Command1 Caption左 Command2 Caption中 Command3 Caption右 Private Sub Command1_Click()

19、Label1.Alignment = 0 End Sub Private Sub Command2_Click() Label1.Alignment = 2 End Sub Private Sub Command3_Click() Label1.Alignment = 1 End Sub 提示：如果标签已经设置AutoSize属性为True，那么标签大小恰好 容纳文本，此时将看不到Aligement属性设置的对齐效果。 双击三个按钮，分别输入下列代码： 【案例3.2】会变的标签 设计窗体实现单击窗体，标签会变为透明，单 击标签，标签具有单线边框。 单击标签 后的效果 对象对象属性属性属性值属性

20、值 Form1BackColor&H00FFFFFF&（白色） Label1 Caption会变的标签 AutoSizeTrue Font三号 设置控件的属性值 代码： Private Sub Form_Click() Label1.BackStyle = 0 End Sub Private Sub Label1_Click() Label1.BorderStyle = 1 End Sub 提示： 如果标签的BackStyle属性 值为0，此时标签变为透明， 将看不到标签的背景色。 功能：文本框控件常用于显示需要编辑的文本。 知识知识2 文本框文本框 属性： 对象属性对象属性属性值属性值说明说

21、明 TextText1设置文本框中显示的文本。 PasswordChar 空 设置文本框中的口令符。 Locked True 设置是否锁定文本而不可被编辑。 值为True时，文本锁定不能被编辑； 值为False时，文本可以被编辑.False MultiLine True 设置是否可以在文本框中输入多行文本。 值为True时，允许在文本框中输入多行文本； 值为False时，则不允许。False ScrollBars 0设置文本框中是否有水平和垂直滚动条。 值为0时，文本框中无滚动条； 值为1时，有水平滚动条； 值为2时，有垂直滚动条； 值为3时，既有水平滚动条也有垂直滚动条。 1 2 3 Max

22、Length0 设置文本框中最多可容纳的字符数。 控件事件： Change事件，当文本框中的Text属性值发生改变时，触发Change事件， 程序运行后，在文本框中每输入一个字符，就会引发一次Change事件。 【案例3.3】同步的文本内容 设计如图窗体，在Text1中输入字符时，Text2中同步显示输入的内容，但 Text2中的文本不可直接被编辑。 设置各控件属性值 对象对象属性属性属性值属性值 Text1 Text空 MultilineTrue ScrollBars2 Text2 Text空 MultilineTrue ScrollBars1 LockedTrue 代码： Private

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

24、t空 Text2 Text空 PasswordChar* MaxLength6 Command1 Caption确定 Command2 Caption退出 代码： Private Sub Command1_Click() Print Text2.Text End Sub Private Sub Command2_Click() End End Sub 运行： 在文本框Text1中输入“admin”，在文本框Text2中输入“123456”，单击“确定”按钮，窗体 上显示输入的密码，如图所示： 提示：如果文本框的PasswordChar属性设置为一个字符，则在文本框中输入 字符时，显示的不是输入

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

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

27、各控件属性值 对象对象属性属性属性值属性值 Command1 Caption默认(&D) Command2 Caption确定 DefaultTrue Command3 Caption取消 CancelTrue Text1 Text空 代码： Private Sub Command1_Click() Text1.Text = Text1 End Sub Private Sub Command2_Click() Print Text1.Text End Sub Private Sub Command3_Click() End End Sub 提示：如果焦点已经在命令按钮上，此时按回车键相当于单击

28、焦点所在的命 令按钮。 【案例3.6】文本的复制 设计如图窗体，单击“复制”按钮，将文本框 Text1中的文本复制到Text2中，单击“清除”按 钮，清除两个文本框中的文本。 设置控件的属性值设置控件的属性值 对象对象属性属性属性值属性值 Command1 Caption复制 Style1 PictureCopy.bmp Command2 Caption清除 Style1 PictureClear.bmp Text1 Text空 Text2 Text空 代码： Private Sub Command1_Click() Text2 = Text1 End Sub Private Sub Comm

29、and2_Click() Text1 = Text2 = End Sub 提示：按钮的大小可以根据图片的大小进行相应的调整，使文字显示在图 片的下方。 本章小结 o 本章介绍了标签控件、文本框控件和命令按钮控件的功能、 常用属性和事件。 o 标签控件常用于显示系统的说明信息和为没有Caption属性 的控件添加描述性文字，文本框控件主要用于显示文本和接 受用户输入的文本，命令按钮控件常用于执行指定的操作。 掌握标签控件、文本框控件和命令按钮控件的属性和功能， 以及设置属性值的方法，对编写Visual Basic程序是大有好 处的，也为今后学习更复杂的VB控件打下了坚实基础。 项目四 VB程序设

30、计 o掌握VB中的各种数据类型 oVB中常量与变量的概念及定义方法 o熟练使用VB中的常用函数 o掌握VB中的选择结构和循环结构的基本格式 各种数据有不同的特性。例如，学生成绩是可计算的数值型数据， 而学生姓名、性别是不需要计算的字符型数据。不同类型的数据在计算 机中的处理和组织是不同的，我们来看一看Visual Basic是如何在内存 中组织不同类型的数据的。 基本数据类型 Visual Basic的数据类型 用户自定义数据类型 知识知识1 数据类型数据类型 数据类型数据类型关键字关键字类型符类型符前缀前缀占字节数占字节数 整型Integer%Int2 长整型Long&lng4 单精度Sin

31、gle!Sng4 双精度Double#Dbl8 字节型ByteByt1 货币型CurrencyCur8 字符型String$Str可变 日期型Datedtm8 逻辑型BooleanBln2 对象型Objectobj4 变体型Variantvnt可变 知识知识1 数据类型数据类型 1字符型（String）： o 字符型数据也称字符串。凡是用双引号引起来的数据都是字符串。 例如，”Visual Basic 6.0”、”中国”、”12345”、”1月20 日” o 字符串的双引号不能省略，并且必须是“英文”状态下的双引号。 o 组成字符串的字句可以是英文字母、汉字、数字和除双引号外的 其他符号。 o

32、 字符串不能参加算术运算。 o 不包含任何字符的字符串称为空串，用两个连续的双引号来表示 （“”）。 知识知识1 数据类型数据类型 2整型（Integer）： 凡是在-32768 +32767之间的整数都称为整型数据。占用2个字 节的内存空间，类型符是“%”。例如，234、4568、-3200 3长整型（Long）： 凡是在-2147483648 +2147483647之间的整数都称为长整型 数据。占用4个字节的内存空间，类型符是“&”。例如，400000、- 237485、32768、345& 4单精度实型（Single）： 凡是在-3.4028231038 +3.4028231038之间的

33、实数都称 为单精度型数据。占用4个字节的内存空间，有效位数最多为7，类 型符是“！”。例如，3.1415、-12.13、123！ 知识知识1 数据类型数据类型 5双精度实型（Double）： 凡是在-1.7976931348623210308 +1.7976931348623210308之间的实数都称为双精度型数据。占 用8个字节的内存空间，有效位数最多为15，类型符是“#”。例如， 2345.78#、-12345678.9、245# 说明： o在Visual Basic中单精度实型和双精度实型有两种表示方法：定点表示 法和浮点表示法。 o定点表示法：即普通的表示实数的方法，如12.67、-1

34、54.79等。 o浮点表示法：当一个实数的位数较多时，先把该数写成科学计数法的形 式，然后用大写的英文字母E表示底数10，再将指数写在后面。 知识知识1 数据类型数据类型 6逻辑型（Boolean）： 逻辑型数据也称为布尔型数据，只有真（True）和假（False）两个 值。通常用True表示成立，用False表示不成立。 7日期型（Date）： 用来表示日期和时间的数据。占用8个字节的内存空间，日期型数据用 #月/日/年 时：分：秒AM或PM#表示。例如，#12/26/2007#、 #10：23：56AM#、#11/23/2008 11：23：45PM# 8货币型（Currency）： 整数

35、部分最多有15位数据，小数部分最多有4位数据，占用8个字节内 存空间，类型符是“”。 知识知识1 数据类型数据类型 1常量 o 在程序运行过程中其值始终保持不变的量称为 常量。 o 常量的数据类型 o 在Visual Basic中，常量的数据类型有整型、 长整型、单精度型、双精度型、字节型、货币 型、字符型、日期型和逻辑型。分类方法同上 一节所述，这里不再赘述。 知识知识2 常量、变量及其定义方法常量、变量及其定义方法 2变量 o 在程序运行过程中其值可以改变的量称为变量。 （1）变量的命名 n每个变量都必须有一个唯一的名字，以便在程序中区分和 引用它们，给变量命名时要遵守以下规定： n必须以

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

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

38、部分，求x的整数部分。 o取整函数Int 格式：Int(x) 功能：求不大于x的最大整数。 o小数函数Fix 格式：Fix(x) 功能：截去x的小数部分，求x的整数部分。 知识知识3 常用函数常用函数 o符号函数Sgn 格式：Sgn(x) 功能：求x的符号。当x为正数时，函数结果为1；当x为0时，函数结 果为0；当x为负数时，函数结果为-1。 o随机函数Rnd 格式：Rnd(x) 功能：求（0，1）之间的一个随机数。 知识知识3 常用函数常用函数 字符串函数 o测字符串长度函数Len 格式：Len(字符串) 功能：计算字符串中包含的字符数。 o左子串函数Left 格式：Left(字符串，长度)

39、 功能：从“字符串”的最左边开始，截取指定长度的字符，组成新的字符串。 o右子串函数Right 格式：Right(字符串，长度) 功能：从“字符串”的末尾开始，截取指定长度的字符，组成新的字符串。 o截子串函数Mid 格式：Mid(字符串，起始位置，长度) 功能：从指定“字符串”的指定位置开始，截取指定长度的字符，组成新的字符串。 o删除前导空格函数Ltrim 格式：Ltrim(字符串) 功能：删除字符串开头的空格。 知识知识3 常用函数常用函数 o删除尾随空格函数Rtrim 格式：Rtrim(字符串) 功能：删除字符串末尾的空格。 o删除空格函数Trim 格式：Trim(字符串) 功能：删除

40、字符串的前导空格和尾随空格。 o字符串函数String 格式：String(字符个数，字符) 功能：生成由指定字符组成的指定长度的字符串。 知识知识3 常用函数常用函数 转换函数 o数值转换为字符函数Str 格式：Str(数值表达式) 功能：将“数值表达式”的值转换成字符串。 o字符转换为数值函数Val 格式：Val(字符表达式) 功能：将“字符表达式”中的数字字符转换为数值型数据。 oASCII码函数Asc 格式：Asc(字符表达式) 功能：返回“字符表达式”的值的第1个字符的ASCII码值。 知识知识3 常用函数常用函数 o字符函数Chr 格式：Chr(数值表达式) 功能：返回以“数值表达

41、式”的值为ASCII码值的字符。 o大写字母转换为小写字母函数Lcase 格式：Lcase(字符表达式) 功能：将“字符表达式”的值中的大写字母转换为小写字母。 o小写字母转换为大写字母函数Ucase 格式：Ucase(字符表达式) 功能：将“字符表达式”的值中的小写字母转换为大写字母 知识知识3 常用函数常用函数 日期函数 o日期函数Date 格式：Date 功能：返回当前系统日期。 o时间函数Time 格式：Time 功能：返回当前系统时间。 o日期时间函数Now 格式：Now 功能：返回当前系统日期和时间。 o年份函数Year 格式：Year(日期表达式) 功能：返回日期表达式中的年的数

42、据。 知识知识3 常用函数常用函数 o月份函数Month 格式：Month(日期表达式) 功能：返回日期表达式中的月的数据。 o日函数Day 格式：Day(日期表达式) 功能：返回日期表达式中的日的数据。 o星期函数Weekday 格式：Weekday(日期表达式) 功能：返回日期表达式中的星期的数据。 说明：1代表星期日、2代表星期一等。 知识知识3 常用函数常用函数 o 单分支选择结构单分支选择结构 单分支选择结构只有一个程序分支，只有满足指定的单分支选择结构只有一个程序分支，只有满足指定的 条件，才执行该程序分支的语句。条件，才执行该程序分支的语句。 1单分支行单分支行If语句语句 格式

43、：格式：If Then 功能：当条件成立时执行语句。功能：当条件成立时执行语句。 说明：（说明：（1）“语句语句”必须是一条语句必须是一条语句 （2）单分支行）单分支行If语句必须写在一行上语句必须写在一行上 知识知识4 选择结构选择结构 2.单分支块If语句 格式：If Then End If 功能：根据“条件”选择是否执行“语句组”中的语 句。 说明： (1)条件是一个逻辑表达式或关系表达式 (2)“语句组”由一条或多条语句组成 (3)If语句开头，End If语句结束，必 须成对 出现，End If中间空格不能省略 知识知识4 选择结构选择结构 3.双分支选择结构 双分支选择结构提供两个

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

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

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

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

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

49、环 当我们事先知道循环的次数时，我们可以用指定次数的循环。 For循环语句 格式：For = To Step 步长 Next 循环控制变量 说明：(1)For语句开始，Next语句结束 (2)“循环控制变量”是一个数值型变量 (3)“循环体”可以写一条或多条语句 知识知识5 循环结构循环结构 本章小结 o 本章内容主要为编写VB程序打基础，介绍一些与 程序设计有关的基础知识，重点介绍了VB中的基 本数据类型、VB中常量与变量的概念及定义方法、 VB中的常用函数的使用、VB中的选择结构和循环 结构。 o 要求同学们掌握常量和变量的数据类型，使用Dim 语句定义变量，使用赋值语句为变量赋值。本章还

50、 介绍了VB中的常用函数，要求正确使用函数的格 式和功能。 o 在本章同学还学习了了VB中的选择结构和循环结 构，这是编好一个程序的基础，要求会正确使用结 构的格式，并能运用各种结构编写简单的程序。 项目五 VB常用控件 o掌握框架和单选按钮的使用 o掌握复选框的的使用 o掌握下拉列表框和组合框的使用 o掌握滚动条的使用 o掌握计时器的使用 知识知识1 框架和单选按钮框架和单选按钮 o 控件功能：框架的主要作用是作为容器以放 置其他控件对象。将控件对象分成相互独立 的控件组。单选按钮由一个圆圈及其右边的 文字组成，是一种表示状态的选项，通常以 选项组的形式出现。对于一组单选按钮，只 能选择其中

51、之一 o 控件属性： 控件属性控件属性 属性值属性值说明说明 名称Option1设置单选按钮的名称， CaptionOption1设置按钮的标题。 Enabled True 设置按钮是否可用 False Value True 设置按钮是否为选中状态 False 控件属性控件属性 属性值属性值说明说明 名称Frame1设置框架的名称， CaptionFrame1设置框架的标题。 知识知识1 框架和单选按钮框架和单选按钮 【案例5.1】设置字体字号颜色 要求：设计如图窗体，单击不同的单选按钮，改变标签的字 号、字体和颜色 对象对象对象名称对象名称属性属性属性值属性值 标签Label1Caption

52、好好学习 天天向上 框架 Frame1Caption字号 Frame2Caption字体 Frame3Caption颜色 单选按钮 Option1Caption12 Option2Caption22 Option3Caption32 Option4Caption宋体 Option5Caption黑体 Option6Caption隶书 Option7Caption红色 Option8Caption蓝色 Option9Caption绿色 【案例5.1】设置字体字号颜色 部分程序代码 Private Sub Option1_Click() Label1.FontSize=12 End Sub Pri

53、vate Sub Option4_Click() Label1.FontName=”宋体” End Sub Private Sub Option7_Click() Label1.ForeColor=VBRed End Sub 【案例5.1】设置字体字号颜色 【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签 上显示相应文字。 对象对象对象名称对象名称属性属性属性值属性值 标签Label1Caption空 框架 Frame1Caption交通 Frame2Caption地点 单选按钮 Option1Caption飞机 Option2Caption火车 Option3Caption广

54、州 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 = 坐 + a + 去 + b End Sub 【案例5.2】建立如图界面，选择不同方式和地点，单击窗体， 在标签上显示相应文字。 知识知识2 复选框复选框 o 控件功能：

55、复选框由一个矩形框及其右边的 文字组成。当存在多个复选框时，每个复选 框都是相互独立的，可以多选、单选，也可 以一个都不选。 控件属性控件属性属性值属性值说明说明 NameCheck1设置复选框的名称 CaptionCheck1设置复选框的标题 Enabled True 设置复选框是否可用 False Value 0复选框为未选中状态 1复选框为选中状态 2复选框处于禁止状态，灰色 知识知识2 复选框复选框 【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化 对象对象对象名称对象名称属性属性属性值属性值 标签Label1 Caption复选框的应用 Font三号 复选框 Chec

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

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

58、钮 Command1Caption确定 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 列表框列表框 o 控件功能：列表框控件提供一个选项列表，

59、 用户可以从中选择一项或多项。 控件属性控件属性属性值属性值说明说明 名称List1设置列表框的名称。 Columns0显示列表项目时的列数。 List空设置列表项目内容（设计或运行时都可以设置）。 Style 00：标准 11：复选框形式 MultiSelect 0列表框不支持多选。 1 列表框支持简单多选。 按住Ctrl键同时逐个选择多个项目。 2 列表框支持扩展多选； 按住Ctrl键同时逐个选择多个项目； 按住Shift键同时可以选择多个连续的项目。 Sorted True 列表框中的项目是否排序，True排序，False不排序。 False 知识知识3 列表框列表框 控件属性控件属性说

60、明说明 ListCount返回列表框中的总项目数。 ListIndex返回已选中项目的序号（项目序号从0开始）。 Text返回当前选中项目的文本内容。 Selected判断列表框中的项目是否被选中，True为选中；False为未选中。 Selcount返回选中项目数 知识知识3 列表框列表框 o 事件： 1.Click：单击列表框时引发该事件。 2.DblClick：双击列表框时引发该事件。 知识知识3 列表框列表框 o 方法： 1. 添加项目（AddItem） 格式：.AddItem 功能：向列表框中添加项目，项目内容要用双引号引起来。 2 删除项目（RemoveItem） 格式：.Remo