第4章 vb来程序设计基础.pptVIP

* * * * * * * * * 见P64页的表 * * * * * * * Int((M-N+1)*Rnd)+N * Int((M-N+1)*Rnd)+N * * * 去空格函数经常被应用到查询中，用于去除要查询的关键字两端或一端的空格。 * * #双精度、!单精度、%整型 * * * * * * * * * 运算符左右两边的操作数应是数值型数据。在进行算术去处时，不要超出数据取值范围。 * * * * * * * * * * * * * * * * * * * * 此处与书上有区别 * * * Const Maxchars = 254, Maxbue = Maxchars + 1 ‘顺序不能换，否则出现编译错误 * 系统常量存放于系统的对象库中，在视图－“对象浏览器”中列举了 Visual Basic 的常数 * * * * * 良好的编程习惯都应该是“先声明变量，后使用变量”，这样做可以提高程序的效率，同时也使程序易于调试。 * * Dim Var1, Var2 As Integer ‘ * Dim Var1, Var2 As Integer ‘ * * * * * * * * 　3.字符串长度测试函数 格式：Len(字符串)：返回字符串的长度（长整型值）。 　　　Len(变量名)：返回存储变量所需的字节数。 例如：　Len(“ABCDEFGHIJK”)　‘返回11 　　　　Len(testvar%) 　　　　‘返回2 Len(testvar!) 　　　　‘返回4 Len(testvar#)　　　　‘返回8 　　　　 　　　　 二、字符串函数 　4. String$函数 格式：String$(n,ASCII码)　 或　String$(n,字符串) 　　当为ASCII码时，返回由该ASCII码对应的n个字符；当为字符串时，返回由第一个字符组成的n个字符。 例如： a$ = String$(5, 65) b$ = String$(5, -) c$ = String$(5, abcd) Print a$; b$; c$ 输出结果： AAAAA-----aaaaa　 二、字符串函数 　5.空格函数 　格式：Space$(n) 　返回n个空格。 　例如： a$ = a + Space(4) + b“ 　输出结果： a　　b　 二、字符串函数 　6.字符串匹配函数 　格式：InStr( [首字符位置 , ]字符串1 , 字符串2 [ , n ] ) 　　该函数在“字符串1”中查找“字符串2”，如果找到，就返回“字符串2”的第一个字符在“字符串1”中的位置。“字符串1”的第一个字符的位置为1。 例如： a$ = Microsoft Visual Basic x = InStr(a$, Visual) Print x 输出结果： 11　 二、字符串函数 　　格式：InStr( [首字符位置 , ]字符串1 , 字符串2 [ , n ] ) 说明： “字符串2”的长度必须小于65,535个字符； InStr的返回值是一个长整型数。在不同的条件下，函数的返回值也不一样（见表4.5）。 “首字符位置”是可选的。如果有，则从该位置开始查找，否则从起始位置开始查找。 自变量n是可选的，用来指定字符串比较方式。该自变量的取值可以是0、1或2。 0：进行二进制比较，区分字母的大小写；默认为0。 1：比较时忽略大小写； 2：对数据库中的信息进行比较。 也可以通过语句限定： Option Compare Binary　　 Option Compare Text Option Compare Database 　7.字母大小写转换 　格式：　Ucase$(字符串)：小写字母转换为大写字母 　　Lcase$(字符串) ：大写字母转换为小写字母 例如： a$ = Microsoft Visual Basic b$ = UCase$(a$) c$ = LCase$(a$) Print b$, c$ 输出结果： MICROSOFT VISUAL BASIC 　microsoft visual basic 　 二、字符串函数 　8.插入字符串语句Mid$ 　格式：Mid$(字符串 , 位置 [ , L ] )=子字符串 　　该语句把从“字符串”的“位置”开始的字符用“子字符串”代替。如果含有L自变量，则替换的内容是“子字符串”左部的L个字符。“位置”和L均为长整型数。 Dim MyString, FirstWord, LastWord, MidWords MyString = “Mid Function Demo” 　 建立一个字符串。 FirstWord = Mid(My