春VB程序设计第4部分程序设计基础

1 教 材 ： Visual Basic程 序 设 计 教 程（ 第 三 版 ）高 等 教 育 出 版 社主 讲 ： 陆 延 哲Visual Basic 程 序 设 计 （ 四 ） 2 第 4部 分 程 序 设 计 基 础一 、 标 识 符 命 名二 、 数 据 类 型三 、 常 量四 、 变 量五 、 运 算 符 与 表 达 式六 、 常 用 标 准 函 数七 、 编 写 简 单 应 用 程 序 3 一 、 标 识 符 命 名1、 VB的 标 识 符 字 符 集 w 大 写 字 母 ： 大 写 英 文 字 母 AZw 小 写 字 母 ： 小 写 英 文 字 母 azw 下 划 线 ： _w 数 字 ： 0一 92、 VB的 标 识 符 应 用 范 围大 写 字 母 ： 大 写 英 文 字 母小 写 字 母 ： 小 写 英 文 字 母下 划 线 ：数 字 ： 一 w 常 量 、 变 量 、 数 组 、 过 程 、 函 数 、 窗体 、 控 件 等 4 3、 VB的 标 识 符 命 名 规 则w 由 字 母 、 数 字 、 下 划 线 组 成 ， 以 字 母 开 头w 不 区 分 字 母 的 大 小 写w 控 件 、 窗 体 、 类 、 模 块 名 字 不 超 过 40字 符w 普 通 标 识 符 不 超 过 255字 符w 不 能 使 用 VB保 留 字w 同 一 应 用 范 围 内 唯 一 5 二 、 数 据 类 型w数 值 型 整 型 (Integer, Long)浮 点 型 (Single, Double)货 币 型 (Currency)w字 符 串 型 (String) w日 期 型 (Date)w变 体 型 (Variant) w对 象 型 (Object)w逻 辑 型 (Boolean)1、 VB的 基 本 数 据 类 型 6 数 据 类 型 关 键 字 类 型 符 前 缀 存 储 空 间 范 围数值数据类型 字 节 型 Byte Byt 1 个 字 节 0 到 255 整 型 Integer % Int 2 个 字 节 -32,768 到 32,767 长 整 型 Long SumEnd Sub 20 直 接 在 变 量 名 后 加 相 应 的 类 型 后 缀（ P66）例 Age%=25 变 量 Age为 Integer变 量 X!=1.456 变 量 X为 Single变 量 21 w 强 制 显 式 声 明 Option Explicit语 句 良 好 的 编 程 习 惯 都 应 该 是 “ 先 声 明 变 量 ， 后 使 用 变 量 ” ，这 样 做 可 以 提 高 程 序 的 效 率 ， 同 时 也 使 程 序 易 于 调 试 。 Visual Basic 中 可 以 强 制 显 式 声 明 ， 可 以 在 窗 体 模 块 、 标 准 模 块 和 类模 块 的 通 用 声 明 段 中 加 入 语 句 ： Option Explicit 22 4、 变 量 赋 值 语 句变 量 名 =表 达 式例 : Dim I As Integer Dim X As Single I=120 X=-1.23*2 1 . 语 句 格 式 2 . 语 句 功 能w将 赋 值 号 右 侧 表 达 式 的 值 赋 给 左 侧 的 变 量 23 五 、 运 算 符 与 表 达 式 1 算 术 运 算 符运 算符 含 义 优 先 级 示 例 结 果 乘 方 1 Ia2 9- 负 号 2 -iA -3* 乘 3 IA* iA* iA 27/ 除 3 10/iA 3.33333333333333 整 除 4 10iA 3 Mod 取 模 5 10 Mod iA 1+ 加 6 10+iA 13- 减 7 IA-10 -7算 术 运 算 符 两 边 的 操 作 数 应 该 是 数 值型 ， 若 是 数 字 字 符 或 逻 辑 型 ， 则 自 动转 换 为 数 值 类 型 后 再 运 算 。 24 2 字 符 串 运 算 符w & 通 用 连 接 运 算 符w + 字 符 串 连 接 运 算 符忽 略 操 作 数 的 类 型 ， 强 行 将 两 操 作 数 的 值 进 行 连 接 。例 : Dim a as Integer Dim b as Integer a=12 b=23 print a & b print a + b 结 果 为 :122335 25 运 算 符 作用 区 别 示 例 结 果& 将两个字符串拼接起来 连 接 符 两 旁 的 操 作 数 不 管 是字 符 型 还 是 数 值 型 ， 系 统 先将 操 作 数 转 换 成 字 符 ， 然 后再 连 接 。 123&55abc+12 12355abc12+ 连 接 符 两 旁 的 操 作 数 均 为 字符 型 ； 若 均 为 数 值 型 则 进 行算 术 加 法 运 算 ； 若 一 个 为 数字 字 符 型 ， 一 个 数 值 型 ， 则自 动 将 数 字 字 符 转 换 为 数 值 ，然 后 进 行 算 术 加 ； 若 一 个 为非 数 字 字 符 型 ， 一 个 数 值 型 ，则 出 错 。 123+55abc+12 178出 错 26 运 算 符 含 义 示 例 结 果= 等 于 ABCDE=ABR False 大 于 ABCDEABR False= 大 于 等 于 bc=大 小 False 小 于 233 False= 小 于 等 于 23=3 True 不 等 于 abcABC TrueLike 字 符 串 匹 配 ABCDEFG Like *DE* TrueIs 对 象 引 用 比较 3 关 系 运 算 符 27 注 意 ： 1） 如 果 两 个 操 作 数 都 是 数 值 型 ， 则 按 其 大 小 比 较 2） 如 果 两 个 操 作 数 都 是 字 符 型 ， 则 按 字 符 的 ASCII 码 值 从 左 到 右 一 一 比 较 3） 汉 字 字 符 大 于 西 文 字 符 4） 关 系 运 算 符 的 优 先 级 相 同 5） VB6.0中 Like运 算 符 与 通 配 符 的 使 用 ： ？ 表 示 任 何 单 一 字 符 * 表 示 0个 或 多 个 字 符 # 表 示 任 何 一 个 数 字 （ 0 - 9） 字 符 列 表 表 示 字 符 列 表 中 的 任 何 单 一 字 符 ！ 字 符 列 表 表 示 不 在 字 符 列 表 中 的 任 何 单 一 字 符 28 4 逻 辑 运 算 符运 算 符 含 义 优 先级 说 明 示 例 结 果Not 取 反 1 当 操 作 数 为 假 时 ， 结 果 为 真 Not FNot T T FAnd 与 2 两 个 操 作 数 均 为 真 时 ， 结 果 才 为 真 T And TF And FT And FF And T TFFFOr 或 3 两 个 操 作 数 中 有 一 个 为 真 时 ， 结 果 为 真 T Or TF Or FT Or F F Or T TFTTXor 异 或 3 两 个 操 作 数 不 相 同 ， 结 果 才 为 真 ， 否 则 为 假 T Xor FT Xor T TFEqv 等 价 4 两 个 操 作 数 相 同 时 ， 结 果 才 为 真 T Eqv FT Eqv T FTImp 蕴 含 5 第 一 个 操 作 数 为 真 ， 第 二 个 操 作 数 为 假 时 ，结 果 才 为 假 ， 其 余 都 为 真 T Imp FT Imp T FT 29 5 表 达 式（ 1） 表 达 式 的 组 成 表 达 式 由 常 量 、 变 量 、 运 算 符 、 函 数 和 圆 括号 按 一 定 的 规 则 组 成 ， 通 过 运 算 后 有 一 个 结 果 ， 运 算结 果 的 类 型 由 数 据 和 运 算 符 共 同 决 定 。（ 2） 表 达 式 的 书 写 规 则 1） 乘 号 不 能 省 略 2） 括 号 必 须 成 对 出 现 ， 均 使 用 圆 括 号 ， 可 以嵌 套 ， 但 必 须 配 对 。 3） 表 达 式 从 左 到 右 在 同 一 基 准 上 书 写 ， 无 高低 、 大 小 之 分 。 例 ： sqr(3*x+y)-z)/(x*y)4 30 （ 3） 不 同 数 据 类 型 的 转 换 操 作 数 的 数 据 类 型 应 该 符 合 要 求 ， 不 同 的 数据 应 该 转 换 成 同 一 类 型 。 在 算 术 运 算 中 ， 如 果 操 作 数的 数 据 精 度 不 同 ， VB规 定 运 算 结 果 采 用 精 度 较 高 的数 据 类 型 。（ 4） 优 先 级 同 一 表 达 式 中 ， 不 同 运 算 符 的 优 先 级 是 ：算 术 运 算 符 字 符 运 算 符 关 系 运 算 符 逻 辑 运 算 符 注 意 ： 对 于 存 在 多 种 运 算 符 的 表 达 式 ， 可 增 加圆 括 号 改 变 优 先 级 或 使 表 达 式 更 清 晰 。 31 日 期 型 表 达 式日 期 型 数 据 是 一 种 特 殊 的 数 值 型 数 据 ， 只 能 有 下 面 3种 情 况 ：1 一 个 日 期 型 数 据 可 以 相 减 ： DateB-DateA结 果 是 一 个 数 值 型 整 数 (两 个 日 期 相 差 的 天 数 )。例 如 ： #05/08/2002# - #05/01/2002# 其 结 果 为 数 值 ： 72 一 个 日 期 型 数 据 （ DateA） 与 一 数 值 数 据 （ N） 可 作 加 法 运 算 ：DateA+N其 结 果 仍 是 一 个 日 期 型 数 据 。例 如 ： #05/01/2002# +7 其 结 果 为 日 期 型 数 据 ： #05/08/2002#3 一 个 日 期 型 数 据 （ DateA） 与 一 数 值 数 据 （ N） 可 作 减 法 运 算 ： DateA-N其 结 果 仍 是 一 个 日 期 型 数 据 。例 如 ： #05/08/2002# - 7其 结 果 为 日 期 型 数 据 ： #05/01/2002# 32 六 、 常 用 标 准 函 数函 数 名 功 能 示 例 结 果Sqr（ x） 求 平 方 根 Sqr（ 9） 3Log（ x） 求 自 然 对 数 ， x0 Log（ 10） 2.3Exp（ x） 求 以 e为 底 的 幂 值 ,即 求 ex Exp（ 3） 20.086Abs（ x） 求 x的 绝 对 值 Abs（ -2.5） 2.5Hex$（ x） 求 x的 十 六 进 制 数 ， 返 回 的 是 字 符 型 值 Hex$（ 28） 1COct$（ x） 求 x的 八 进 制 数 ， 返 回 的 是 字 符 型 值 Oct$（ 10） 12 Sgn(x) 求 x的 符 号 , 当 x0, 返 回 1 ； x=0, 返 回 0； x0, 返 回 -1 Sgn(15) 1Rnd(x) 产 生 一 个 在 （ 0， 1） 区 间 均 匀 分 布 的 随 机 数 ， 每 次 的 值 都 不同 ； 若 x=0， 则 给 出 的 是 上 一 次 本 函 数 产 生 的 随 机 数 Rnd(x) 0-1之 间 的数Sin(x) 求 x的 正 弦 值 ， x的 单 位 是 弧 度 Sin(0) 0Cos(x) 求 x的 余 弦 值 ， x的 单 位 是 弧 度 Cos(1) 0.54Tan(x) 求 x的 正 切 值 ， x的 单 位 是 弧 度 Tan(1) 1.56Atn(x) 求 x的 反 正 切 值 ， x的 单 位 是 弧 度 ， 函 数 返 回 的 是 弧 度 值 Atn(1) 0.791、 数 学 函 数 33 2、 日 期 与 时 间 函 数函 数 名 含 义 示 例 结 果Date () 返 回 系 统 日 期 Date () 02-3-19Time() 返 回 系 统 时 间 Time() 3:30 :00 PMNow 返 回 系 统 时 间 和 日 期 Now 02-3-19 3:30 :00Month(C) 返 回 月 份 代 号 （ 1-12） Month(02,03,19) 3Year(C) 返 回 年 代 号 （ 1752-2078） Year(02-03-19) 2002Day(C) 返 回 日 期 代 号 （ 1-31） Day(02,03,19) 19MonthName(N) 返 回 月 份 名 MonthName(1) 一 月WeekDay() 返 回 星 期 代 号 （ 1-7） ， 星 期 日 为 1 WeekDay(02,03,17) 1WeekDayName(N) 根 据 N返 回 星 期 名 称 ， 1为 星 期日 WeekDayName(4) 星 期 三 34 增 减 日 期 函 数 ： DateAdd（ 要 增 减 日 期 形 式 ， 增 减 量 ， 要 增 减 的 日 期 变 量 ） 例 ： 计 算 期 末 考 试 日 期 ：DateAdd(ww,15,#2002/3/19#)求 日 期 之 差 函 数 ： DateDiff（ 要 间 隔 日 期 形 式 ， 日 期 一 ， 日 期 二 ） 例 ： 计 算 距 毕 业 天 数 ： DateDiff(d, Now, #2005/6/30#)日 期 形 式 ： 日 期 形 式 yyyy q m y d w ww h n s意 义 年 季 月 一 年 的 天 数 日 一 周 的 天 数 星 期 时 分 秒 35 3、 转 换 函 数函 数 名 功 能 示 例 结 果Str (x) 将 数 值 数 据 x转 换 成 字 符 串 Str (45.2) 45.2Val(x) 将 字 符 串 x中 的 数 字 转 换 成 数 值 Val(23ab) 23Chr(x) 返 回 以 x为 ASCII码 的 字 符 Chr(65) AAsc(x) 给 出 字 符 x的 ASCII码 值 ， 十 进 制 数 Asc(a) 97Cint(x) 将 数 值 型 数 据 x的 小 数 部 分 四 舍 五 入 取 整 Cint(3.6) 4Int(x) 取 小 于 等 于 x的 最 大 整 数 Int(-3.5)Int(3.5) -43Fix(x) 将 数 值 型 数 据 x的 小 数 部 分 舍 去 Fix(-3.5) - 3 CBool(x) 将 任 何 有 效 的 数 字 字 符 串 或 数 值 转 换 成 逻 辑 型 CBool(2) CBool(0) TrueFalseCByte(x) 将 0-255之 间 的 数 值 转 换 成 字 节 型 CByte(6) 6CDate(x) 将 有 效 的 日 期 字 符 串 转 换 成 日 期 CDate(#1990,2,23#) 1990-2-23CCur(x) 将 数 值 数 据 x转 换 成 货 币 型 CCur(25.6) 25.6Round(x， N) 在 保 留 N位 小 数 的 情 况 下 四 舍 五 入 取 整 Round(2.86， 1) 2.9CStr(x) 将 x转 换 成 字 符 串 型 CStr(12) 12CVar(x) 将 数 值 型 数 据 x转 换 成 变 体 型 CVar(23)+A 23ACSng(x) 将 数 值 数 据 x转 换 成 单 精 度 型 CSng(23.5125468) 23.51255CDbl(x) 将 数 值 数 据 x转 换 成 双 精 度 型 CDbl(23.5125468) 23.5125468 36 4、 字 符 串 函 数字 符 串 编 码 在 Windows采 用 的 DBCS（ Double Byte Character Set） 编 码 方 案 中 ， 一 个 汉 字 在 计 算 机 内 存 中 占 2个 字 节 ， 一 个 西文 字 符 （ ASCII码 ） 占 1个 字 节 ，在 VB中 采 用 的 是 Unicode（ ISO字 符 标 准 ） 来 存 储 字 符的 ， 所 有 字 符 都 占 2个 字 节 。 可 以 用 StrConv（ ） 函 数 来 对 Unicode 与 DBCS进 行 转 换 ； 可 以 用 函 数 Len（ ） 函 数 求 字 符 串 的 字 符 数 ； 可 以 用 LenB（ ） 函 数 求 字 符 串 的 字 节 数 ； 37 函 数 名 功 能 示 例 结 果Len（ x） 求 x字 符 串 的 字 符 长 度 (个 数 ) Len(ab技 术 ) 4LenB（ x） 求 x字 符 串 的 字 节 个 数 LenB(ab技 术 ) 8Left（ x， n） 从 x字 符 串 左 边 取 n个 字 符 Left(ABsYt,2) ABRight（ x， n） 从 x字 符 串 右 边 取 n个 字 符 Right(ABsYt,2) YtMid（ x， n1， n2） 从 x字 符 串 左 边 第 n1个 位 置 开 始 向 右 取 n2个 字 符 Mid（ ABsYt,2,3） BsYUcase（ x） 将 x字 符 串 中 所 有 小 写 字 母 改 为 大 写 Ucase（ ABsYug） ABSYUGLcase（ x） 将 x字 符 串 中 所 有 大 写 字 母 改 为 小 写 Ucase（ ABsYug） absyugLtrim（ x） 去 掉 x左 边 的 空 格 Lrim( ABC ) ABC Rtrim（ x） 去 掉 x右 边 的 空 格 Trim( ABC ) ABCTrim（ x） 去 掉 x两 边 的 空 格 Trim( ABC ) ABCInstr（ x， 字 符 , M） 在 x中 查 找 给 定 的 字 符 ,返 回 该 字 符 在 x中 的位 置 ,M=1不 区 分 大 小 写 ,省 略 则 区 分 Instr(WBAC,B) 2String（ n， 字 符 ） 得 到 由 n个 首 字 符 组 成 的 一 个 字 符 串 String(3,abcd) aaaSpace (n) 得 到 n个 空 格 Space (3) Replace(C,C1,C2,N1,N2) 在 C字 符 串 中 从 N1开 始 将 C2替 代 N2次 C1,如 果 没 有 N1表 示 从 1开 始 Replace(ABCASAA,A,12,2,2) ABC12S12AStrReverse (C) 将 字 符 串 反 序 StrReverse (abcd) dcba 38 5、 格 式 输 出 Format( )函 数Format函 数 用 于 制 定 字 符 串 或 数 字 的 输 出 格 式 。语 法 ： x = Format (expression, fmt ) expression是 所 输 出 的 内 容fmt是 指 输 出 的 格 式 ， 这 是 一 个 字 符 串 型 的 变 量 ， 这 一项 若 省 略 的 话 ， 那 么 Format函 数 将 和 Str函 数 的 功 能 差 不 多 。语 句 输 出Format (2, “0.00”) 2.00 Format (.7, “0%”) 70% Format (1140, “$#,#0”) $1,140 39 输 出 的 格 式 ： fmt字 符 的 意 义字符 意 义 字 符 意 义 0 显 示 一 数 字 ， 若 此 位 置 没 有 数字 则 补 0 . 小 数 点 # 显 示 一 数 字 ， 若 此 位 置 没 有 数字 则 不 显 示 , 千 位 的 分 隔 符 % 数 字 乘 以 100并 在 右 边 加上 ” %”号 - + $ ( ) 这 些 字 出 现 在 fmt里 将 原样 打 出 Format函 数 对 时 间 进 行 输 出 时 的 意 义fmt 输 出 fmt 输 出 m/d/yy 8/16/96 h:mm:ss a/p 10:41:29 p d-mmmm-yy 16-August-96 h:mm 22:41 d-mmmm 16-August h:mm:ss 22:41:29 mmmm-yy august-96 m/d/yy h:mm 8/16/96 22:41 hh:mm AM/PM 10:41 PM 40