第三章-VisualBasic常用内部函数

第三章第三章 VisualVisual BasicBasic 常用内部函数常用内部函数 3 1 VB 内部函数概述内部函数概述 数学上的函数 指对一个或者多个自变量进行特定的计算 获得一个因变量得 值 在程序设计语言中的函数 1 定义 指能够完成特定的操作并且返回一个值的多条语句的集合 2 使用位置 在程序中被直接调用 像一个变量一样被嵌入在表达式内 3 分类 内部函数和自定义函数 Visual Basic 的内部函数大致分为六类 数学函数 字符串函数 转换函数 日期 时间函数 随机函数 输入输出 函数 一 内部函数一 内部函数 函数是一段完成特定功能的独立程序段 也是一种可以参加运算的量 一 般说来 函数提供某一种特定的功能 VB 系统中 函数分为内部函数和用户自定义函数 这种情况和传统的 Basic 语言中的情形是相似的 内部函数是 VB 系统提供的 使用时只要直接调 用函数名即可 自定义函数需要用户自己定义并编写相应的程序 定义并编写 好了程序的函数供用户自己调用 且调用方法与内部函数相同 本节主要介绍 VB 系统的内部函数 VB 系统提供了约一百多个十余种类型 的内部函数供用户编写程序时调用 下表分类列出了这些内部函数 函数分类函数分类函数名函数名 数值函数 Int Fix Sqr Abs Rnd Sgn Hex Oct Exp Sin Cos Tan Atn 字符串函数 Chr Asc String Len Left Right Mid Lcase Ucase Ltrim Rtrim Trim Str Val InStr StrComp 时间函数 Now Date Time Year Month Weekday Day Hour Minute Second DateSerial DateValue TimeSerial TimeValue Timer Dat eADD 文件函数 LOF Loc EOF FreeFile FileAttr FileLen FileDateTime Dir Seek Input Tab Spc 数据类型Ccur CDbl Cint CSng CStr Cvar CVDat VarType 输入 输出 函数 RGB InputBox MsgBox Format LoadPicture QBColor 选择判断函 数 Iif Choose Switch Isdate Isempty IsNall IsNumeric 系统函数Shell CurDir Dir Command DoEvents Environ 数据库函数CreateDatabase OpenDatabase 财务函数 Rate MIRR IRR FV IPmt Nper Pmt PPmt PV SL N DDB SYD OLE 函数CrateObject GetObject 杂项函数Error Err Erl Lbound Ubound Partition 函数一般是由函数名和参量构成 参量被放在函数名后的圆括号内 二 内部函数的调用二 内部函数的调用 内部函数在被调用时 一般规则是访问函数名 参量被放在其后的圆括号 内 参量可以被常量 变量或表达式代替 有的函数可以省去参数和括号 有 的函数的参数可以省略 但是小括号不能省略 1 在表达式中使用 在表达式中使用 变量 函数名 参数表 2 在 在 Print 语句中使用语句中使用 Print 函数名 参数表 函数名 参数表 例如 S 100 Sin 3 14 30 180 A Int 123 345 Print y 2sin 4 2 sin 3 14159 4 3 2 数学函数数学函数 数学函数包括了 绝对值函数 取整函数 指数函数 对数函数 求平方根函 数 三角函数 符号函数 一 绝对值函数 一 绝对值函数 Abs Abs x 返回 x 的绝对值 返回值类型与参数相同 例如 Abs 6 5 的值为 6 5 Abs 6 5 的值也为 6 5 二 取整函数 二 取整函数 Fix Int Fix x 删除 x 的小数部分 返回其整数部分 Int x 返回不大于 x 的整数 1 Int 取整函数取整函数 格式为 Int x 功能为 函数值为不大于 x 的最大整数 例如 Int 4 7 的值为 4 Int 6 2 的值为 6 Int 2 7 的值为 3 要想四舍五入取整 可以用 0 5 的办法 例如 Int x 0 5 当 x 5 8 其值为 6 当 x 5 3 时 其值为 5 2 Fix 四舍五入函数四舍五入函数 格式为 Fix x 功能为 舍去 x 的小数部分 当 x 0 时与 Int 的结果相同 当 x0 时 二者功能相同 x x Int x 0 的自然数对数值 即求 ln x 的值 以任意底数 n 计算 x 的对数转换公式 logn x Ln x Ln n 例如 Log 1 的值为 0 Log 2 71828182845905 的值为 1 四 求平方根函数 四 求平方根函数 Sqr Sqr x 返回 x x 0 的平方根 例如 Sqr 16 的值为 4 Sqr 36 的值为 6 五 三角函数 五 三角函数 Cos Sin Tan Atn Cos x 返回 x 的余弦函数值 Sin x 返回 x 的正弦函数值 Tan x 返回 x 的正切函数值 Atn x 返回 x 的反正切切函数值 返回值为弧度 其中 x 为弧度 度值转换为弧度值的公式 1 180 例如 Sin 3 141592654 30 180 的值为 0 5 例如 Cos 3 141592654 30 180 的值为 0 866025403750255 例如 Tan 3 141592654 30 180 的值为 0 577350269280783 Atn 0 577350269280783 的值为 0 523598775666667 六 符号函数 六 符号函数 SgnSgn Sgn x 返回 x 的符号值 返回值取决于 x 的符号 Sgn x 1 x0 例如 Sgn 65 1 的值为 1 Sgn 65 1 的值为 1 Sgn 0 的值为 0 3 3 字符串函数字符串函数 对字符串的处理 一 删除空格字符串函数一 删除空格字符串函数 LTrim s 删除字符串 s 左边的空格字符 RTrim s 删除字符串 s 右边的空格字符 Trim s 删除字符串 s 左右两边的空格字符 例如 LTrim 重庆市 的值为 重庆市 例如 RTrim 沙坪坝区 的值为 沙坪坝区 例如 Trim 计算机专业 的值为 计算机专业 二 求子串函数二 求子串函数 Left s n 截取字符串 s 左端的 n 个字符 Right s n 截取字符串 s 右端的 n 个字符 Mid s p n 在字符串 s 中 从第 p 个字符开始 向后截取 n 个字符 例如 Left Abcdefg 3 的值为 Abc Left 重庆通信学院 2 的值为 重庆 例如 Right Abcdefg 3 的值为 efg Right 重庆通信学院 4 的值为 通信学院 例如 Mid Abcdefg 3 3 的值为 cde Mid 重庆市沙坪坝区林园 4 4 的值为 沙坪坝区 注意 求子串的操作 每个 ASCII 码字符都被视为 1 个字符 三 字符串长度测试函数三 字符串长度测试函数 Len s 返回字符串 s 中包含的字符个数 LenB s 返回字符串 s 所占的字节数 例如 Len Chong Qing Shi 的值为 14 四 字符串匹配函数四 字符串匹配函数 InStr f s1 s2 n 查找字符串 s2 再字符串 s1 中最先出现的位置 如果找到 返回值为 s2 的第一个字符在 s1 中的位置 如果找不到 则返回值为 0 说明 1 字符串 s2 的长度必须小于 65535 个字符 2 参数 f 可选 用于指定对字符串 s1 开始搜索的位置 默认值为 1 3 参数 n 可选 用于指定字符串比较方式 默认值为 0 若为 0 则表示区分大小写 若为 1 则表示不区分大小写 4 若指定了 n 则 f 也必须指定 五 重复字符串生成函数五 重复字符串生成函数 Space n 生成由 n 个空格组成的字符串 String n ch 生成由 n 个相同字符组成的字符串 这个字符由 ch 指定 例如 String 6 D 的值为 DDDDDD String 4 ABCD 的值为 AAAA 注意 ch 可以是某个字符的 ASCII 码 也可以是字符串 由该串的第一个字符 构成重复串 六 字母大小写转换函数 六 字母大小写转换函数 Ucase Lcase UCase s 把字符串 s 中的小写字母转换成大写字母 LCase s 把字符串 s 中的大写字母转换成小写字母 例如 Lcase ABCDefgh 的值为 abcdefgh 例如 Ucase ABCDefgh 的值为 ABCDEFGH 七 字符串替换函数 七 字符串替换函数 Replace Replace s s1 s2 start count 在主字符串 s 中 用子串 s2 替换子串 s1 参数说明 s1 被替换子字符串 s2 替换子字符串 start 在主串 s 中 搜索被替换子字符串 s1 的开始位置 默认值为 1 count 子串进行替换的次数 若省略 count 则默认全部替换 八 字符串转换语句八 字符串转换语句 Mid s1 start length s2 用子串 s2 中的字符代替主串 s1 中指定数量的字符 参数说明 start 主串中被替换字符的开头位置 length 被替换的字符数 若省略 则用 s2 替换 s1 中等长的子串 注意 其是一个语句 不能出现在表达式内 作为函数使用 九 字符串顺序逆转函数九 字符串顺序逆转函数 StrReverse s1 将字符串 s1 所有字符的顺序完全颠倒过来 3 3 数据类型转换函数数据类型转换函数 用于实现不同数据类型的数据之间的相互转换 主要是指数值类型与字符类型 数据之间的转换 也包括各种数值类型数据之间的强制变换 一 一 ASCII 码函数码函数 Asc s 返回字符串 s 中首字符的 ASCII 码值 例如 Asc A 的值为 65 Asc B 的值为 66 Asc a 的值为 97 二 字符转换函数二 字符转换函数 Chr n 返回 ASCII 码 n 所代表的字符 参数 n 必须在 0 127 之间取值 注意 由于双引号是用来定义字符串的 如果要输出双引号时 利用 Chr 函数 将其加入到输出表达式中 例如 Chr 65 的值为 A Chr 66 的值为 B Chr 97 的值为 a 三 数值转换函数三 数值转换函数 Val s 返回字符串表达式 s 中所含的数值 若遇到非数值符号则停止转换 指 数符号和空格符号除外 例如 Val 123 4 的值为 123 4 Val a1234 的值为 0 Val 1234 Val 5678 的值为 6912 四 字符串转换函数四 字符串转换函数 Str n 返回数值 n 的字符串形式 例如 Str 1234 Str 5678 的值为 12345678 注意 字符串的首字符用于表示原数值的符号 空格表示正数 负号表示负数 五 其他数值类型转换函数 五 其他数值类型转换函数 P61 62 说明部分和表 说明部分和表 3 2 2 4 日期日期 时间函数时间函数 一 常用的日期与时间函数 P64 表 3 4 注意 1 日期 时间函数可以与数值常量相加减 得到的仍然是日期值 2 日期 时间函数可以与日期型变量或常量相减 得到两个日期值之间的天数 其中 小数部分为从 0 点开始的时间在一天中所占的比例 3 如果需要在程序运行期间更改系统的时间和日期 可以使用 Date 语句和 Time 语句 二 时间间隔计算函数 DateDiff interval data1 data2 用来计算两个日期之间的时间间隔单位数 即两 个日期值之间的天数 或两个时间值之间的秒数 参数说明 interval 事件间隔计量单位描述符 P66 表 3 5 使用时加双引号 data1 data2 参加计算的两个日期值 3 5 随机函数随机函数 一 用途 软件测试 过程模块 编写游戏程序或简单加密常用 二 随机数产生原理 线性同余法 1 原理 随机数序列中每一个元素 rk 都是根据计算公式 由它的前一个元素 rk 1计算出来的 因此 rk 1称为产生 rk的种子 2 计算公式 rk multiplier rk 1 increment mod modulus 其中 三个参数可以选择 以产生有较好随机性的数值序列 但是知道了 r0 后就可以推算出序列中任意 rk元素 因此又叫伪随机数序列 为了产生接近真实的随机数序列 用以下公式 rk multiplier number increment mod modulus 由于 number 为编程者自选的任意数 具有更好的随机性 三 内部随即函数 Rnd Rnd x 产生出一