在系里面的图书馆借阅了Visual Basic程序设计教程（第三版），里面有关VB的函数介绍的比较详细。VB对于计算机专业的人来说可能“不够上档次”，许多微软的专家在言谈当中也把VB.NET作为“二等公民”看待。在如今C#盛行的时代，VB依然有很广泛的用途。首先VB更容易理解，可以快速的编写出一个小程序在Windows操作系统里运行。对于我们教育技术专业的学生来说，VB应该是必修的一门计算机编程技术。教育技术学专业不同于计算机专业，不需要熟练的掌握一门编程语言，而且短时期内也不容易就能够掌握得了的。但VB却是适合我们这些二类派生的多学科相互交叉专业的学生去学习的。而且学习VB对以后迁移到VB.NET也是很容易的。下面是我学习VB时用到的一些定义、函数及其简要说明的小结。
Visual Basic在判断常量类型时有时存在多义性，为了显式的指明常数的类型，可以在常数后面加上类型说明符，这些说明符分别为：
- % 整型
- & 长整型
- ！ 单精度浮点型
- # 双精度浮点型
- @ 货币型
- $ 字符串型
在定义变量时，也可以使用上面的类型说明符，比如
Dim (或者是 Static、Redim、Public) aaa As String
等价于 Dim aaa$
Dim用在标准模块（Module)、窗体模块(Form)或过错(Procedure)中定义变量或数组。Static 用于在过程中定义静态变量及数组变量。Public用来在标准模块中定义全部变量或数组。Redim是重新定义之前已经定义过的变量或数组。
VisualBasic不是强类型语言，但提供了强制用户对变量进行显式声明的措施。在工具——选项——编辑器中，勾选要求变量声明选项，就会在VisualBasic 6.0程序中的每个新建的窗体、模块中自动加上Option Explicit语句，强制程序中的变量先声明再使用。
VB常用内部函数
| | 1.转换函数 |
|
| | 函数 | 功能说明 | 示例 | 结果 | | Int(x) | 求不大于x的最大整数 | Int(4.8) | 4 | | Int(-4.3) | -5 | | Fix(x) | 截尾取整 | Fix(-4.8) | -4 | | Hex$(x) | 把十进制转换成十六进制 | Hex(100) | “64″ | | Oct$(x) | 把十进制转换成八进制 | Oct(100) | “144″ | | Asc（x$) | 返回x$中第一个字符的ASCII码 | Asc(”ABC”) | 65 | | Chr$(x) | 把x的值转换成ASCII码 | Chr（64） | “A” | | Str$(x) | 把x的值转换成字符串 | Str(12.34) | “12.34″ | | Val(x) | 把字符串x转换成数值 | Val(”12.34″) | 12.34 | | CInt(x) | 把x的值四舍五入取整 | CInt(12.53) | 13 | | CCur(x) | 把x的值四舍五入为货币类型 | Ccur(12.53) | 12.53 | | CDbl(x) | 把x的值转换成双精度数 | CDbl(12.53) | 12.53 | | CLng(x) | 把x的值四舍五入为长整型数 | CLng(12.53) | 13 | | CSng(x) | 把x的值转换成单精度数 | CSng(12.53) | 12.53 | | CVar(x) | 把x的值转换成变体类型值 | CVar(12.53) | 12.53 |
|
|
|
|
| 2.数学函数 |
|
| | 函数 | 功能说明 | 示例 | 结果 | | Sin(x) | 返回x的正弦值 | Sin(0) | 0 | | Cos(x) | 返回x的余弦值 | Cos(0) | 0 | | Tan(x) | 返回x的正切值 | Tan(0) | 0 | | Atn(x) | 返回x的反正切值 | Atn(0) | 0 | | Abs(x) | 返回x的绝对值 | Abs(-2.8) | 2.8 | | Sgn(x) | 返回x的符号：x为负数时 -1 | Sgn(-2) | -1 | x为0时
0 | Sgn(0) | 0 | x为正数时
1 | Sgn(3) | 1 | | Sqr(x) | 返回x的平方根 | Sqr(25) | 5 | | Exp(x) | 求e的x次方 | Exp(2) | 7.389 | | Rnd[(x)] | 产生随机数 | Rnd | 0~1之间的数 |
|
|
|
|
| 3.日期和时间 |
|
| | 函数 | 功能说明 | 示例 | 结果 | | Now | 返回系统日期/时间 | Now | 2009-1-12 1:01 | | Day(d) | 返回当前的日期 | Day(Now) | 12 | | WeekDay(d) | 返回当前的星期 | WeekDay(Now) | 1 | | Month(d) | 返回当前的月份 | Month(Now) | 1 | | Year(d) | 返回当前的年份 | Year(Now) | 2009 | | Hour(t) | 返回当前的小时 | Hour(Now) | 14 | | Minute(t) | 返回当前分钟 | Minute(Now) | 51 | | Second(t) | 返回当前秒 | Second(Now) | 33 | | Timer | 返回从0点开始已过的秒数 | Timer | 35385.5 | | Time | 返回当前时间 | Time | 14:53:22 |
VB中处理字符串的函数
1.删除空白字符串函数
LTrim$(字符串） ：去掉字符串左边的空白字符
RTrim$(字符串）：去掉字符串右边的空白字符
Trim$(字符串）：去掉字符串两边的空白字符，这个函数在处理字符串中使用很频繁，尤其在有输入操作时。
2.字符串截取函数
Left$(字符串，n) ：返回字符串中前n个字符
示例：a$=”abcdef”<CR>
print Left$(a$,3)<CR>
abc
Mid$(字符串，p，n）：从第p个字符开始，向后截取n个字符，注意从1开始计数。如果第三个参数n省略，则截取到字符串的末尾
示例：a$=”abcdefg”<CR>
print Mid$(a$,3,4)<CR>
cdef
Right$(字符串，n）：返回字符串最后的n个字符，或者说从后数n个字符
示例：a$=”abcdefg”<CR>
print Right$(a$,3)<CR>
efg
3.VB中字符串长度测试函数
Len(字符串） Len（变量名）：测试取得字符串的长度
示例：a$=”abcdefg”<CR>
print Len(a$)<CR>
7
？Len(testvar#) 结果为 8
？Len(testvar！) 结果为 4
？Len(testvar%) 结果为 2
4. String$函数
String$（n，ASCII码） String$（n，字符串） ：返回由n个指定字符组成的字符串。第二个变量可以是ASCII码，也可以搜字符串。当为ASCII码时，返回对应的n个字符；当为字符串时，返回由该字符串第一个字符组成的n个字符的字符串
示例：a$=string$（5，65）
b$=string$（5，”-”）
c$=string$（5，”abcde”）
print a$，b$，c$
AAAAA—–aaaaa
5. VB中的空格函数
Space$（n） ：返回n个空格
示例：a$=”a”+Space(4)+”b”
print a$
a____b 说明：用_表示空格
6. 字符串匹配函数
InStr([首字符位置，]字符串1，字符串2[，n]）：该函数在字符串1中查找字符串2，如果找到了，则返回字符串2的第一个字符在字符串2中的位置，字符串1的第一个字符的位置为1，即从1开始计数
示例： a$=”Microsoft Visual Basic”
x=InStr(a$,”Visual”)
print x
11
说明：字符串2中首字符V在字符串1中的位置为11。字符串2的长度必须小于65535个字符。InStr的返回值是一个长整型数，不同情况下返回值不尽相同。这个函数用来查找某个字符是否包含于另外一个字符串时非常有效。
7. VB中字母大小写转换函数
Ucase$(字符串） ：把字符串全部转换成大写字母
Lcase$（字符串）：把字符串全部换成小写字母
8. VB中插入字符串语句 Mid$
Mid$（字符串，位置[，L]）=子字符串
该函数把字符串中从位置开始的字符用子字符串代替，即从L位开始用子字符串替换原字符串中的字符。
| | 4.字符串函数 | | | | 函数 | 功能说明 | 示例 | 结果 | | LTrim$(S) | 去掉S左边的空格 | LTrim$(”_abc_”) | “abc_” | | Rtrim$(S) | 去掉S右边的空格 | Rtrim$(”_abc_”) | “abc_” | | Trim$(S) | 去掉S两边的空格 | Trim$(”_abc_”) | “abc” | | Left$(S,n) | 取S左边n个字符 | Left$(”abc”,2) | ab | | Right$(S,n) | 取S右边n个字符 | Right$(”abc”,2) | bc | | Mid$(S,p,n) | 从p开始取n个字符 | Mid$(”abcde”,2,3) | bcd | | Len(S) | 字符串S的长度 | Len(”VB程序设计”) | 6 | | LenB(S) | 字符串S的字节长度 | LenB(”VB程序设计”) | 12 | | String$(n,S) | 返回n个S的首字符 | String$(3,”abc”) | aaa | | Space$(n,S) | 返回n个空格 | Space$(3) | “___” | | InStr(n,S1,S2,m) | 在S1中查找S2 | InStr(”abcdef”,”ef”) | 5 | | Ucase$(S) | 把S换成大写 | Ucase$(”abc”) | “ABC” | | Lcase$(S) | 把S换成小写 | Lcase$(”ABC”) | “abc” |
|
221923
