设有如下通用过程：Pubfic Function Fun(xStr As String)As StringDim tStr As String，strL As Integertstr=“”strL=Len(xStr)i=1Do While i=strL／2tStr=tStr＆Mid(xStr，i，1)＆Mid(xStr，strL-i+1，1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：Private Sub Commandl_Click()Dim S1 As StringS1=“abcdef”Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是A．ABCDEFB．abedefC．AFBECDD．DEFABC
设有如下通用过程：
Pubfic Function Fun(xStr As String)As String
Dim tStr As String，strL 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
EndFunction
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：
Private Sub Commandl_Click()
Dim S1 As String
S1=“abcdef”
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是
A．ABCDEF
B．abedef
C．AFBECD
D．DEFABC
相关考题：
设有如下通用过程：Public Function Fun（xStr As String）Dim tStr As String, srtL As IntegertStr+" "strL=Len（xStr）i=1Do While i =strL/2tStr=tStr Mid（xStr,i ,1） Mid （xStr ,strL-i+1,1）i=i+1LoopFun=tStrEnd Function在窗体上画一个名称为 Textl 的文本框和一个名称为 Command1 的命令按钮，然后编写如下的事件过程：Private Sub Command 1_ Click（）Dim S1 As StringS1="abcdef"Text1.Text=UCase（Fun（S1））End Sub程序运行后，单击命令按钮，则Text1中显示的是（ ）。 A．ABCDEFB．abcdefC．AFBECDD．DEFABC
（ 27 ）设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String, strL As IntegertStr = ""strL = Len(xStr)i = 1Do While i = strL / 2tStr = tStr Mid(xStr, i, 1) Mid(xStr, strL - i + 1, 1)i = i + 1LoopFun = tStrEnd Function在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click()Dim S1 As StringS1 = "abcdef"Text1.Text = UCase(Fun(S1))End Sub程序运行后，单击命令按钮，则 Text1 中显示的是A ） ABCDEFB ） abcdefC ） AFBECDD ） DEFABC
设有如下通用过程： Public FunctionFun(x Str As String)As String DimtStr As String，strL As Integer tStr="" strL=Len(xStr) i=1 DoWhilei＜=strL/2 tStr=tStrMid(xStr,i，1)Mid(xStr,strL-i+1，1)" i=i+1 Loop Fun=tStr End Function 在窗体A．ABCDEFB．abcdefC．AFBECDD．DEFABC
（31）设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String, strL As IntegertStr=""strL=Len(xStr)i=1i=i+1LoopFun=tStrEnd Function在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程：Private Sub Command1_Click( )Dim S1 As StringS1="abcdef"Print UCase(Fun(S1))End Sub程序运行后，单击命令按钮，输出结果是（ ）。A）ABCDEFB）abcdefC）AFBECDD）DEFABC
（ 30 ）有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String ,strL As IntegertStr= ” ”strL=Len(xStr)i=strL/2Do While i=strLtStr=tStr Mid(xStr,i+1,1)i=i+1LoopFun=tStr tStrEnd Function在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim S1 As StringS1= ” ABCDEF ”Text1.Text=Lcase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是A ） ABCDEFB ） abcdefC ） defdedD ） defabc
设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL 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 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程： Private Sub Command1_Click() Dim S1 As String S1="abcdef" Text1.Text=UCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，则Text1中显示的是______。A．ABCDEFB．abcdefC．AFBECDD．DEFABC
设有如下通用过程：Public Function Fun (xStr As String) As String Dim tStr As String，strL As Integer tStr=-" " strL=Len(xStr) i=strL/2 Do Whilei＜=strL tStr=tStr id(xStr,i+1，1) i=i+1 Loop Fun=tStr tStrEnd Function 在窗体上画—个名称为Text1的文本框和—个名称为Command1的命令按钮，然后编写如下的事件过程：Private Sub Command1_ Click() Dim S1 String S1="ABCDEF" Text1.Text=LCase(Fun(S1))End Sub 程序运行后，单击命令按钮，文本框中显示的是 ______。A．ABCDEFB．abcdefC．defdefD．defabc
设有下列通用过程： Public Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tStr="" strL=Len(xStr) i=strL／2 DO While i=StrL tStr=tStr＆Mid(xStr，i+1，1) i=i+1 Loop Fun=tStr＆tStr End Function 在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程： Private Sub Commandl Click（ ） Dim S1 As String S1="ABCDEF" Text1．Text=LCase(Fun(S1)) End Sub 程序运行后，单击命令按钮，文本框中显示的是（ ）。A.ABCDEFB.abedefC.defdefD.defabc
设有下列通用过程：Public Function Fun(xStr As String)As StringDim tStr As String，strL As IntegertStr=strL=Len(xStr)i=strL／2DO While i=StrLtStr=tStr＆Mid(xStr，i+1，1)i=i+1LoopFun=tStr＆tStrEnd Function在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写下列的事件过程：Private Sub Commandl Click（ ）Dim S1 As StringS1=ABCDEFText1．Text=LCase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是（ ）。A.ABCDEFB.abedefC.defdefD.defabc