假定有以下函数过程：FunctionFun(sAsString)AsStringDims1AsStringFori=1ToLen(s)s1=UCase(Mid(s,i,1))+s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox(“请输入一个字符串”)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命
假定有以下函数过程：FunctionFun(sAsString)AsStringDims1AsStringFori=1ToLen(s)s1=UCase(Mid(s,i,1))+s1NextiFun=s1EndFunction在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimStr1AsStringDimStr2AsStringStr1=InputBox(“请输入一个字符串”)Str2=Fun(Str1)PrintStr2EndSub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后再窗体上输出的结果为（）。
A.Abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA
正确答案：D
Tag：VisualBasic程序设计 按钮 窗体
时间：2021-05-06 20:07:26
- 上一篇：假定有如下的Sub过程：Subfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click（）DimaAsSingleDimbAsSinglea=6b=4funa,bPrinta,bEndSub程序运行后，单击命令按钮，输出结果为（）。
- 下一篇：有如下函数过程：Functionsecproc(xAsInteger,yAsInteger,zAsInteger)secproc=3y+z+2xEndFunctionPrivateSubCommand1_Click（）DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4Printsecproc(c,b,a)EndSub该程序的运行结果是（）。