精品课件教案ppt 计算机科学学院

计算机科学学院 Visual Basic程序设计基础 * 1 第二章 Visual Basic语言基础知识 2.1 数据类型 2.2 常量和变量 2.3 运算符与表达式 2.4 常用内部函数 Date 2 2.1 数据类型 数据是程序的必要组成部分，也是程序处理的对象 。为了对数据进行快速处理和有效地分配存储空间，VB把 数据分为各种不同的数据类型。 基本 数据 类型 变体 字符串 数值 布尔 对象 货币 字节 日期 用户 自定义 数据类 型 Date 3 2.1 数据类型 字符串型字符串型 关键字：关键字：StringString，类型说明符类型说明符：$ $ 存放字符型数据，字符型数据包括所有的英文 、汉字和数字等。 字符串放在双引号(“ ”)内，其中长度为0(即不包含任何字符) 的字符串为空串(空串不等于空格串)。 变长字符串和定长字符串(最长不超过65535个字符) “欢迎使用Visual Basic“ 、“abcde123“、“12345“ Date 4 2.1 数据类型 vv数值型数值型 整型数整型数：存放整数，取值范围：-3276732767 浮点数：浮点数：存放带小数的数，浮点数可以用科学计数 法来表示，所以小数点可以出现在任意位置。 整型Integer%占2个字节 长整型Long c End Sub Date 40 2、字符串运算符 + , a, b Print “和数: “; c End Sub Date 78 字符串函数 函数含义 Ltrim$去掉字符串Str左边的空白字符，并返回 Rtrim$去掉字符串Str右边的空白字符，并返回 Trim$去掉字符串Str左边和右边的空白字符，并返回 Ltrim(“ abcd “) = “abcd “ Rtrim(“ abcd “) = “ abcd“ Trim(“ abcd “) = “abcd“ 说明：如果返回是字符型，则函数后有“$”字符。 Date 79 字符串函数 Left$(“World”,2) 结果: Right$(“World”,2) 结果: Mid$(“World”,2,3) 结果: 函数含义 Left $(C.N)从C中左边起取N个字符 Right$(C,N)从C中右边起取N个字符 Mid$(C,N1,N2)从C中第N1位取N2个字符 WoWoWoWo ldld “ ” ldld“ ” orlorlorlorl “ ” Date 80 字符串函数 函数含义 Len(C)返回C的长度 Len(“name”) 结果: 4 函数含义 String$(n,Str)返回由Str第一个字符重复n次所组成的字符串 Space$(n)返回包含n个空格的字符串 String(3, “s“)的结果为：“sss“ String(3, “sab“)的结果同样为“sss“ Space(6)的结果为：“ “ Date 81 字符串函数 Instr（4，”xxpxxpXp”，”p”） 函数含义 Instr(N1,C1,C2,M) 返回C2在C1中首次出现的位置(从N1开始 ) 函数含义 Lcase(c)将C中大写字母变为小写字母 Ucase(c)将C中小写字母改为大写字母 v UCase(“How Are You“) = “HOW ARE YOU“ v LCase(“How Are You“) = “ how are you “ 从第从第4 4位开始位开始 x x p p 第第6 6位位 结果为6 Date 82 练习 s1 = “ABCDEFGH“ s2 = Left(s1, 2) s3 = Right(s1, 3) s4 = Mid(s1, 3, 2) Print s2, s3, s4 s1 = “Visual Basic“ i = Len(s1) Print InStr(“ABCDEF“, “BC“) Print InStr(2, “ABCDEF“, “BC“) Print InStr(4, “ABCDEF“, “BC“) Str1 = “Hello“ s1 = UCase(Str1) s2 = LCase(Str1) Str1 = Space(2) Print s1, s2, Str1, 10 想一想 Date 83 练 习 100 mod 3 1003+20 “ABC”abc” Date Int(-45.235) Fix(45.235) Len(“how are you!”) Left(“visual basic”,6) 1 1 5353 FalseFalse 当前系统日期当前系统日期 -46-46 4545 1212 visualvisual Date 84 转换函数ASCII码转换函数 Asc(“China”) 结果： 67(大写字母C的ASCII码值为67) Chr(100) 结果：“ d ”(小写字母d的ASCII码值为100) 函数名一般格式功能 字符转换为ASCII码值Asc(Str)返回字符串Str中首字符的ASCII 码 ASCII码转换为字符Chr(n)返回ASCII码为整数n的字符 Date 85 转换函数直接转换函数 Str(323.1) 结果：“ 323.1”正数无符号，转换成空格 Str(-323.1) 结果：“-323.1”负数的符号直接转换，无空格 N1= Val(“1.234”) N1的值是 1.234数值转换 N2= Val(“1.34ASD45”) N2的值是 1.34字母后忽略 N3= Val(“-12ASD“) N3的值是-12字母后忽略 N4= Val(“ASD123”) N4的值是0字母开头为0 N5= Val(“ a; “天“ Print “2008年元旦是：该星期的第“; ; “天“ Print “本月份是：“; c; “年“; d; “月“ Print “现在是：“; e; “时“; f; “分“ End Sub 该星期的第3天 日期/时间函数示例 Date 89 格式输出函数 函数一般格式说明 Format Format(expression, format, firstdayofweek, firstweekofyear) 将数据转换为 指定格式字符 串 说明： （1）expression为有效表达式，即要转换的数据，format 参数一般不省略，当省略时，可以简单认为此时Format函数的作 用和CStr函数一致。 例如：Format(-455)的结果为“-455“。 Date 90 数学函数 1.5+2.5+3.5+4.5=12=round(1.5)+round(2.5)+round(3.5)+ round(4.5)1.5+2.5+3.5+4.5=12=round(1.5)+round(2.5)+round(3.5)+ round(4.5) 四舍六入五凑偶 vv三角函数三角函数 Sin(x)Sin(x)、Cos(x)Cos(x)、Tan(xTan(x) ) vv取整函数取整函数 Fix(x)Fix(x)、Int(x)Int(x)、CInt(x)CInt(x)、Round(xRound(x) ) vv随机函数随机函数 RndRnd产生产生0,1)0,1)之间的随机数之间的随机数 RandomizeRandomize语句语句 vv其它数学函数其它数学函数 Abs(x)Abs(x)、Sgn(x)Sgn(x)、Exp(x)Exp(x)、Log(x)Log(x)、Sqr(xSqr(x) ) Date 91 表达式转换 v将数学公式转换为VB表达式 程序中写为： Sqr(a+b)*sin(30*3.14/180)/(x12+1)*(y3-2) Date 92 产生随机数 v产生300500的随机整数 Int(RndInt(Rnd*201+300)*201+300) Fix(RndFix(Rnd*201+300)*201+300) vv产生产生-500-300-500-300的随机整数的随机整数 Int(RndInt(Rnd*201-500)*201-500) Fix(RndFix(Rnd*200-500)*200-500) Date 93 v设a = 5，b = 10，则 c = Int(b - a) * Rnd + a) + 1后，c值的范围为( ) （A）510 （B）69 （C）610 （D）59 C 例题 Date 94 字符串函数 v求字符串大小函数 Len(str)、LenB(str) v取子串函数 Left (str,n)、Right (str,n)、Mid (str,p,n) Ltrim (str)、Rtrim (str)、Trim (str) v找子串函数 InStr(str1, str2) v字符串转换函数 Str (num)、Val(str)、Lcase (str)、Ucase (str) Date 95 其它函数 v字符和ASCII码的转换函数 Asc(str)、Chr$(n) v转换八进制和十六进制数函数 Oct$(n)、Hex$(n) v日期/时间函数 Time Date Now Date 96 课堂练习 4 157 157 “ “ 1233412334 “ “ 123445 123445 vv表达式表达式16 / 4 - 2 5 * 8 / 4 MOD 5 216 / 4 - 2 5 * 8 / 4 MOD 5 2 的值为的值为 _ vv赋值语句赋值语句: :a=123 + Mid(“123456“,3,2)a=123 + Mid(“123456“,3,2)执行后执行后, , a a变量为变量为_ vv赋值语句赋值语句: :a=123 & Mid(“123456“,3,2)a=123 & Mid(“123456“,3,2)执行后执行后, , a a变量为变量为_ vv已知已知A=“12345678” ,A=“12345