单项选择题

假定有以下函数过程：
Function Fun(S As String) As String
Dim SlAS String
For i=l TO Len(S)
S l=U Case(Mid(S，i，l))＋S l
Nexti
Fun=S l
End Function
则Str2=Fun(“abcdefg”)的输出结果为( )。