假定有以下函数过程：
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
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String， Str2 As String
Strl = InputBox(“请输入一个字符串”)
Str2=Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”
按钮后在窗体上的输出结果为，

A．abcdefg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

2013年3月1日，中央精神文明建设指导委员会在北京召开纪念毛 * * 等老一辈革命家为______________同志题词50周年座谈会。