单选题
设有如下通用过程：
设有如下通用过程：
Public Function Fun(xStr As String)
Dim tStr As String, srtL As Integer tStr+””
strL=Len(xStr)
i=1
Do While i<=strL/2
tStr=tStr &Mid(xStr,i ,1)& Mid (xStr ,strL-i+1,1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：
Private Sub Command 1_ Click()
Dim S1 As String
S1=”abcdef”
Text1.Text=UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，则 Text1 中显示的是 （ ） 。
发布于 2022-05-11 10:19:04
登录后免费查看答案
关注者
0
被浏览
16
