填空题

假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i=1 To len(S)
s1=Ucase(Mid(S，i，1))+s1
Next i
Fun=s1
End Function
则Str2=Fun("abcdefg")的输出结果为______。