设有如下通用过程：Public Function Fun(xStr As Strin

问题单项选择题

设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String,strL As IntegerstrL=Len(xStr)Do While i<=strL／2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1Loop在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringTextl.Text=UCase(Fun(S1))程序运行后,单击命令按钮,则Textl中显示的是【】

A．ABCDEF

B．abcdef

C．AFBECD

D．DEFABC

答案

参考答案：C

解析：Function过程也叫函数过程,一般用于调用后不仅要执行一组代码完成相应操作,还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递(Byval)和按址传递(Byref),默认为按址传递。调用Function函数常放在在赋值符右端。D0 While为当型循环,在本题程序中它的作用是：依次从字符串变量xstrr的首尾分别向字符串中间取出一个字符,然后组成一个新字符串。循环过程为：当i=1时,tstr="af"；当i=2时,tstr="afbe"；当i=3时,=tstr="afbecd"；转换为大写后,在文本框中显示为"AFBECD"