设有如下通用过程:
Public Function Fun(xStr As Stri ng)As Stri ng
Di mt Str As Stri ng ,strLAs Integer
tStF=""
strL=Len(xStr)
i =1 Do While i <=strL/2
tStr =Tstr &Mid(xStr ,i ,1)&Mid(xStr ,strL-i+1,1)
i =i +l
Loop
Fun =tStr
End Function
在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程:
Private Sub Co mmandI_Click()
Di mS1As Stri ng
S1="abedef"
Pri m UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是( )。
发布于 2022-05-11 09:59:46
登录后免费查看答案
关注者
0
被浏览
8