单选题
设有下列通用过程：
设有下列通用过程：
Public Function Fun（xStr As Stri ng）As Stri ng
Di mtStr As Stri ng ，strLAs Integer
tStr ＝＂＂
strL＝Len（xStr）
i ＝strL／2
DO While i ＜＝StrL
tStr ＝tStr ＆Mid（xStr ，i ＋l ，1）
i ＝i ＋1
Loop
Fun ＝tStr ＆tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Co mmand1的命令按钮。然后编写下列的事件过程：
Private Sub Co mmand1＿Click（）
Di mS1As Stri ng S1＝＂ABCDEF＂
Text1．Text ＝LCase（Fun（S1））
End Sub
程序运行后，单击命令按钮，文本框中显示的是（ ）。
发布于 2022-05-11 10:00:24
登录后免费查看答案
关注者
0
被浏览
9
