单项选择题

设有如下通用过程： 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. ABCDEF
B. abcdef
C. AFBECD
D. DEFABC

<上一题目录下一题>

热门试题

单项选择题假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, b) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。

A.6 5
B.1 1
C.1.2 5
D.1.2 1

单项选择题下列程序段的运行结果是。 Subsele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub

A. 2
B. 4
C. 5
D. 3