2012年计算机考试二级VB考点及习题（7）

注意：

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