第 1 章 Visual Basic 概述

1. 第 1 章 Visual Basic概述

2. 学习目标 • 掌握VB的启动/退出方法； • 理解VB集成开发环境中各个组成部分之间的功能和相互间的关系； • 初步掌握VB程序设计步骤； • 理解基于对象程序设计方法的基本思想。

3. 1.1 VB的启动和退出 • VB启动的三种方法： • 单击【开始】→【程序】→【Microsoft Visual Basic 6.0中文版】→【Microsoft Visual Basic 6.0中文版】命令； • 若桌面上已建立了“Microsoft Visual Basic 6.0中文版”快捷方式，则直接单击该快捷方式图标； • 在资源管理器中直接双击VB 6.0的程序文件“VB6.exe”。

4. 1.1 VB的启动和退出（续） • 退出VB的三种方法： • 选择【文件】→【退出】命令退出VB； • 单击窗口右上角的【关闭】按钮退出VB； • 按快捷键Alt+F4或Alt+Q退出VB。

5. 1.2 VB集成开发环境 • 标题栏 • 菜单栏 • 工具栏 • 控件工具箱 • 工程资源管理器 • 窗体设计器 • 属性窗口 • 代码编辑窗口 • 立即窗口

6. 1.3一个简单的VB实例 • 【例1-1】设计一个VB小程序，其中包含了三个单选按钮、一个图片框、一个命令按钮。当用户单击其中的一个单选按钮时，在其右边的图片框中就会出现相应的动物图片，单击【退出】按钮可结束程序的运行。

7. 1.3一个简单的VB实例（续） 用户界面

8. 设计步骤 • 新建工程。 • 设计用户界面。

9. 设计步骤（续） • 设置窗体和控件的属性。 • 实例中窗体和控件的属性设置

10. 设计步骤（续） • 窗体与控件的默认名称与新名称对照表

11. 设计步骤（续） • 编写事件代码。 • 实例中的事件及响应的操作

12. 设计步骤（续） • 编写、输入和编辑事件过程代码 Private Sub optTiger_Click() picAnimal.Picture = LoadPicture("c:\mypicture\tiger.jpg") End Sub Private Sub optPanda_Click() picAnimal.Picture = LoadPicture("c:\mypicture\panda.jpg") End Sub Private Sub OptElephant_Click() picAnimal.Picture = LoadPicture("c:\mypicture\elephant.jpg") End Sub Private Sub cmdExit_Click() end End Sub

13. 设计步骤（续） • 程序的保存 • 程序的运行、结束 • 程序的打开和修改

14. 1.4 VB程序的基本概念和步骤 • VB基于对象程序设计的基本概念 • 对象：对象指的是任何的具体事物，在面向对象的程序设计中，对象是最基本的元素。用VB开发应用程序，就是要先创建对象，窗体、单选按钮、图片框和命令按钮等都是VB的对象。 • 属性：对象所具有的特征称为对象的属性。VB中的对象，如窗体、单选按钮、图片框和命令按钮等都具有一定的属性。

15. VB基于对象程序设计的基本概念（续） • 对象属性的设置方法： • 利用属性窗口； • 利用程序语句来设置属性： 〈对象名〉．〈属性名称〉＝〈新属性值〉 举例： frmOptAnimal.Caption="选择你最喜欢的动物" optTiger.Caption="老虎"

16. VB基于对象程序设计的基本概念（续） • 事件及事件过程 • 事件是指由VB预先设置好的、能够被对象识别的动作；事件过程指动作发生后相应地执行的一个过程； • 事件过程的一般格式： Private Sub 对象名称_事件名称（） …… 事件响应的程序代码 …… End Sub

17. VB基于对象程序设计的基本概念（续） 举例： • 方法：方法是对象能够执行的一些操作，是对象的行为。VB方法的调用格式： 〈对象名称〉．〈方法名称〉 举例： frmPoem.Print “春眠不觉晓，处处闻啼鸟。" frmPoem.Cls

18. VB程序设计的一般步骤 • 建立用户界面 • 建立窗体对象； • 添加控件； • 控件的选定； • 控件的缩放和移动； • 控件的复制和删除； • 控件的对齐和分布；

