《VB算法汇总.docVIP

VB算法汇总（转） 2008-06-25 08:31 常用内部函数: (资料来源：eNet网络学院 整理人:”冰+..河` .,附带例子，无语法，只限新手） [经初步检查，改正一些bug,如果阅读时发现错误，请Q我 :274625988] 数学函数： fix(x)　　取整　只截取小数部分 int(x) 　求不大于指定值的最大整数 abs(x)　 求绝对值 sgn(x)　 判断整数，负数，还是零　整数＝１，负数＝－１，零＝０ sqr(x)　 求平方根 log(x)?? 自然对数 sin(x),tan(x),cos(x),atn(x)〔注意：三角函数括号内数值为弧度！！！〕 例子:(上面几个函数用法相同) dim a as string private sub command1_click() a = val(text1.text) msgbox 函数值为： Fix(a) －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 字符串函数：(用于字符串的处理) Trim(x)　删除空格 LTrim(x) 删除左端空格 RTrim(x) 删除右端空格 left(x) 从左端开始截取N个字节的字符串　　　 right(x) 从右端开始截取N个字节的字符串 mid(x)?? 从N个位置开始截取N个字节的字符串 例子： dim a as string private sub command1_click() a=text1.text msgbox 函数值为： left(a,6)/mid(a,2,6)/right(s,6) －－－－－－－－－－－－－?? len(x)?? 字符串的长度 space(x) 空格 Ucase(x) 大写 Ucase(x) 小写 val(x)??? 文本转换成数值 例子： private sub command1_click() a = val(text1.text) b = val(text2.text) msgbox结果为: a+b ---------------------------- str(x)??? 数值转换成字符串 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 转换后的 str(a) ----------------------------- instr(x) 在第一个字符串中找第二个字符串，如果找到了说明第二个字符串是第一个字符串的子串，那么将返回第二个字符串在第一个字符串首次出现的位置(返回１)，但是如果没有找到，则返回０，因为第二个字符串并不是第一个字符串的子串。 例子： private sub command1_click() a = text1.text b = text2.text msgbox结果为: instr(a,b) ------------------------------ asc(x) 得到字符串首字符的ascii码 例子： dim a as variant private sub command1_click() a=text1.text msgbox Ascii码为： Asc(a) ------------------------------- chr(x)　得到以数值为acsii码的字符 例子： dim a as variant private sub command1_click() a=val(text1.text) msgbox 字符为： chr(a) ----------------------------- rnd(x) 随机函数，用于产生一个随机数，随机数产生时，需要一个随机种子，随机种子不同，产生的随　　　 机数也就不同,本函数产生０～１的单精度随机数 例子： private sub command1_click() dim a as string a=val(text1.text) msgbox 产生的随机数是： rnd(a) 注意：数值不改，随机数也不变！ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 数据类型转换函数： cint(x)　　将数值表达式的值转换成integer类型的，如果表达式的值为小数，就将小