爱华网技术 2009-07-12 21:00 阅读20评论0
字号： 大大 中中 小
一．基本语句
1. 变量和常量
2. 条件语句
3. 循环语句
4. 其他语句
二．函数和过程
1． 基本函数
2． 自定义函数
3． 基本过程
4． 自定义过程
变量和常量
1.定义变量
格式： Dim 变量名 As 变量类型
说明： 常用的变量类型有： Integer 整型
Long 长整型
Single 单精度小数
Double 双精度小数
String 字符串
Boolean 布尔型（只有真“True”或假“False”两个值）
2．定义常量
格式： Const 常量名=值
说明：
3．定义变量数组
格式： Dim 变量名（下标）As 变量类型
说明： 即定义一组具有相同变量名和不同下标的变量。
示例： Dim a ( 9 ) As Integer
这一句定义了a (0),a (1),a (2),a (3)……a (9) 共10个变量。
注意：下标必须是一个大于0的整数且下标不能为变量。
基本过程
1． 关于VB标准过程
基本格式： Sub 对象名_动作名（参数1，参数2，……，参数n）
一段程序
End Sub
说明： 对象名即被操作的对象的名字。动作名即操作的类型。
示例： 假设我创建了一个文本框对象，名字叫做Text1。我希望在单击它时执行一段程序。那么只要输入：
Sub Text1_Click () ‘这里的Click代表单击
一段程序
End Sub
当然，我也可以直接在程序中用鼠标选择它。
2． 关于动作名
由于各个控件的可执行动作各不相同，所以在这里我只列出常用的。
（1） Click（）单击对象时执行，无参数。
（2） DblClick() 双击对象时执行，无参数。
（3） KeyDown(KeyCode As Integer, Shift As Integer) 按下某个键时执行，其中变量KeyCode代表所按下的按键的号码，变量Shift代表是否按下Shift键，如果是则Shift=1，否则Shift=0。
（4） KeyPress(KeyAscii As Integer)按下并松开某个键时执行，变量KeyAscii代表按键号码。
（5） KeyUp(KeyCode As Integer, Shift As Integer) 松开某个键时执行，其中变量KeyCode代表所按下的按键的号码，变量Shift代表是否按下Shift键，如果是则Shift=1，否则Shift=0。
（6） MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)按下鼠标按键时执行，其中Button是指按下鼠标的哪个键（1是左键，2是右键，4是滚轮），Shift代表是否按下Shift键，如果是则Shift=1，否则Shift=0，X代表鼠标在对象上的横坐标位置，Y代表鼠标在对象上的纵坐标位置。
（7） MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)松开鼠标按键时执行，其中各参数的意义同上。
（8） MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)鼠标移动时执行，其中各参数的意义同上。
（9） Load() 当打开窗体时执行，无参数。
（10） Unload(Cancel As Integer)当关闭窗体时执行，参数Cancel代表是否关闭窗体，当Cancel=1时不关闭。
（11） Resize()当对象大小改变时执行。
（12） Change()当显示内容改变时执行。
（13） Timer()定时执行。
基本函数
一． 数值型函数
1． Abs（表达式）返回表达式的绝对值
2． Atn(表达式) 返回表达式的反正切值
3． CDbl（表达式）将表达式转化为双精度小数
4． CInt（表达式）将表达式转化为整型（即四舍五入）
5． CLng（表达式）将表达式转化为长整型（即四舍五入）
6． Cos（表达式）返回表达式的余弦值
7． CSng（表达式）将表达式转化为单精度小数
8． Exp（表达式）返回e的平方
9． Int（表达式）返回表达式的整数部分
10． Log（表达式）返回表达式的自然对数值
11． Randomize（n）初始化第n组随机数
12． Rnd（n）返回0到1之间的一个随机数
13． Sin（表达式）返回表达式的正弦值
14． Sqr（表达式）返回表达式的平方根
15． Tan（表达式）返回表达式的正切值
16． Val（字符串）返回字符串中包含的数值
17． Asc（字符串）返回字符串中第1个字符的ASCII码
二． 字符串型函数
1． Chr（n）返回第n个ASCII字符（n在0到255之间）
2． CStr（表达式）将表达式转化为字符串型
3． LCase（字符串）将字符串转化为小写
4． Left（字符串，n）返回字符串中从左边起第n个字符
5． Len（变量）返回变量大小
三． 系统函数
1． Beep使扬声器发出一个声音
2． ChDir（路径）修改指定驱动器上的当前目录
3． ChDrive（驱动器名）改变当前驱动器
4． CurDir（驱动器名）返回当前路径
5． Dir（路径，？）
6． EOF（文件序号）返回一个值是否到达文件结束
7． Err（）返回发生错误的错误号
8． Error（错误号）返回指定错误号的错误信息
9． FileCopy（源文件，目标文件）复制文件
10． FileDateTime（文件路径）返回文件的时间和日期
11． FileLen（文件路径）返回文件大小（以字节为单位）
12． FreeFile（）返回open语句可使用的下一个文件序号
13． GetAttr（文件路径）返回一个文件的属性，目录和文件夹
14． Kill（文件路径）删除指定文件
四． 布尔函数
1． CBool（表达式）将表达式转化为布尔型
2． IsArray（变量名）判断变量是否数组
3． IsEmpty（变量名）判断变量是否已被赋值
4． IsError（表达式）判断表达式是否有错
5． IsNumeric（字符串）判断字符串是否数据
其他语句
1． 中途跳出
格式：Exit Sub
说明：用于中途跳出一段程序。
2． 结束程序
格式：End
说明：中断整个程序的运行。
3． 显示窗体
格式：窗体名.show
说明：显示一个窗体。
4． 加载窗体
格式：Load 窗体名
说明：将窗体加载到内存中。
5． 关闭窗体
格式：Unload 窗体名
说明：将窗体从内存中释放。
6． 隐藏窗体
格式：窗体名.Hide
说明：把窗体隐藏起来（但还占用内存）。
7． 弹出对话框
格式：MsgBox(内容，按键，标题，帮助文件路径，……)
说明：除内容必须输入外其他的参数均为可选。
条件语句
1．格式：If 条件1 Then 语句1
说明：如果 条件1 成立则执行语句1，否则执行下一句。
2．格式：If 条件1 Then 语句1 Else 语句2
说明：如果 条件1 成立则执行语句1，否则执行语句2。
3．格式：If 条件1 Then
语句组1
End If
说明：如果 条件1 成立则执行语句组1，否则跳过这一句组。
4．格式：If 条件1 Then
语句组1
Else
语句组2
End If
说明：如果 条件1 成立则执行语句组1，否则执行语句组2
5．格式：If 条件1 Then
语句组1
Else If 条件2 Then
语句组2
Else If 条件3 Then
语句组3
……
Else If 条件n Then
语句组n
Else
语句组n+1
End If
说明：如果条件1成立则执行语句组1，如果条件1不成立但条件2成立则执行语句组2，如果条件1和条件2都不成立但条件3成立则执行语句组3……如果条件n之前的条件都不成立但条件n成立则执行语句组n，如果所有条件都不成立则执行语句组n+1。
6．格式：Select Case 变量1
Case 表达式1
语句组1
Case 表达式2
语句组2
……
Case 表达式n
语句组n
Case Else
语句组n+1
End Select
说明：如果变量1等于表达式1则执行语句组1，如果变量2等于表达式2则执行语句组2，……，如果变量n等于表达式n则执行语句组n，如果变量1不等于任何一个表达式则执行语句组n+1。
循环语句
1． 定量循环
格式：For 变量a=起始值 To 结束值 Step 差量
语句组
Next 变量a
说明：反复执行语句组，直到变量a的值由起始值变为终值。其中每执行一次语句组变量a都增加一个差量。
示例：Dim a As Integer
Dim i As Integer
a=0
For i=1 To 5 Step 1
a=a + i
Next i
这段程序的执行过程是：a=0 , i=1 , a=a+i=0+1=1 , i=i+差量=1+1=2 , a=a+i=1+2=3 , i=i+差量=2+1=3 , a=a+i=3+3=6 , i=i+差量=3+1=4 , a=a+i=6+4=10, i=i+差量=4+1=5 , a=a+i=10+5=15.最后a=15。
2． 条件循环
（1） 格式：Do
语句组
Loop Until 条件
说明：执行语句组直到条件成立为止。
（2） 格式：Do Until 条件
语句组
Loop
说明：执行语句组直到条件成立为止。（与前一种格式的不同之处在于前一种格式中，语句至少要被执行一次。而这一种格式中，如果一开始条件成立，则语句组一次都不执行。）
（3） 格式：Do
语句组
Loop While 条件
说明：执行语句组直到条件不成立为止。
（4） 格式：Do while 条件
语句组
Loop
说明：执行语句组直到条件不成立为止。（与前一种格式的不同之处在于前一种格式中，语句至少要被执行一次。而这一种格式中，如果一开始条件不成立，则语句组一次都不执行。）
自定义过程
定义过程：
Sub 过程名（参数1 As 变量类型，参数2 As 变量类型，……，参数n As 变量类型）
程序内容
End Sub
说明：
输入“过程名（参数1，参数2 ，……，参数n ）”时即可运行程序内容。
自定义函数
1． 格式：
Function 函数名(变量1 As 变量类型，变量2 As 变量类型，……，变量n As 变量类型) As 变量类型
语句组
End Function
2． 说明：
定义一个自定义函数，调用方法为： 函数名（参数1，参数2，……，参数n）
3． 示例：
Function 是否偶数( a As Integer ) As Boolean ‘定义一个叫做是否偶数的布尔型函数,这个函数有一个整型参数a
Dim b As Single ‘定义一个整型变量b
B = Cint(a /2) ‘B等于a除以2后进行四舍五入得到的值
If b = a / 2 Then
是否函数=True
Else
是否偶数=False
End If ‘如果b等于a除以2那么函数值为真，否则函数值为假
End Function ‘结束函数过程
在程序中输入以上代码后，我们要判断变量x是否偶数，并有一个布尔变量y，我们只要输入：y=是否偶数(x)
如果x是偶数，则y的值为真；否则为假。