19. VB程序设计的一般步骤（续） • 设置对象的属性 • 直接输入属性的值； • 通过对话框设置对象的属性； • 利用列表框设置对象的属性； • 编写程序代码 • 程序代码的编写是在代码编辑窗口进行的，该窗口提供了许多自动功能来简化代码的编写工作。 • 自动产生事件过程的起始行和结束行； • 自动列出对象的属性和方法； • 快捷菜单功能； • 自动提示信息； • 自动的语法检查； • 程序的保存、运行、结束和编译

20. 结束

21. 第 2 章Visual Basic程序设计基础

22. 学习目标 • 了解VB可以处理的各种数据类型； • 掌握常量和变量的基本概念、类型及变量的声明和赋值方法； • 了解运算符与表达式的有关内容； • 掌握输入函数、输出（消息）函数和格式输出函数以及其他一些内部函数的使用方法； • 了解数组的概念，并掌握控件数组的使用方法。

23. 2.1 数据类型

24. 2.1 数据类型（续） • VB的基本数据类型及对应的名称

25. 2.2 常量和变量 • 【例2-1】编制一个VB小程序，该程序运行后，用户只要用鼠标在名为“frmPoem”的窗体上单击，就可以修改窗体的标题、高度和宽度属性，并用“20号”的“楷体”字显示唐诗“春晓”的诗句，如下图所示。

26. 例2-1 程序代码 Private Sub Form_Click() Dim Str1 As String *12 frmPoem.Width = 5500 frmPoem.Height = 1500 frmPoem.Caption = "春晓" frmPoem.FontName = "楷体_GB2312" frmPoem.FontSize = 20 frmPoem.Cls Str1 = "春眠不觉晓，处处闻啼鸟。" frmPoem.Print Str1 Str1 = "夜来风雨声，花落知多少？" frmPoem.Print Str1 End Sub

27. 常量 • 定义：所谓常量就是事先设置的、在程序运行过程中值保持不变的数据。 • 分类：

28. 常量（续）

29. 常量（续） • 类型说明符

30. 变量 • 定义：在程序的运行过程中取值可以发生变化的数据称为变量。 • 声明变量的格式： Dim 〈变量名1〉［As〈类型1〉］ ［，〈变量名2〉［As〈类型2〉…］ • 变量赋值格式： ［Let］〈变量名〉=〈表达式〉

31. 2.3 运算符及表达式 • 算术运算符 • 定义：算术运算符是对数值型数据进行算术运算的运算符。

32. 关系运算符 • 定义：关系运算符又称为比较运算符，用于比较两个同类型表达式的值，比较的结果是一个逻辑值，即真（True）或假（False）。

33. 字符串运算符 • 定义：字符串运算符（&和+）可以用来连接两个字符串。 例如： "VB"& "程序设计" 结果为"VB程序设计" "VB"+ "程序设计" 结果为"VB程序设计"

34. 逻辑运算符 • 定义：逻辑运算符用于连接关系表达式、逻辑常量、逻辑变量和函数等逻辑型数据，构成逻辑表达式。 • 逻辑运算符Not、And、Or的运算规则

35. 2.4 内部函数 • 函数是VB的一个重要组成部分，VB为用户提供了丰富的内部函数，其一般格式为： 函数名（〈参数〉） • 说明： • 每个函数都有一个函数名，函数名的后面是一对括号，括号中是相应函数的参数； • 每个函数都具有一定的功能，通常都有一个返回值。 例如，函数Abs的功能是计算某个数值的绝对值，并返回该值，Abs（-20）的返回值是20（即-20的绝对值）。

36. 输入函数 • 一般格式： InputBox〔〈Prompt〉［,〈Title〉］ ［,〈Default〉］［,〈Xpos〉,〈Ypos〉］ ［,〈Helpfile〉,〈Context〉］〕 • 功能：产生一个输入对话框，显示提示信息及文本输入框，等待用户输入文本数据，并返回文本框内所输入的数据。

