1 / 17
文档名称:

vb过程和自定义函数.pptx

格式:pptx   大小:568KB   页数:17页
下载后只包含 1 个 PPTX 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

vb过程和自定义函数.pptx

上传人:3321568027 2021/7/28 文件大小:568 KB

下载得到文件列表

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