《VB教程第2章(实验课练习).ppt》由会员分享，可在线阅读，更多相关《VB教程第2章(实验课练习).ppt（16页珍藏版）》请在金锄头文库上搜索。
1、主页主页 常量、变量、函数及表常量、变量、函数及表达式是构成达式是构成VBVB应用程序的基本应用程序的基本元素，也是程序设计的重要基元素，也是程序设计的重要基础知识。学习和熟悉掌握这些础知识。学习和熟悉掌握这些元素，对以后的程序设计是十元素，对以后的程序设计是十分重要的。分重要的。主页主页第第2 2章章 程序设计基础程序设计基础 程序中的大部分实际工作是采用程序代码来处理的程序中的大部分实际工作是采用程序代码来处理的 任何一门程序设计语言都有一套严格的编程规定任何一门程序设计语言都有一套严格的编程规定 本章主要内容本章主要内容 退出退出数据类型数据类型常量与变量常量与变量表达式表达式常用内部函
2、数常用内部函数主页主页 2.12.1 数据类型数据类型 在在使使用用计计算算机机来来处处理理数数据据时时，会会遇遇到到各各种种不不同同类类型型的的数数据据。例例如如，一一个个人人的的姓姓名名是是由由一一串串文文本本( (字字符符) )组组成成，成成绩绩、年年龄龄和和体体重都是一个数值，而是否大学毕业则是一个逻辑值，等等。重都是一个数值，而是否大学毕业则是一个逻辑值，等等。 为了更好地处理各种各样的数据，为了更好地处理各种各样的数据，VBVB定义了多种数据类型定义了多种数据类型 数值型数值型 数据类型数据类型 字符型字符型 逻辑型逻辑型 日期型日期型 对象型对象型 变体型变体型整数整数: 整型整
3、型/长整型长整型字节型字节型浮点型浮点型: 单单/双精度双精度货币型货币型主页主页 数值型数据数值型数据 (1) (1) 整型整型(Integer)(Integer)和长整型和长整型(Long)(Long) 不带小数部分的数，表示正整数、负整数和零不带小数部分的数，表示正整数、负整数和零 整型数整型数: : -32768-327683276732767 长整型数：长整型数：-2147483648-214748364821474836472147483647 (2) (2) 字节型字节型(Byte)(Byte) 字节型数可以表示无符号的整数字节型数可以表示无符号的整数 0 0255255(3)
4、(3) 单精度型单精度型(Single)(Single)和双精度型和双精度型(Double)(Double) 浮点数。表示带有小数部分的数浮点数。表示带有小数部分的数 表示数的范围大，但有误差。表示数的范围大，但有误差。 如超出某个表示范围，则用科学记数法如超出某个表示范围，则用科学记数法 例如：例如：4.53E8(4.534.53E8(4.5310108 8) )，8.173E-148.173E-14，3.14D233.14D23(4) (4) 货币型货币型(Currency)(Currency) 专门为处理货币而设计的数据类型专门为处理货币而设计的数据类型 它可最多保留小数点右边它可最多保
5、留小数点右边4 4位和小数点左边位和小数点左边1515位位主页主页其他类型数据其他类型数据 (2) 逻辑型数据只有逻辑型数据只有True(真真)和和False(假假)两个值两个值 (3)日期型数据用两个日期型数据用两个“#”符号把日期和时间的值括起来符号把日期和时间的值括起来 如：如：#08/20/2001#、#2001-08-20# (4) 变体型变体型(Variant)数据是一种可变的数据类型，可以存放数据是一种可变的数据类型，可以存放任何类型的数据，任何类型的数据，VB会自动完成必要的转换会自动完成必要的转换 不特别说明时，不特别说明时，VB会自动将该变量默认为会自动将该变量默认为Var
6、iant型变量型变量 例：例： Temp=“22” 字符串字符串 Temp=Temp-1 数值数值 Temp=#01/01/2002# 日期日期主页主页 编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Private Sub Form_ClickForm_Click()() Dim a As Single, b As Single, c As Single Dim a As Single, b As Single, c As Single a = 6 a = 6 b = 9 b = 9 c = c = Sqr(aSqr(a * a + b * b) *
7、 a + b * b) Print c = ; c Print c = ; c End Sub End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： c=10.81665例例2.1 （实验课练习）（实验课练习） 已知已知a=6，b=9，计算，计算c = 例例2.1主页主页编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Randomize 初始化随机数生成器初始化随机数生成器 a = Int(90 * Rnd +
8、 10) 产生产生10,99区间内的随机整数区间内的随机整数 b = Int(90 * Rnd + 10) c = a + b 求两数之和求两数之和 Print 产生的两个随机数产生的两个随机数: ; a, b Print 和数和数: ; c End Sub运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 产生的两个随机数：产生的两个随机数：56 71 和数：和数：127例例2.2 通过随机函数产生通过随机函数产生2个两位正整数，求这个两位正整数，求这2个数个数 之和并显示出来之和并显示出来 再次运行程序，单击窗体后输再次运行程序，单击窗体后输出另一组结果是：出另一组结果是：
9、产生的两个随机数：产生的两个随机数：18 37 和数：和数：55例例2.2主页主页 用于进行字符串处理用于进行字符串处理 说明：说明：(1) 函数函数Mid(字符串，字符串，p，n) 从第从第P个开始取个开始取n个字符个字符 示例：示例：Mid(“ABCDEG”,3,2) 的结果为的结果为 ”CD” 若省略若省略n，则得到的是从则得到的是从P开始的往后所有字符，如开始的往后所有字符，如 Mid(“ABCDE”，2) 的结果为的结果为 “BCDE” (2) (2) 函数函数Instr(fInstr(f, ,串串1,1,串串2,k)2,k) 查找查找串串2在在串串1中的位置中的位置 f f 和和
10、k k 均为可选参数，均为可选参数，f f表示开始搜索的位置表示开始搜索的位置( (默认值为默认值为1)1)，k k表示比较方式，若表示比较方式，若k k为为0(0(默认默认) )，表示区分大小写；若，表示区分大小写；若k k为为1 1，则不，则不分大小写。分大小写。 例如例如 Instr(3, Instr(3, ”A12a34A56A12a34A56”, ”A A”) ) 的结果为的结果为 7 7 Instr(3, Instr(3, ”A12a34A56A12a34A56”, , ”A A”, 1), 1) 的结果为的结果为 4 4 Instr(Instr(”A12a34A56A12a34A
11、56”, ”A A”) ) 的结果为的结果为 1 1 (3) (3)函数函数LeftLeft(字符串，字符串，n) 取左边取左边n个字符个字符 示例示例: : Left(Left(”ABCDEABCDE” ，2)2) 的结果为的结果为 ”ABAB”字符串函数字符串函数主页主页 先从字符串先从字符串a中找出某个指定字符中找出某个指定字符(本例为空格本例为空格)，再以此字符，再以此字符为界拆分成两个字符串。编写的窗体单击过程代码如下：为界拆分成两个字符串。编写的窗体单击过程代码如下： Private Sub Form_Click() Dim a As String, b As String, c
12、As String, n As Integer a = VisualBasic 表示空格表示空格 n = InStr(a, ) 查找空格位置查找空格位置 b = Left(a, n - 1) 取左边部分取左边部分 c = Mid(a, n + 1) 取右边部分取右边部分 Print b 显示左边部分显示左边部分 Print c 显示右边部分显示右边部分 End Sub 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： Visual Basic例例2.32.3 （实验课练习）（实验课练习）使用字符串函数示例使用字符串函数示例例例2.3 处理方法处理方法 VisualBasic 先
13、先查找查找 空格位置空格位置取右边部分取右边部分取左边部分取左边部分主页主页 Private Sub Form_Click() Dim a As String, b As String, c As String, n As Integer a = “VisualBasic” 表示空格表示空格 n = InStr(a, “”) 查找空格位置查找空格位置 b = Left(a, n - 1) 取左边部分取左边部分 c = Right( a, _ ) 取右边部分取右边部分 Print b 显示左边部分显示左边部分 Print c 显示右边部分显示右边部分 End Sub 备注：备注：Right(字符
14、串字符串,n):取字符串右部的取字符串右部的n个字符个字符 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： Visual Basic 若用若用 RightRight函数来代替函数来代替 MidMid函数函数, 应如何改动？应如何改动？想一想想一想思考题思考题A. n B. Len(a)-n C. Len(a)B主页主页 日期日期/时间函数用于进行日期和时间处理时间函数用于进行日期和时间处理 例如：例如： 函数函数Date返回系统日期，如返回日期为返回系统日期，如返回日期为 #11/03/2001# 函数函数Time返回系统时间，如返回时间为返回系统时间，如返回时间为 #7:0
15、3:28#2.4.3 2.4.3 日期与时间函数日期与时间函数主页主页 转换函数用于数据类型的转换转换函数用于数据类型的转换Str(数值表达式数值表达式)：把数值转换为字符串：把数值转换为字符串Val(字符串字符串)：把字符串转化为数值，忽略字符串中的非数字字符。：把字符串转化为数值，忽略字符串中的非数字字符。 使用转换函数的示例使用转换函数的示例 Private Sub Form_Click() x = 123 y = 123 a = Chr(Asc(x) + 5) b = Str(Val(x) + 5) c = Val(Str(y) + 5) Print a,b, c End Sub 运行
16、程序后单击窗体，输出结果是什么运行程序后单击窗体，输出结果是什么 ? ? 备注：备注：Asc(xAsc(x$):$):返回字符串返回字符串x$x$中第一个字符的中第一个字符的ASCIIASCII字符字符 Chr$(xChr$(x):):把把x x的值转化为相应的的值转化为相应的ASCIIASCII字符。字符。 2.4.42.4.4 类型转换函数类型转换函数想一想想一想6 128 1235转换函数例转换函数例思考题思考题主页主页 在编写程序代码时，要遵守一定的规则。不能超越其规定在编写程序代码时，要遵守一定的规则。不能超越其规定来自由发挥。来自由发挥。 (1) 一行写多条语句一行写多条语句。冒号
17、分隔。冒号分隔 Sum=Sum+x : Count=Count+1 (2) 一条语句写成多行一条语句写成多行 使用续行符使用续行符(一个空格后面跟随一个下划线一个空格后面跟随一个下划线“_”)，将长，将长语句分成多行。例如：语句分成多行。例如： Print Text1.Text & Text2.Text & Text4.Text _ & Left(Text3.Text，3) (3)不区分大小写字母不区分大小写字母 VB不区分应用程序代码字母的大小写不区分应用程序代码字母的大小写 。 2.5.22.5.2 代码书写规则代码书写规则主页主页 (4) 各关键字之间，关键字和变量名、常量名、各关键字之
18、间，关键字和变量名、常量名、过程名之间一定要有空格分隔。过程名之间一定要有空格分隔。 示例：示例： Private Sub Form_Click() (5)使用缩进使用缩进 在编写程序代码时，可以使用缩进来反映代码的逻辑结在编写程序代码时，可以使用缩进来反映代码的逻辑结构和嵌套关系。构和嵌套关系。例如：例如： Private Sub Form_Click() x=4 If x1 Then Print x=1 End If End Sub主页主页 (6)严格按照严格按照VB规定的格式和符号编写程序。规定的格式和符号编写程序。 与其他高级语言一样，在与其他高级语言一样，在VB中使用的分号、引号、括
19、号中使用的分号、引号、括号等符号都是英文状态下的半角符号，而不能使用中文状态下等符号都是英文状态下的半角符号，而不能使用中文状态下的全角符号。的全角符号。 许多程序错误都是由此而起许多程序错误都是由此而起! 例如：例如： If a5 Then x=10 Print x=; x 不能写成不能写成 If a 5 Then x=10 Print “x=”；x全角符号全角符号全角符号全角符号主页主页 VBVB支持结构化的程序设计方法支持结构化的程序设计方法 其程序结构清晰，可读性好，也易于查错和修改其程序结构清晰，可读性好，也易于查错和修改 结构化程序设计方法有三种基本控制结构：结构化程序设计方法有三种基本控制结构： 顺序结构、选择结构和循环结构顺序结构、选择结构和循环结构 具有具有单入口，单出口单入口，单出口的特点的特点 (a) (b) (c) 顺序结构顺序结构 选择结构选择结构 循环结构循环结构AB假假真真L E真真假假AB E2.5.32.5.3 结构化程序的基本结构结构化程序的基本结构
