[单项选择题] 设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String,strL As IntegerstrL=

[单项选择题] 设有如下通用过程：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"