37. 输入函数的参数说明 • Prompt（提示）：一个字符串表达式，长度不超过1024字符。该参数用于在对话框内显示输入提示信息，提醒用户输入相应的数据。如果 Prompt 包含多个行，可以在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。 • Title（标题）：一个字符串表达式，表示对话框的标题。该参数省略时，系统会将应用程序名放入标题栏中。 • Default（默认）：一个字符串表达式，作为输入文本框的默认文本。该参数省略时，最初的输入文本框是空白的。 • Xpos（X坐标），Ypos（Y坐标）：两个成对出现的数值表达式，分别用于指定对话框与屏幕左边界的距离（Xpos）及与屏幕上边界的距离（Ypos）。这一对参数省略时，系统将在屏幕中心线向下约三分之一处显示对话框。 • Helpfile（帮助文件），Context（帮助上下文编号）：两个成对出现的参数，用于提供上下文帮助功能。帮助文件的文件名由 “Helpfile” 参数指定，帮助主题的上下文编号由“Context”参数指定。

38. 输入函数举例 • 【例2-2】编制一个小程序，运行界面如下面的三个图所示。单击【个人信息输入】按钮，可以弹出三个“个人信息输入”对话框，用于输入用户的姓名、电话号码和E-mail地址。单击【个人信息输出】按钮，将输出用户信息。

39. 例2-2的用户界面

40. 例2-2中窗体和命令按钮的属性设置

41. 例2-2的程序代码 '声明变量Pname，Tel，Email，以便在其后的事件过程中使用 Dim PName As String, Tel As String, Email As String Private Sub cmdInput_Click() '个人信息输入 '使用三个输入对话框，输入用户的姓名、电话号码和E-mail地址 PName = InputBox("请输入你的姓名", "个人信息输入") Tel = InputBox("请输入你的电话号码", "个人信息输入") Email = InputBox("请输入你的E-mail地址", "个人信息输入") End Sub Private Sub cmdOutput_Click() '个人信息输出 frmInOut.FontSize = 14 frmInOut.Cls '在窗体上输出用户的个人信息 frmInOut.Print Space(2) + "姓名:" + PName frmInOut.Print Space(2) + "电话:" + Tel frmInOut.Print Space(2) + "E-mail:" + Email End Sub Private Sub cmdExit_Click() '退出 End End Sub

42. 消息（输出）函数 • 一般格式： MsgBox（〈Prompt〉［,〈Buttons〉］ ［,〈Title〉］［,〈Helpfile〉,〈Context〉］） • 功能：产生一个标准的Windows消息对话框，用于显示提示信息，并返回用户在对话框中的选择结果。 • Prompt、Title、Helpfile和Context参数的含义和作用与InputBox函数的同名参数类似。 • Buttons（按钮值）参数是一个整型数或符号常量，用于规定消息对话框中需要显示哪些按钮或图标，指定哪个按钮作为默认按钮，以及采用怎样的等待模式等。

43. 消息（输出）函数（续） • Buttons（按钮值）参数的格式为： ［〈按钮类型〉］+［〈图标类型〉］+［〈默认按钮〉］+［〈等待模式〉］

44. 消息（输出）函数举例1 Answer1 = MsgBox(“输入完毕?”, vbYesNo + _ vbQuestion, “消息对话框1”)

45. 消息（输出）函数举例2 Answer2 = MsgBox(“按确定或取消按钮继续 _ 或取消本次安装", vbOKCancel + _ vbInformation + vbDefaultButton2, _ "消息对话框2")

46. 消息（输出）函数举例3 Answer3 = MsgBox("输入的数据必须大于0", _ vbOKOnly + vbExclamation, _ "消息对话框3")

47. 格式输出函数 • 一般格式： Format$（〈expression〉［，〈format〉］） • 功能： 按format（格式字符串）所规定的格式输出expression（数值表达式）的值。 举例： Format$(12345,"#######") Format$(12345,"0000000") Format$(123.45,"###.##") Format$(123.45,"$###.##") Format$(.123,"00.0%")

48. 本书使用的其他函数

49. 2.5 数组 • 定义：一组具有同一名字不同下标的变量称为数组。 • 数组的定义和引用 • 格式： Dim〈数组名〉（〈下标上界〉）As〈类型名称〉或 Dim〈 数组名〉（［〈下界 To〉］〈上界〉）As〈类型名称〉 • 控件数组 • 定义：控件数组是由一组类型相同的控件组成的，它们具有相同的名字，执行大致相同的操作，可以共享同样的事件过程。

50. 2.5 数组（续） • 【例2-3】建立一个包含5个单选按钮和一个文本框的窗体，如下图所示，单击其中的某个单选按钮可以调整文本框中字体的大小。