1、Visual Basic 程序设计 第3章 BASIC 语言基础,编写: 楼诗风,主要内容,基本数据类型：数值型、字符型、日期型、布尔型、变体型 常量与变量及其定义 不同数据类型的运算 表达式 内置函数,基本数据类型,均指二进制的位，尾数和指数都含 1 位符号位。尾数在（1，1）之间。,基本数据类型(续),常量,直接常量 数值常量，如: 3.12，-5，1.3E-8 日期时间常量，如：#10/12/2002 10:30# 字符串常量，如：“Im fine“，“99.9“ 逻辑常量：True，False 用符号表示的VB常量，如： vbCrLf 回车换行 chr(13) & chr(10) vb
2、YesNo =4，在消息框msgbox中显示 Yes 和 No按钮,常量,符号常量分VB已定义的符号常量和自定义符号常量。 VB常量，如： vbCrLf 回车换行 chr(13) & chr(10) vbYesNo =4，在消息框msgbox中显示 Yes 和 No按钮 好处：便于记忆，便于程序阅读 查阅定义：在对象管理器中,自定义符号常量声明,声明常量的好处: 便于识别（使用有意义的符号，如PI） 便于修改（只需修改定义部分） 减少差错：避免输入错误，便于查错,例： Const PI=3.1415926 Const VB as string _= “Visual Basic“ Public
3、Const conMax=99 Const PI2=PI*2 Const T911= #2001-9-11#,Public|Private Const as =,枚举类型定义符号常量集合,语法 Public|Private Enum 类型名=常量表达式=常量表达式 End Enum 如果没有常量表达式，则第一个成员等于0，后一个成员等于前一个成员加1。 常量表达式为Long类型 类型定义后，可以用在变量声明语句中,例如： Enum SeasonSpring =1SummerFallWinter End Enum 结果：Season是个符号常量集合，其中包含4个符号常量：Spring1，Summ
4、er2Fall3，Winter4 使用：Dim jd As Season,在对象浏览器中观察自定义的类型,变量及其命名规则,变量分内存变量和属性变量。 属性变量即对象的属性，其名称与类型是确定不变的，例如Caption属性，其变量名是 对象名.Caption，而其类型为String。 一般变量即指内存变量，其名称与类型是由程序员定义的。 变量名不能以数字开始，不能用VB的保留字 变量名只能由字母、数字和下划线组成 变量名可以使用中文，但较少见。,变量的声明,变量的声明语句： Dim|Public|Static as 显式声明语句： Option Explicit 该语句强制变量必须先声明才能使
5、用 例: Dim x As DoubleDim i As Integer, j As Single, s As String或: Dim i%, j!, s$注意：如声明 Dim x,y As Single 则x为Variant型（变体型），y才是Single型,表达式,常量、变量、函数用运算符连接而成 单独一个常量，或变量，或函数都可以看作是一个表达式 运算结果称为表达式的值，该值的数据类型即为表达式的类型。,运算符,数值运算：+ - * / （加减乘除） (整除) , 如: 103= 3mod (求余数),如: 12 mod 5 = 2 (幂), 如: 34 =81 ( 34) 比较运算:
6、 = 连接运算: & (或+) 逻辑运算: not and or xor equ imp VB内置函数,数值运算,算术运算：+ - * / （加减乘除） 整除： 如 113，结果为 3求余数：mod 如 14 mod 5 ，结果为 4幂运算： 如 34 即 34，结果为81 注意：整除（）和模运算符（mod）两侧遇小数点时，先四舍五入，再运算。如: 10.53.5=114=2 7.2 mod 3.5=7 mod 4=3,数值运算的精度,数值表达式的运算结果一般为Double或Long类型。但如果含Single类型的变量或常量，则可能降低其运算精度。 数值常量也可以使用类型后缀(%,&,!,)，
7、从而改变其参加运算的表达式的运算精度。例如： ？1/3 输出 .333333333333333 ? 1/3! 输出 .3333333 其中3!表示单精度常数3，不是3的阶乘！,日期型数据的运算,日期型数据可以加减天数（可含小数），结果仍为日期型。例如：#2005-9-25# - 10 两个日期型数据之差为两个日期之间相隔的天数。例如： #2005-9-25# - #1986-5-20# 日期型数据可以看作一个数值型数据，即该日期与 #1899-12-30 00:00# 之间相差的天数，其中的整数部分为日期，小数部分为时间。该数值称为日期的 “系列数”。 例如，用单精度数显示#1900-1-1
8、6:00# ： ? Csng(#1900-1-1 6:00#) 输出: 2.25,比较运算,运算: = 比较结果为 True 或 False 双字符运算符（ = 和 ）两字符之间不能有空格，也不能写成 =、 字符型数据按其内码（Unicode）大小比较 Unicode：2字节无符号整数，国际通用码。 ASCII码表中的符号，码值不变，位长16。 注意：对浮点（单精度、双精度）数不要进行=（等于）比较，如?1/3 显示.333333333333333 ?1/3= .333333333333333 显示False,字符串的连接运算,字符串的连接运算： & (推荐使用）或： + (尽量不用） 例如：
9、 “安徽“ & “合肥“ “安徽合肥“ 在文本框Text1和Text2中分别输入 3 和 4，则表达式Text1.Text+Text2.Text 的值为“34”而不是7。这是因为Text属性 的类型是字符型，而不是数值型。,逻辑运算,按位运算,例：,运算的优先级,例,14,True,6=1+2+3,False,7,2,2008-8-8,9,True,2,VB内置函数,VB内置函数是可以直接使用的函数 内置函数是调用内部子程序后返回的结果，称为函数的值。此值的类型称为函数的类型。 不同的函数有不同的参数，要注意每种函数所带参数的个数和类型。 函数可以直接放在表达式中，为数据处理带来很大方便。,数
10、学函数,三角函数: 用弧度 Cos(x), Sin(x), Tan(x), Atn(x) 单位：弧度 sin2 35 表示为 sin(35*3.1416/180)2对数:Log(x),指数:Exp(x) (以e为底)平方根: Sqr(x)绝对值: Abs(x) | x-y | 表示为: abs(x-y)取整: Int(x) 取x的最大整数Fix(x) 取x的整数部分 符号函数 Sgn：Sgn(x)=,VB内置函数,数学函数的应用实例, Tan(/4)=1 4*Atn(1) = 3.14159265358979 可用于定义常量： Const PI= 4*Atn(1) e = exp(1) = 2
11、.71828182845905,4 * Atn(1),eExp(1),随机函数,（伪）随机函数 Rnd : 产生01之间的1个随机数，0 Rnd 1 随机函数在测试、模拟、游戏等程序中有广泛应用。例如，要产生一个16之间的随机整数，可以用表达式：Int(Rnd*6)+1 Randomize语句：产生随机数的种子，从而改变随机数序列。,VB内置函数,日期时间函数,不带参数： 日期函数 Date 和 Date$ 取系统日期 时间函数 Time 和 Time$ 取系统时间 日期和时间函数 Now 取系统日期和时间 当天已过时间总秒数 Timer 带参数（日期型表达式）： Year，Month，Day
12、 分出年月日 Weekday 算出星期几 Hour，Minute，Second 分出时分秒,VB内置函数,字符串函数（1）,取子字符串: Left 函数：取左边 n 个字符，如 Left(“Basic”,3)=“Bas” Right 函数：取右边 n 个字符，如 Right(“Basic”,2)=“ic” Mid 函数：取中间 n 个字符，如 : Mid(“Basic”,2,3)=“asi” , Mid(“Basic”,2)=“asic” 取长度（字符数）函数 Len，如 Len(“Go!”)=3,VB内置函数,字符串函数（2）,求子串位置 InStr ，如InStr(“Welcome”，”c
13、ome”) = 4 转换函数： 求值Val，取前面可作数值的字串转换，如 val(“1.23mm”)=1.23 而 val(“1.23e2abc”)=1.23e2=123 数值转字符 Str：Str(12.3)=“12.3” 代码字符 Chr ：例如 Chr$(65)=“A” 字符代码 Asc : 例如 Asc(“A”)=65 注：中文VB使用双字节的Unicode码,VB内置函数,字符串函数（3）,空格函数Space(n)，返回n个空格 字符重复函数 String(n,c)，返回n个字串c的第一个字符 大小写转换函数：Lcase(s) 转换为小写Ucase(s) 转换为大写,VB内置函数,转
14、换函数和判断函数,转换函数 Cint，CLng，CSng，CStr，注意其命名法：C 判断函数 IsNumeric(表达式) 判是否数值，布尔型 IsEmpty(变量) 判是否空值，布尔型 IIf(条件，值1，值2) Typename(表达式）返回表达式的类型名 IsDate (表达式）判是否日期，布尔型,VB内置函数,格式转换函数,函数格式： Format(,) 功能：将表达式的值按指定格式进行转换。 例： Format(1.2,”00.000”)”01.200” Format(Date,”yy.m.d”)”05.3.8”,VB内置函数,语句的书写格式,一般情况下，每行一条语句 一行多条语句之间用冒号( : )作分隔符，如 a=1 : b=2 : c=3 长语句分多行书写是，可在换行前加续行符（下划线_），例如： MsgBox “Sum Of 1，2，3，100 is “ _& vbcrlf & x , vbInformation 注释部分以单引号 ( ) 开头，止换行,
