B。【解析】在Visual Basic中，参数通过两种方式传送，即传地址和传值。其中，传地址习惯上称为引用，当通过引用来传送实参时，可以改变传送给过程的变量值；传值就是把需要传送的变量复制到一个临时的单元中，然后把该临时单元的地址传送给被调用的通用过程，它不会改变原来变量的值，所有的变化都是在变量的副本上进行的。本题自定义函数Funl的第1个参数按值传递，第2个参数虽然按址传递，但调用该函数时第2个参数均为表达式，因此变量x的值不受调用函数的影响。第1次调用Funl函数时，Funl（10，9）＝12；第2次调用Funl函数时，Funl（10，12）＝6；第3次调用Funl函数时，Funl（6，9）＝0。

29. 下列关于过程及过程参数的描述中，错误的是（）。

A．过程的参数可以是控件名称B．调用过程时使用的实参的个数应与过程形参的个数相同

C．只有函数过程能够将过程中处理的信息返回到调用程序中D．窗体可以作为过程的参数

C。【解析】Visual Basic允许用对象作为参数，即窗体或控件作为通用过程的参数。在Visual Basic中不仅可以使用变量作为形式参数，还可以使用数组、窗体或控件作为通用过程的参数，在用数组作为过程的参数时将按址传递。在调用过程时，使用的实参的个数应与过程形参的个数相同。

虽然在调用Sub过程时不直接返回值，但仍可通过某些方式，将Sub过程中处理的信息传回到调用的程序中，如将参数按址传递。

30. 设有下列通用过程：

Public Function Fun（xStr As Stri ng）As Stri ng

Di mtStr As Stri ng，strLAs Integer

tStr＝＂＂

strL＝Len（xStr）

i＝strL／2

DO While i＜＝StrL

tStr＝tStr＆Mid（xStr，i＋l，1）

i＝i＋1

Loop

Fun＝tStr＆tStr

End Function

在窗体上画一个名称为Text1的文本框和一个名称为Co mmand1的命令按钮。然后编写下列的事件过程：

Private Sub Co mmand1＿Click（）

Di mS1As Stri ng S1＝＂ABCDEF＂

Text1．Text＝LCase（Fun（S1））

End Sub

程序运行后，单击命令按钮，文本框中显示的是（）。

A．ABCDEF B．abcdef C．defdef D．defabc

C。【解析】LCase（）函数用于将字符串中大写字母转化为小写字母，原本小写或非字母字符保持不变。Mid（字符串，起始位置［个数］）函数用于从已有字符串中取出按指定位置开始的含指定个数字符的字符串。在本题源程序的Fun函数过程中，当第1次执行Do循环体后，变量tStr＝Mid（＂ABCDEF＂，3＋1，1）＝＂D＂；当第2次执行Do循环体后，变量tStr＝＂D＂＆Mid（＂ABCDEF＂，4＋1，1）＝＂DE＂；当第3次执行Do循环体后，变量tStr＝＂DE＂＆Mid（＂ABCDEF＂，5＋1，1）＝＂DEF＂。函数返回值为“DEFDEF”，故文本框中显示内容为“defdef”。

31. 阅读程序：

Private Sub Form＿Click（）

a＝0

For j＝1To 15

a＝a＋j Mod 3

Next j

Print a

End Sub

程序运行后，单击窗体，输出结果是（）。

A．105 B．1 C．120 D．15

D。【解析】取模（Mod）运算符的功能是取两数相除的余数部分，常用于判断一个整数能否被另一个整数整除。本题源程序通过For循环将1~15间的所有整数与3相除所得的余数累加，结果为15。

32. 在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：

Private Sub Co mmand1＿Click（）

x＝0