假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunction在窗体上画一个命令按钮，然后编写如下事件过程:PrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