《南邮VisualBasic程序设计ch2VB语言基础》由会员分享，可在线阅读，更多相关《南邮VisualBasic程序设计ch2VB语言基础（86页珍藏版）》请在金锄头文库上搜索。
1、第第3 3章章 VBVB语言基础语言基础 第第3章章 VB语言基础语言基础 3.1 基本数据类型基本数据类型 3.2 常量常量 3.3 变量变量 3.4 表达式表达式 3.5 常用内部函数常用内部函数 3.6 语句语句 习题三习题三 第第3 3章章 VBVB语言基础语言基础 3.1 基本数据类型基本数据类型 数据是程序的必要组成部分，也是程序处理的对象。在高级语言中，广泛使用“数据类型”这一概念，数据类型体现了数据结构的特点。VB提供了系统定义的基本数据类型，并允许用户根据需要定义自己的数据类型。本章主要讲述基本数据类型。 为了更好地处理各种各样的数据，VB定义了多种数据类型，表3-1列出了V
2、B中定义的全部基本数据类型。第第3 3章章 VBVB语言基础语言基础 C语言数据类型语言数据类型基本数据类型：（有无符号）整型（短、长、基本）、实型（f、d）自定义：枚举、联合、结构、数组指针：第第3 3章章 VBVB语言基础语言基础 表3-1 VB 6.0的基本数据类型 返回第第3 3章章 VBVB语言基础语言基础 3.1.1 数值(Numeric)型数据 1、VB有6种数值型的数据： 整型(Integer)、长整型(Long)、单精度型(Single)、双精度型(Double)、货币型(Currency)和字节数据类型(Byte)。数值型数据的使用说明： 如果数据包含小数，则应使用Sing
3、le、Double或Currency型。 如果数据为二进制数，则应使用Byte数据类型。把二进制数存储为Byte型后，在读文件、写文件、调用DLL、调用对象的方法和属性时，VB都会自动在ANSI和Unicode之间进行转换。 第第3 3章章 VBVB语言基础语言基础 在VB中，数值型数据都有一个有效的范围值，程序中的数如果超出规定的范围，就会出现“溢出”信息(Overflow)。 一般情况下，VB使用十进制数计数，但有时也使用十六进制数和八进制数表示。 所有数值变量都可相互赋值，也可对Variant类型变量赋值。 第第3 3章章 VBVB语言基础语言基础 2、字符型(String)数据3、布尔
4、(Boolean)型数据4、日期(Date)型数据5、对象(Object)型数据 对象型数据可用来表示应用程序中或某些其他应用程序中的对象。可以用Set语句指定一个被声明为Object的变量去引用应用程序所识别的任何实际对象。6、变体(Variant)型数据 变体型数据是一种可变的数据类型，可以存放任何类型的数据，因此变体类型可以说是VB中用途最广，同时也是最灵活的一种变量类型。 第第3 3章章 VBVB语言基础语言基础 3.2 常常 量量 3.2.1 直接常量 直接常量就是在程序代码中，以直接明显的形式给出的数据。根据使用的数据类型，可分为：字符串常量、数值常量、布尔常量、日期常量（两个“#
5、” 括起来）。 3.2.2 符号常量 系统内部定义的常量是指VB内置的一些便于记忆的常量，通常这类常量会以vb开头，如vbModal，vbModeless等。 第第3 3章章 VBVB语言基础语言基础 3.2.2 用户定义的常量 尽管VB内部定义了大量的常量，但是有时程序员还是需要创建自己的符号常量。用户定义常量时应使用Const语句来给常量分配名字、值和类型。声明常量的语法为 Public | Private Const常量名As数据类型 =表达式.返回第第3 3章章 VBVB语言基础语言基础 3.3 变变 量量 数值存入内存后，必须用某种方式访问它，才能执行指定的操作。在VB中，可以用名字
6、表示内存位置，这样就能访问内存中的数据。在VB中，变量有两种形式，即属性变量和内存变量。1.命名规则2.变量的声明 Dim | Private | Static | Public变量名As类型,变量名2As类型2 . 返回第第3 3章章 VBVB语言基础语言基础 3.4 表表 达达 式式 运算(即操作)是对数据的加工。最基本的运算形式常常可以用一些简洁的符号来描述，这些符号称为运算符或操作符。被运算的对象，即数据，称为运算量或操作数。由运算符和运算量组成的表达式描述了对哪些数据、以何种顺序进行什么样的操作。运算量可以是常量，也可以是变量，还可以是函数。单个变量或常量也可以看成是表达式。 第第3
7、 3章章 VBVB语言基础语言基础 1. 算术运算符 VB有7个算术运算符，如表3-2所示。算术运算符的优先级返回第第3 3章章 VBVB语言基础语言基础 3.4.2 字符串表达式 字符串表达式由字符串常量、字符串变量、字符串函数和字符串运算符组成。 VB中的字符串运算符是“&”，该运算符用于连接两个或更多的字符串。字符串表达式的格式为字符串1&字符串2&字符串3第第3 3章章 VBVB语言基础语言基础 3.5 常用内部函数常用内部函数 函数是一种特定的运算，在程序中要使用一个函数时，只要给出函数名并给出一个或多个参数，就能得到它的函数值。 在VB中，有两类函数，即内部函数和用户定义函数。 (
8、1) 用户定义函数是由用户自己根据需要定义的函数。 (2) 内部函数也称标准函数，VB提供了大量的内部函数。 第第3 3章章 VBVB语言基础语言基础 3.5.1 数学运算函数 数学运算函数用于各种数学运算。常用数学运算函数列于表3-3中。返回第第3 3章章 VBVB语言基础语言基础 3.5.2 字符串函数 VB提供了大量的字符串函数，具有强大的字符串处理能力，见表3-4。 返回第第3 3章章 VBVB语言基础语言基础 3.5.3 时间和日期函数第第3 3章章 VBVB语言基础语言基础 3.5.4 格式输出函数 用格式输出函数Format可以使数值、日期或字符型数据按指定的格式输出。Forma
9、t函数的语法格式为 Format(表达式,格式字符串)第第3 3章章 VBVB语言基础语言基础 表3-7 常用的时间日期型格式说明字符 第第3 3章章 VBVB语言基础语言基础 3.5.5 随机数语句和函数 在测试、模拟和游戏程序中，经常要使用随机数。 3.5.6 数据类型转换函数 在VB中，一些数据类型可以自动转换，例如数字字符串可自动转换为数值型，但是，多数类型不能自动转换，这就需要用类型转换函数来显式地说明。转换函数列于表3-10中。第第3 3章章 VBVB语言基础语言基础 表3-10 数据类型转换函数 返回第第3 3章章 VBVB语言基础语言基础 3.6 语语 句句 3.6.1 程序语
10、句 程序语句是VB关键字、属性、函数、运算符以及能够生成VB编辑器可识别指令的符号的任意组合。一个完整的程序语句可以简单到只有一个关键字，例如： Stop第第3 3章章 VBVB语言基础语言基础 3.6.2 语句的书写规则 在编写程序代码时要遵循一定的规则，这样写出的程序既能被VB正确地识别，又能增加程序的可读性。 1. 自动语法检查 如果设置了“自动语法检测”(用“工具”菜单“选项”命令中的“编辑器”)选项卡，则在输入语句的过程中，VB将自动对输入的内容进行语法检查，如果发现语法错误，将弹出一个信息框提示出错的原因。 2. 语句的续行 当一条语句很长时，在代码编辑窗口阅读程序时将不便查看，使
11、用滚动条又比较麻烦。 第第3 3章章 VBVB语言基础语言基础 3. 格式化处理 VB会按约定对语句进行简单的格式化处理，例如关键字、函数的第一字母自动变为大写，运算符前后加空格等。在输入语句时，命令词、函数等可以不必区分大小写。 4. 复合语句行 一般情况下，输入程序时要求一行一句，一句一行。但是VB也允许使用复合语句行，即把几个语句放在一个语句行中，语句之间用冒号“:”隔开。一个语句行的长度最多不能超过1023个字符。 第第3 3章章 VBVB语言基础语言基础 思考题思考题1 下列哪个符号不能作为VB中的变量名？(1) ABCabc (2) b1234 (3) 28wed (4) cmd2
12、 下列符号哪一个是VB中的合法变量名？(1) x23 (2) 8xy (3) END (4) X8B第第3 3章章 VBVB语言基础语言基础 3 如果希望使用变量x来存放数据1234567.123456，应该将变量x声明为何种类型？ 4 下列数据哪些是变量？哪些是常量？是什么类型的常量？ (1) name (2) name (3) False (4) x (5) 10/28/2000 (6) xh (7) 120 (8) n (9) #10/28/2000#(10) 12.345第第3 3章章 VBVB语言基础语言基础 上次回顾上次回顾1、VB基本的数据类型：2、常量：直接常量、符号常量（co
13、nst，内部）3、变量：4、算术运算符5、常用内部函数 6、字符串函数7、数据类型转换函数 第第3 3章章 VBVB语言基础语言基础 第第4章章 赋值与输入输出赋值与输入输出 4.1 数据输出数据输出4.2 常用基本语句常用基本语句 4.3 利用文本框进行数据输入利用文本框进行数据输入 4.4 使用对话框使用对话框 习题四习题四 第第3 3章章 VBVB语言基础语言基础 4.1 数数 据据 输输 出出 4.1.1 直接输出到窗体 1. 使用Print方法 使用Print方法可以在窗体上输出文本字符串或表达式的值，并可在其他图形对象或打印机上输出信息。其语法格式为 对象名称. Print 表达式
14、列表 , | ;第第3 3章章 VBVB语言基础语言基础 【例4-1】 使用Print方法在窗体中直接输出字符串或数值表达式的值，如图4.1所示。 设计步骤如下： (1) 建立应用程序用户界面。 (2) 按表4-1设置对象属性。 (3) 编写代码。 第第3 3章章 VBVB语言基础语言基础 图4.1 使用Print方法 第第3 3章章 VBVB语言基础语言基础 图4.2 建立程序界面 第第3 3章章 VBVB语言基础语言基础 表4-1 属 性 设 置第第3 3章章 VBVB语言基础语言基础 2. 与Print方法有关的函数 为了使数据按指定的位置输出，VB提供了几个与Print相配合的函数。
15、1) Tab函数 在Print方法中，可以使用Tab函数来对输出进行定位。 2) Spc函数 在Print方法中，还可以使用Spc函数来对输出进行定位。 第第3 3章章 VBVB语言基础语言基础 【例4-2】 使用Tab和Spc函数进行对齐输出，如图4.3所示。图4.3 使用Tab和Spc函数进行对齐输出第第3 3章章 VBVB语言基础语言基础 Private Sub Form_Click() Print Print Tab(5); 学号; Tab(20); 姓名; Tab(30); 性别; Tab(40); 入学成绩 Print Print Tab(5); 2000101; Tab(20);
16、 丁叮; Tab(30); 女; Tab(40); 650 Print Tab(5); 2000102; Tab(20); 柳洋洋; Tab(30); 男; Tab(40); 668 Print Tab(5); 2000103; Spc(8); 李骊; Spc(6); 女; Spc(8); 640 Print Tab(5); 2000132; Spc(8); 杜小红; Spc(4); 女; Spc(8); 635;End Sub第第3 3章章 VBVB语言基础语言基础 3. 使用位置属性 要精确地把文本输出到窗体、图片框或打印页上，可以用位置属性CurrentX和CurrentY。这两个属性分
17、别表示当前输出位置的横坐标与纵坐标。 如果要控制所显示或打印文本的大小和外观，可以用VB中的字体属性，各字体属性及其名称如表4-2所示。 第第3 3章章 VBVB语言基础语言基础 表4-2 字体属性及名称 第第3 3章章 VBVB语言基础语言基础 【例4-3】 如图4.4所示，按指定尺寸、颜色和外观，把字符串“风光无限好”输出到窗体的中间。 设计步骤如下： (1) 建立应用程序用户界面与对象属性的设置参见例4-1。 (2) 编写命令按钮的Click事件代码： 第第3 3章章 VBVB语言基础语言基础 图4.4 使用位置属性CurrentX和CurrentY示例第第3 3章章 VBVB语言基础语
18、言基础 Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer FontName = 隶书 设置输出文本的字体 FontSize = 30 设置输出字体的大小 ForeColor = QBColor(15) 设置输出文本的前景色，即字体的颜色第第3 3章章 VBVB语言基础语言基础 BackColor = QBColor(8) 设置输出文本的背景色，即窗体的颜色 a = 风光无限好 textW = TextWidth(a) / 2 TextWidth(a)表示字符串a的宽度 textH =
19、 (TextHeight(a) + Command1.Height) / 2 TextHeight(a)表示字符串a的高度第第3 3章章 VBVB语言基础语言基础 CurrentX = ScaleWidth / 2 - textW 设置输出的水平位置 CurrentY = ScaleHeight / 2 - textH 设置输出的垂直位置 Print a 输出文本End Sub第第3 3章章 VBVB语言基础语言基础 4. 清除方法Cls Cls方法可以清除Form或PictureBox中由Print方法和图形方法在运行时所生成的文本或图形，清除后的区域以背景色填充。设计时使用Picture属
20、性设置的背景位图和放置的控件不受Cls影响。Cls方法的语法为 对象名称. Cls第第3 3章章 VBVB语言基础语言基础 【例4-4】 在例4-3中使用Cls方法清除窗体中由Print方法所生成的文本，如图4.5所示。图4.5 Cls方法示例 第第3 3章章 VBVB语言基础语言基础 【例4-5】 使用Print方法在图片框中输出字符串或数值表达式的值。设计步骤如下： (1) 建立应用程序用户界面。 (2) 按表4-3设置对象属性。第第3 3章章 VBVB语言基础语言基础 (3) 设计代码。命令按钮Command1的Click事件代码为Private Sub Command1_Click()
21、 Picture1.Print Picture1.Print 6+10=; 6 + 10 Picture1.Print Picture1.Print 山重水复, Picture1.Print 疑无路 Picture1.Print Picture1.Print 柳暗 & 花明又一村End Sub程序运行结果如图4.6右所示。第第3 3章章 VBVB语言基础语言基础 【例4-6】 如图4.7所示，在图片框中使用位置函数。设计步骤如下： (1) 建立应用程序用户界面并按例4-5的方法设置对象属性，结果如图4.7左所示。 (2) 编写事件代码。“击我”命令按钮的Click事件代码为第第3 3章章 VB
22、VB语言基础语言基础 图4.7 在图片框中使用位置函数第第3 3章章 VBVB语言基础语言基础 Private Sub Command1_Click() Dim a As String, textW As Integer, textH As Integer Picture1.FontName = 隶书 Picture1.FontSize = 30 Picture1.ForeColor = QBColor(15) Picture1.BackColor = QBColor(8) a = 风光无限好textW = Picture1.TextWidth(a) / 2 textH = Picture1.
23、TextHeight(a) / 2第第3 3章章 VBVB语言基础语言基础 Picture1.CurrentX = Picture1.Width / 2 - textW Picture1.CurrentY = Picture1.Height / 2 - textH Picture1.Print aEnd Sub“清除”命令按钮的Click事件代码为Private Sub Command2_Click() Picture1.ClsEnd Sub程序运行结果如图4.7右所示。 第第3 3章章 VBVB语言基础语言基础 4.1.3 使用“标签”控件输出 标签(Label)主要是用来显示(输出)文本信
24、息的，它不能作为输入信息的界面。也就是说标签控件的内容只能用Caption属性来设置或修改，不能直接编辑。它是VB中最常用的输出文本信息的工具，完全可以取代Print方法。第第3 3章章 VBVB语言基础语言基础 【例4-7】 如图4.8所示，使标签控件具有边框，并修改标签属性为无边框。图4.8 有边框和无边框的标签控件 第第3 3章章 VBVB语言基础语言基础 设计步骤如下： (1) 建立应用程序用户界面。选择“新建”工程，进入窗体设计器，增加一个命令按钮Command1、两个标签Label1和Label2，如图4.9左所示。 (2) 设置对象属性如表4-4所示。设置后的界面如图4.9右所示
25、。 第第3 3章章 VBVB语言基础语言基础 图4.9 建立界面与设置属性第第3 3章章 VBVB语言基础语言基础 表4-4 属性设置第第3 3章章 VBVB语言基础语言基础 (3) 编写事件代码。命令按钮Command1的单击(Click)事件代码为 Private Sub Command1_Click() ption = 甜蜜的负担 改变Label1的标题内容 ption = “是你改变了我” 改变Label2的标题内容 Label2.Alignment = 2 - center Label2的内容居中显示 Label2.BorderStyle = 0 - none 将Label2的边框样
26、式改为无边框End Sub第第3 3章章 VBVB语言基础语言基础 4.2 常用基本语句常用基本语句 4.2.1 赋值语句LET 赋值语句是任何程序设计中最基本的语句。在前面的例子中，我们已经在代码中使用了它。它的作用是将指定的值赋给某个变量或对象的某个属性。 赋值语句的一般格式为 Let名称=表达式 第第3 3章章 VBVB语言基础语言基础 【例4-8】 设计程序如图4.10所示，实现两个变量值的交换。 分析：将两个不同的变量设想为两个瓶子A、B，其中分别装有不同颜色的液体，要交换瓶子中的液体。可以这样来做：另取一个瓶子C，先将瓶A中的液体倒入瓶C中，再将瓶B中的液体倒入A中，最后将瓶C中的
27、液体倒入B中。第第3 3章章 VBVB语言基础语言基础 图4.10 交换两变量的值 第第3 3章章 VBVB语言基础语言基础 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 第第3 3章章 VBVB语言基础语言基础 (3) 编写事件代码。命令按钮Command1的Click事件代码为 Private Sub Command1_Click() t = ption ption = ption ption = t End Sub第第3 3章章 VBVB语言基础语言基础 4.2.2 卸载对象语句Unload 当要结束应用程序而从内存中卸载窗体或要从内存中卸载某些控件时，可以使用
28、Unload语句。Unload语句的语法格式为： Unload 对象名 第第3 3章章 VBVB语言基础语言基础 【例4-9】 在例4-8中使用命令关闭程序窗体，如图4.12所示。 图4.12 关闭程序窗体 第第3 3章章 VBVB语言基础语言基础 只需在上例中增加一个命令按钮Command2(关闭)，并且编写Command2的Click事件代码如下即可： Private Sub Command2_Click() Unload Me Me表示按钮所在的窗体对象 End Sub第第3 3章章 VBVB语言基础语言基础 4.2.3 注释语句 Rem注释内容 或 注释内容第第3 3章章 VBVB语言
29、基础语言基础 4.3 利用文本框进行数据输入利用文本框进行数据输入 4.3.1 使用“文本框”控件 文本框(TextBox)是一个文本编辑区域，用户可以在该区域输入、编辑和显示文本内容。缺省时，文本框只能输入单行文本，并且输入的字符最多为2048个。若将控件的MultiLine属性设置为True，则可以输入多行文本，并且文本的内容可多达32K。文本框的主要属性如表4-6所示。第第3 3章章 VBVB语言基础语言基础 表4-6 文本框的属性 第第3 3章章 VBVB语言基础语言基础 1. 使用文本框控件 文本框中显示的文本是受Text属性控制的。Text属性可以用以下3种方式设置： (1) 设计
30、时在“属性”窗口进行设置。 (2) 运行时通过代码设置。 (3) 在运行时由用户输入。第第3 3章章 VBVB语言基础语言基础 【例4-10】 输入球体的半径，然后计算并输出球体的体积和表面积，如图4.13所示。第第3 3章章 VBVB语言基础语言基础 设计步骤如下： (1) 建立应用程序用户界面。 (2) 设置对象属性。 (3) 编写事件代码。 Private Sub Command1_Click() Dim r As Single, v As Single, f As Single Const pi = 3.14159 定义符号常量 r = Val(Text1.Text) 文本转换为数值型
31、数据 v = 4 / 3 * pi * r 3 计算球体积 f = 4 * pi * r 2 计算球表面积 Text2.Text = v 输出球体积 Text3.Text = f 输出球表面积 End Sub第第3 3章章 VBVB语言基础语言基础 2. 多行文本框(1) MultiLine多行属性。 (2)ScrollBars属性。【例4-11】 应用MultiLine和ScrollBars属性，建立两个文本框。 第第3 3章章 VBVB语言基础语言基础 表4-8 属性设置第第3 3章章 VBVB语言基础语言基础 (3) 编写事件代码。事件过程如下：Private Sub Form_Clic
32、k() Text1.SelStart=0 将文本框Text1中的第1个字符前设为标识区的起点 Text1.SelLength=24 将整个标识区长度定为24 Text2.Text=Text1.SelText 被标识的字符串存入Text2中End Sub第第3 3章章 VBVB语言基础语言基础 4.3.2 焦点与Tab键序 1. 焦点 焦点(Focus)就是光标，当对象具有“焦点”时才能响应用户的输入，因此对象也就具有了接收用户鼠标单击或键盘输入的能力。 2. Tab键序 TabIndex属性决定控件接收焦点的顺序，TabStop属性决定焦点是否能够停在该控件上。第第3 3章章 VBVB语言基础
33、语言基础 4.3.3 使用“框架”控件 如同图片框一样，框架(Frame)控件是一种容器控件，在框架控件内部的控件可以随框架一起移动，并且受到框架控件某些属性(Visible、Enabled)的控制。 在多数情况下只需使用框架控件将其他控件分成可标识的控件组，而不必响应框架控件的事件。需要修改的可能是框架控件的Name、Caption或Font属性。第第3 3章章 VBVB语言基础语言基础 【例4-12】 在文本框中输入长、宽、高，求长方体的表面积，并输出。设长方体的长、宽、高为a、b、c，表面积为s。根据数学知识有： s = 2(ab + bc + ca) 设计步骤如下：第第3 3章章 VB
34、VB语言基础语言基础 图4.16 设计用户界面第第3 3章章 VBVB语言基础语言基础 (1) 设计程序界面并设置对象属性第第3 3章章 VBVB语言基础语言基础 (2) 编写事件代码。命令按钮Command1的Click事件代码为：Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) s = 2 * (a * b + b * c + c * a) 计算表面积 p
35、tion = s 在标签上输出结果End Sub第第3 3章章 VBVB语言基础语言基础 4.4 使使 用用 对对 话话 框框 4.4.1 消息对话框(MsgBox) MsgBox函数在对话框中显示信息，等待用户单击按钮，并返回一个整数以标明用户单击了哪个按钮。其语法格式为 变量 = MsgBox(消息内容,对话框类型,对话框标题)第第3 3章章 VBVB语言基础语言基础 4.4.2 输入框(InputBox) InputBox函数显示一个能接受用户输入的对话框，并返回用户在对话框中输入的信息。其语法格式为 变量 = InputBox(信息内容,对话框标题,默认内容)第第3 3章章 VBVB语言基础语言基础 【例4-13】 设计华氏温度和摄氏温度相互转换的程序。利用输入框输入温度，如图4.19所示。 输入一个华氏温度可以得到相应的摄氏温度，而输入一个摄氏温度则可以得到相应的华氏温度，如图4.20所示。第第3 3章章 VBVB语言基础语言基础 图4.19 输入温度值 第第3 3章章 VBVB语言基础语言基础 图4.20 温度的转换第第3 3章章 VBVB语言基础语言基础 设计步骤如下：(1) 建立应用程序用户界面并设置对象属性。 (2) 编写事件代码。
