假定有以下函数过程：
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”)的输出结果为( )。

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

永昌公司有一批会计档案保管期限已到，虽然还有一笔债务尚未结清，但是仍然可以按公司规定销毁会计档案。 ( )