Asc(“A”)
65
Chr(N)
ASC11码植转换成字符
Chr(65)
“A”
Fix(N)
取整
Fix(-3.5)
-3
Hex(M)
十进制转换成十六进制
Hex(100)
64
Int(N)
取小于或等于N的最大整数
Int(-3.5) Int(3.5)
-4 3
LCase(c)
字母转换为小写字母
LCase(“ABC”)
s = s + i
Nexti
Do 语句
Do While 条件表达式
语句块
Loop
例如：计算1+3+5…+99
S = 0:i = 1
Do While i <= 99
s = s + i
返回重新判断
i = i + 2
Loop
（2）选择语句：行If语句
If 条件表达式 Then 语句
例：If n<=10 Then i = i+1
If 条件表达式 Then 语句1 Else 语句2
例：If x > 0 Then s=”正数”Else s=”负数”
块If语句：
If <表达式1> Then
<语句块1>
ElseIf <表达式2> Then
Visual Basic 的基本数据类型
数据类型
关键字
类型符
占用字节数
范围
字节型
Byte
无
1
0~2^8-1(0~255)-
逻辑型
Boolean
无
2
Ture与False
整型
Integer
%
2
-32768~32767
长整型
Long
&
4
-2147483648～2147483648
单精度型
Single
！
4
负数：-3.402823E38～1.401298E—45
Val(123AB)
123
常用的字符串函数
函数名
含义
实例
结果
InStr(C1,C2)
在C1中查找C2是否存在，若找不到，结果为0
InStr(“EFABCDEFG”,”DE”)
6
*Join(A[,D])
将数组A各元素按D（或空格）分隔符连接成字符串变量
A=array(“123”,”ab”,”c”)
Join(A,””)
“123abc”
Left(C,N)
取出字符串左边N个字符
Left(“ABCDEFG”,3)
“ABC”
Mid(C,N1[,N2])
取字符串，在C中从第N1个字符开始向右取N2个字符，默认N2到结束
Mid(“ABCDEFG”,2,3)
“BCD”
*Replace(C,C1,C2)
在C字符串中用C2代替C1
2.44948
Asc(x)
字符转换为AscII
Asc(“A”)
65
Chr(x)
AscII转换为字符
Chr(48)
“0”
Val(x)
数字字符串转换为数值
Val(“-170”)
-170
Str(x)
数值转换为字符串
Str(-170)
“-170”
Len(x)
计算字符串的长度
Len(“asd”)
3
Mid(x,n,k)
Log(10)
2.3
Rnd[(N)]
产生随机数
Rnd
0~1之间的数
Sin(N)
正弦函数
Sin(0)
0
Sgn(N)
符号函数
Sgn(-3.5)
-1
Sqr(N)
平方根
Sqr(9)
3
Tan(N)
正切函数
Tan(0)
0
Fix(N)
取整函数
Fix(3.5)
3
常用的转换函数
函数名
含义
实例
结果
Asc(c)
字符转换成ASC11码植
Replace(“ABCDABCD”,
”CD”,”123”)
“ABC123AB123”
Right(C,N)
取出字符串右边N个字符
Right(“ABCDEF”,3)
“DEF”
Len(C)
字符串长度
Len(“高等教育“)
6
Space(C,D)
产生N个空格的字符串
Space(3)
““
*Split(C,D)
字符型
String
$
与字符串长度有关
0~6553个字符
对象型
Object
无
4
任何对象引用
变体型
Variant
无
根据需要分配
常用的数学函数
函数名
含义
实例
结果
Abs(N)
取绝对值
Abs(-3.5)
3.5
Cos(N)
余弦函数
Cos(0)
1
Exp(N)
以e为底的指数函数
Exp(3)
20.086
Log(N)
以e为底的自然对数
<语句块2>
…
ElseIf <表达式n> Then
Else
<语句块n+1>
End If 虚线部分是可选部分！
例：
Ifx > 90 Then
Label1.Caption =”优秀”
ElseIfx > 80Then
Label1.Caption =”良好”
Else
Label1.Caption =”及格”
EndIf
Trim$(“ABCD“)
“ABCD”
运算：注意Mod、/、\ (整除)，And运算两边同时成立才成立，Or运算一边成立就成立
函数名
功能
应用举例
返回值
Abs(x)
求X的绝对值
Abs(-3.5)
3.5
Int(x)
求不大于X的最大整数
Int(4.1)
Int(-4.1)
4
-5
Sqr(x)
求X的算术平方根
Sqr(6)
正数：1.401298E—45～3.402823E38
双精度型
Double
#
8
负数：-1.797693134E308～-4.940656458E-324
正数：4.940656458E-324～
货币型
Currency
@
8
-2^96-1~2^96-1,精度达28位
日期型
Date (time)
无
8
01,01,100~12,31,9999
“abc”
Oct(N)
十进制数转换为八进制数
Oct(100)
“144”
Round(N)
四舍五入取整
Round(-3.5) Round(3.5)
-4 4
Str(N)
字符转换为字符串
Str$(123.45)
“123.45”
UCase(c)
数值转换为大写字母
UCase(“abc”)
“ABC”
Val(c)
数字字符串转换为数值
将字符串C按分隔符D分隔成字符数组。与Join的作用相反
S=Split(“123,56,ab”,”,”)
S(0)=”123”
S(1)=”56”
S(2)=”ab”
String(N,C)
返回由C中首字符组成N个相同字符的字符串
String(3,”AB
注意：行if语句只有一行。而块If语句写在多行上，最后需要EndIF结尾
（3）循环语句：For 语句
For循环变量= 初值 To 终值 Step 步长
语句块
Next循环变量
如果步长为1，step 1可以省略
例如：计算1+3+5…+99
S = 0
Fori = 1 to 100 step 2
下一个i加上步长，返回重新判断
取字符串X中第n个字符起长度为K的子串
Mid(“abcd”,3,1)
“c”
注意：其中Chr（）、Str（）、Mid（）三个函数的值为字符串型，结果要加双引号
（1）赋值语句：
变量名 = 表达式
例：i = i + 1、x = 5+6、i = 6
对象名.属性名 = 表达式
例：Label1.Caption =”结果”