程序设计基础4.ppt

4.1 数据类型 n VB提供的数据类型 l 基本数据类型 u字符串（String） u数值 n整型数 n浮点数 u货币（Currency ） u变体（Variant） u其他数据类型 n n字节（字节（ByteByte） n n布尔（布尔（BooleanBoolean） n n日期（日期（DateDate） n n对象对象( (Object)Object) n nDecimalDecimal l l用户定义的数据类型用户定义的数据类型 l l枚举类型枚举类型 4.1.1 基本数据类型字符串（String） n 知识点 l是一个字符序列，有ASCII字符组成（包括标准的和扩展的 ） l在VB中，字符串是放在双引号内的若干个字符，其中长度 为0（即不含任何字符）的字符串称为空字符串。 u“Hello” u“We are students” u“”空字符串 u“大家好！” lVB中的字符串分为两种：变长字符串和定长字符串 u变长字符串的长度是不确定的，可以从0231（约21亿） 个字符。 u定长字符串含有确定个数的字符，最大长度不超过216个 字符。 基本数据类型数值 整型数整型数 浮点数浮点数 数数 值值 长整数长整数（LongLong） 整数整数（IntegerInteger） 单精度浮点数单精度浮点数（SingleSingle） 双精度浮点数双精度浮点数（DoubleDouble） 整型数：整型数： 不带小数点和指数符号的数，不带小数点和指数符号的数， 在机器内部以二进制补码形式在机器内部以二进制补码形式 表示。表示。 整数（整数（IntegerInteger）：）： 整数以两个字节（整数以两个字节（1616位）的二位）的二 进制码表示和参加运算，取值进制码表示和参加运算，取值 范围：范围： -3276832767-3276832767 长整数（长整数（LongLong）：）： 以带符号的以带符号的4 4个字节（个字节（3232位）位） 二进制数存储，其取值范围为二进制数存储，其取值范围为: : -2147483648+2147483647-2147483648+2147483647 浮点数：浮点数： 也称为实型数或实数，是带有也称为实型数或实数，是带有 小数部分的数值。由小数部分的数值。由3 3部分组部分组 成：符号、指数、尾数。成：符号、指数、尾数。 单精度浮点数用单精度浮点数用E E或或e e表示：表示： 123.45123.45E3E3（或或E+3E+3） 相当相当 于于123.4510123.4510 3 3 双精度浮点数用双精度浮点数用DD或或d d表示：表示： 123.45678123.45678D3D3（或或D+3D+3）相相 当于当于123.4567810123.4567810 3 3 格式：尾数格式：尾数+ +指数指数 单精度浮点数单精度浮点数( (SingleSingle）：）： 以四个字节（以四个字节（3232位）存储，其位）存储，其 中符号占中符号占1 1位，指数占位，指数占8 8位，其位，其 余余2323位表示尾数，此外还有一位表示尾数，此外还有一 个附加的隐含位。个附加的隐含位。 可以精确到可以精确到7 7位十进制数。位十进制数。 负数取值范围：负数取值范围： -3.402823-3.402823E+38-1.401298E-45E+38-1.401298E-45 正数取值范围：正数取值范围： 1.4012981.401298E-453.402823E+38E-453.402823E+38 双精度浮点数双精度浮点数( (DoubleDouble）：）： 以以8 8个字节（个字节（6464位）存储，其位）存储，其 中符号占中符号占1 1位，指数占位，指数占1111位，位， 其余其余5252位表示尾数，此外还有位表示尾数，此外还有 一个附加的隐含位。一个附加的隐含位。 可以精确到可以精确到1515或或1616位十进制数位十进制数 。 基本数据类型货币 n 知识点 l是为表示钱款而设置的。 l以8个字节（64位）存储，精确到小数点后4位（小数点 前有15位），在小数点后4位以后的数字将被舍去。 l浮点数中的小数是浮动的，即小数点可以出现在数的任何 位置，而货币型数据的小数点是固定的，因此称为定点数 据类型。 基本数据类型变体（Variant） n 知识点 l 是一种可变的数据类型，可以表示任何值，包括： u数值 u字符串 u日期 u时间 u等 Variant 型是声明变量时的缺省类型，能够存储所有类型的数据。如果 把数据赋予 Variant 变量，则不必在这些数据的类型间进行转换； Visual Basic 会自动完成任何必要的转换。例如： Dim SomeValue SomeValue = “17“ SomeValue = SomeValue - 15 SomeValue = “U“ “; a; ba; b intTemp intTemp = a: a = b: b = = a: a = b: b = intTempintTemp 变量交换变量交换 End SubEnd Sub Private Sub Command2_Click()Private Sub Command2_Click() Print : Print “aPrint : Print “a和和b b内容交换后：内容交换后：“; “; a; ba; b End SubEnd Sub Public n 知识点 l用来在标准模块中定义全局变量和数组 l例如： uPublic total as Integer 关于变量定义时应注意的问题 n 如果一个变量未被显式定义，末尾也没有类型说明符，隐含 说明为变体类型变量（Variant） n 用deftype语句定义的变量只对它所在的模块起作用。 l 类型说明符总是比DefType语句优先起作用 n 在实际应用中，应根据需要设置变量的类型。 l 节省内存空间，提高处理速度 n 用类型说明符定义的变量，在使用时可以省略类型说明符。 l Dim astr$ l Astr=“123333” l Astr$=“123333” 部分变量存储要求（列表） 变量类型类型说明符As类型名数据长度（字节） 字节Byte1 布尔Boolean2 整型%Integer2 长整型 b; c AAAAA-aaaaa 空格函数 n 格式： lSpace$(n) l返回n个空格 l举例 a=“abc“ + space(10)+“def“ ?a abc def 字符串匹配函数 n 说明 l 在编写程序时，有时候需要知道是否在文本框中输入了某个字 符串。 n 格式 l Instr（首字符位置，字符串1，字符串2，n） l 在字符串1中查找字符串2，如果找到了，则返回字符串2的第 一个字符在字符串1中的位置。字符串1的第一个字符的位置为 1。 l 举例 a=“这是我的第一个vb程序！“ x=instr(a,“vb“) ?x 8 字符串匹配函数说明 n 字符串2的长度必须小于65535个字符 n 首字符位置是可选的。如果含有首字符位置，则从该位置开 始查找，否则，从字符串1的起始位置开始查找。首字符位 置是一个长整数。 n 函数的最后一个自变量是可选的，它是一个整型数，用来指 定字符串比较方式。 l 该自变量的取值可以是0、1、2 l 0进行二进制比较，区分字母的大小写 l 1在比较时忽略大小写 l 2基于数据库中包含的信息进行比较（仅用于Microsoft Access），默认为0，即区分大小写。 先从字符串先从字符串a a中找出某个指定字符中找出某个指定字符( (本例为空格本例为空格) )，再以此，再以此 字符为界拆分成两个字符串。编写的窗体单击过程代码如下字符为界拆分成两个字符串。编写的窗体单击过程代码如下 ： Private Sub Form_Click()Private Sub Form_Click() Dim a As String, b As String, c As String, n As IntegerDim a As String, b As String, c As String, n As Integer a = “VisualFoxPro“a = “VisualFoxPro“ 表示空格表示空格 n = n = InStrInStr(a, “)(a, “) 查找空格位置查找空格位置 b = Left(a, n - 1)b = Left(a, n - 1) 取左边部分取左边部分 c = Mid(a, n + 1)c = Mid(a, n + 1) 取右边部分取右边部分 Print bPrint b 显示左边部分显示左边部分 Print cPrint c 显示右边部分显示右边部分 End SubEnd Sub 程序运行后单击窗体，输出结果是：程序运行后单击窗体，输出结果是： VisualVisual FoxPro FoxPro 例例4.44.4 使用字符串函数示例使用字符串函数示例 Instr函数的返回值 条件返回值 “字符串1”为零长度0 “字符串1”为NullNull “字符串2”为零长度首字符位置 “字符串2”为NullNull “字符串2”未找到0 在“字符串1”中找到“字符 串2” 找到的位置 首字符位置”字符串2”位 置 0 字母大小写转换 n 格式： l Ucase$(字符串) u小大 l Lcase（字符串） u大小 l 举例 a=“这是我的第一个vb程序！“ x=ucase(a) ?x 这是我的第一个VB程序！ 4.6 运算符与表达式 n 内容简介 l算术运算符 u幂运算 u浮点数除法与整数除法 u取模运算 u算术运算符的优先级 u字符串连接 l关系运算符与逻辑运算符 u关系运算符 u逻辑运算符 l表达式的执行顺序 VB提供的算术运算符（9个） 运算运算符表达式例子 幂 XY 取负 - -X 乘法 * X*Y 浮点除法 / X/Y 整数除法 XY 取模 Mod X MOD Y 加法 + X+Y 减法 - X-Y 连接 : “; c c End SubEnd Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 处理后的数：处理后的数：6363 例4.3 给定一个两位正整数(如36)，交换个位数和十位数 的位置，把处理后的数显示在窗体上 Private Sub Form_Click()Private Sub Form_Click() Dim x As Integer, a As IntegerDim x As Integer, a As Integer Dim b As Integer, c As Integer Dim b As Integer, c As Integer x = 36 x = 36 a = x 10 a = x 10 求十位数求十位数 b = x 10 * a b = x 10 * a 求个位数求个位数 c = b * 10 + a c = b * 10 + a Print “ Print “处理后的数处理后的数: “; : “; c c End SubEnd Sub 把上述程序改为以下形式，效果是否一样？把上述程序改为以下形式，效果是否一样？ 想一想 通常，解决某个问题的程序方法有多种 ，我们应该从中选择较优的一种方法。 算术运算符的优先级 运算运算符 幂 取负 - 乘法 * 浮点除法 / 整数除法 取模 Mod 加法 + 减法 - 连接 & 高高 低低 括号内运算优先括号内运算优先 内括号优先于外括号内括号优先于外括号 字符串连接 n 知识点 l X$ & Y$ l “+”也可以用作字符串连接符 l 举例 Private Sub Command1_Click() a$ = “这是我的“ b$ = “第一个程序！“ c = a & b Label1.Caption = c End Sub 说明：说明： vv使用使用+ +号号，要求连接的两个表达式均为字符串型，要求连接的两个表达式均为字符串型 vv使用使用&号号，连接的两个表达式可以为任何类型，但结果为字符串型，连接的两个表达式可以为任何类型，但结果为字符串型，如，如 “ “当前日期当前日期” ” & #10/8/2002# #10/8/2002# Public a as string,b as string Private sub form_click() a=“mouse”:b =“down” Print a& “up” & b Print 1234 + “5678” Print 1234 & 5678 End sub 结果： mouseupdown 6912 12345678 举例： 关系运算符 n 知识点 l 比较运算符 l 对两个表达式的值进行比较，比较的结果是一个逻辑值（true or false） l 用关系运算符连接两个算术表达式所组成的式子关系表达 式，结果是Boolean型的值（true or false）。 l VB把任何非0值认为是真（true）；但是，一般以-1表示真（