vb过程和自定义函数.pptx

VB过程和自定义函数
过程
每个过程是为了完成一定的任务，由一组独立的代码组成。过程无返回值。
过程分类
事件过程
通用过程
Sub p(s)
print s
End Sub
事件过程
事件过程是当对象的某个事件发生时，对该事件做出相应的程序代码段，它是应用程序的主体。
例1：Sub Command1_click()
……
End Sub
例2：Sub Form_Load()
……
End Sub
例3：Sub Text1_KeyPress(KeyAscii As Integer)
……
End Sub
通用过程
当多个不同的事件过程需要执行一段相同的代码，为了避免代码的重复，就可以把这段代码独立出来，作为一个通用过程。
通用过程是多个事件过程的相同之处，公共部分。
通用过程的定义：
Sub 通用过程名（形参） ‘参数可有可无，也可多个根据具体情况
……
End Sub
Sub shuchu()
For i = 1 To 5
Int(Rnd * 20)
Next i
End Sub
Sub swap(a as single, b as single)
t = a: a = b: b = t
End Sub
Sub swap(a, b)
t = a: a = b: b = t
End Sub
过程定义与调用
一、无参数的过程调用：
过程名 或者 Call 过程名
例1：
Sub Command1_click()
n=n+1
a(n)=val()
str(a(n))
End Sub

Sub Command2_click()
Command1_click ‘过程调用
End Sub
例2：
Sub suiji()
Dim a(1 To 5) As Integer
For i = 1 To 5
a(i) = Int(Rnd * 20)
Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Call suiji ‘过程调用
End Sub
过程定义与调用
一、有参数的过程调用：
过程名 参数1, 参数2,参数3……
或者 Call 过程名 (参数1, 参数2, 参数3)
例：
Sub swap(a As Single, b As Single) ‘形参类型若有申明，实参类型需与形参类型一致
t = a: a = b: b = t
End Sub
Private Sub Command1_Click()
Dim a As Single, b As Single
a = Val()
b = Val()
Call swap(a, b) ‘过程调用 或者写成 swap a,b
= "交换后a的值是：" + Str(a) + "。 b的值是：" + Str(b)
End Sub
不要加括号!!
例2：输出数组元素的通用过程
Sub shuchu(a() as integer)
dim i as integer
'UBound函数可以返回a数组下标的最大值
for i=1 to UBound(a)
str(a(i))
next i
End sub
Private Sub Command1_Click()
Shuchu b()
End sub
Private Sub Command2_Click()
Call shuchu(c())
End sub
Sub shuchu(a() As Integer)
For i = 1 To UBound(a) a(i)
Next i
End Sub
Private Sub Command3_Click()
Dim b(1 To 10) As Integer
For i = 1 To 10
b(i) = Int(20 * Rnd) + 100
Next i
Call shuchu(b())
End Sub
自