注意：

　　F按值传递参数

　　形参和实参的类型不一定要统一，VB自动进行数据的转换。

　　–例如：Private Sub Form_Click()

　　Dim a As String : a = 2

　　Call sub1(a)

　　Print a

　　End Sub

　　Private Sub sub1(ByVal b As Integer)

　　b = b + 1 : Print b

　　End Sub

　　F按地址传递参数

　　–当实参是变量时：如果形参规定了类型，则实参必须跟形参保持一致

　　如果形参没有规定类型，则VB按要求进行数据类型转换

　　–当实参是常量或表达式时：

　　VB自动用“按值传递”的方式进行处理，如果数据类型不统一，VB自动进行数据转换

　　例如：1、在应用程序中用“Private function Fun(X as integer,Y as single)”定义了函数Fun。调用函数Fun的过程中的变量I、J均为Integer型，能正确引用函数Fun的是( )

　　A.Fun(I,J) B.Call Fun(I,3.56) C.Fun(3.14,234) D.Fun("245","231.5")

　　2.程序中的不同过程之间，不能通过_________进行数据传递。

　　①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量

　　A. ①②④ B. ①②③ C.②④ D.④

　　二级考试必考题型：(课后习题)

　　传值 传地址 Static变量 同名变量 递归过程

　　例如：

　　1、以下有关变量作用域的说法中，错误的是( )

　　A. 只有在标准模块中用public语句说明的变量才是全局变量

　　B. 在过程中不能使用public语句说明全局变量

　　C. 在标准模块的通用声明处可用private语句说明模块级变量

　　D. 在窗体的通用声明处可用private语句说明窗体级变量

　　2.一个名为frm1的窗体，在窗体通用声明处和过程sub1中分别定义：public k as integer、dim k as integer如何在sub1中访问全局变量k( )

　　A.frm1.k B.form.k C.form1.k D.k

　　例：阅读程序，给出输出结果：

　　(1)字符串处理(数组参数)

　　Option Base 1

　　Private Sub Form_Click()

　　Dim st As String, char As String

　　Dim data() As String, i As Integer, j As Integer

　　st = "10281018123811181038"

　　For i = 1 To Len(st)

　　If Mid(st, i, 1) <> "8" Then

　　char = char & Mid(st, i, 1)

　　Else

　　j = j + 1

　　ReDim Preserve data(j)

　　data(j) = char

　　char = ""

　　End If

　　Next i

　　Call conver(data, char)

　　Print char

　　End Sub

　　Private Sub conver(a() As String, ch As String)

　　Dim i As Integer, j As Integer

　　Dim n As Integer, dec As Integer

　　For i = 1 To UBound(a)

　　n = Len(a(i))

　　For j = 1 To n

　　dec = dec + Val(Mid(a(i), j, 1) * 8 ^ (n - j))

　　Next j

　　ch = ch & Chr(dec)

　　dec = 0

　　Next i

　　End Sub