假定有下列函数过程： Function Fun(S As String)As St

问题单项选择题

假定有下列函数过程：
Function Fun(S As String)As String
Dim sl As String
For i=1 To Len(S)
S1=LCass(Mid(S,i,1))+s1
Next i
Fun=s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Strl As String,Str2 As String
Str1=InputBox("请输入一个字符串")
Str2=Fun(Str1)
Print Srt2
End sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为( )

A．ABCDEFG
B．abcdefg
C．GFEDCBA
D．gfedcba

答案

参考答案：D

解析： Len(字符串)函数用于取得字符串的长度，LCase(字符串)函数用于将字符串中大写字母转化为小写字母，原本小写或非字母字符保持不变。“+”运算符可做两个表达式的加法运算或做字符串连接运算，当两个表达式均为字符串时，做字符串连接运算。
本题源程序中的函数Fun的功能是，逐个取出已有字符串中的字符转换成小写字母，并按逆序组成新的字符串。按此方法，函数Fun("abcdefg")的返回值应为“gfedcba”。