江苏省计算机二级VB整理(4)

Next i End Sub

4、实参与形参的传递

按地址传递ByRef——形参改变，则实参改变 形参数组只能是按地址传递的参数。 按值传递ByVal——形参改变，实参不改变

只能按值传递的三种形式：1、实参中变量加括号 call sub ((a),(b)) 2、实参是表达式形式 call function (a+1,b) 3、形参前有ByVal

5、当调用子函数（fun1）时，如果子函数最后出现赋值（TURE 或 FLASE），则在子函数中一定会出现：条件选择（IF语句+ Exit Function）（针对于fun1为Boolen变量） 同理，当调用子过程sub1时，如果实参中有Boolen变量，且在子过程最后出现Boolen变量赋值（TRUE 或FALSE），则在子过程中一定会出现：条件选择（IF语句+Exit Sub）。 例：．执行下面程序，单击按钮Command1，窗体上显示的第一行是_________，第二行是________。

Private Sub Command1_Click()

Dim x As Integer, y As Integer, Z As Integer X=6: y=12: Z=20 Print fun1(x, y)

Print fun1(fun1(x, y), z) End Sub

Private Function fun1(a As Integer，b As Integer)As Boolen Dim Y As Integer Y=a DO

If y Mod b=0 Then Exit Function Else

y=y +a End If Loop Fun1=TRUE End Function

6、Chr()将ASCII码转换成字符。如Chr(97)=a Asc()将字符转换成ASCII码。Asc(A)=65 7、List.index、List.listcount的区别 记住List.clear、list.Additem的用法

例：2005（秋）执行下面的程序，当单击Command1时，列表框List1的第2列表项内容是________，第4列表项内容是________，第5列表项内容是________。

Private Sub Command1_Click() Dim I As Integer, j As Integer For I=1 To l0 J=I+J

List1. Additem j Next I

For I=l To 4

List1. Removeitem List1. ListCount-I Next I End Sub

8、CInt(x) x的小数部分四舍五入取整 Fix(x) x的小数部分舍去

Int (x) 取小于等于x的最大整数 9、Str() 将数字转换成带符号位的字符串

CStr() 将数字转换成不带符号位的字符串 10、对于嵌套调用遇到End function才返回

例：2005（秋）运行下面的程序，当单击Command1时，窗体上显示的第一行内容是________，第三行内容是________, 第四行内容是________。

Private Sub Command1_Click() Print Test(3) End Sub

Private Function Test(t As Integer)As Integer Dim i As Integer