设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" strL=Len(xStr)

admin2016-08-24  26

问题 设有如下通用过程:
    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 Funotion
    在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
    Private Sub Command1_Click()
    Dim S1 As String
    S1="abcdef"
    Print gcase(Fun(S1))
    End Sub
    程序运行后,单击命令按钮,输出结果是(    )。

选项 A、ABCDEF
B、abcdef
C、AFBECD
D、DEFABC

答案C

解析 通用过程Fun的主要功能在于
    tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL一i+1,1)
    这一句。其中Mid(xStr,i,1)的意思是从字符串的左边开始依次取一个字符,Mid(xStr,strL一i+1,1)的意思是从串的右边开始依次取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成一个字符串。因此当Fun过程的参数为“abcdef”时,返回值为“afbecd”,Ucase(“afbeed”)结果为“AFBECD”,这就是输出结果。
转载请注明原文地址:https://kaotiyun.com/show/GYLp777K
0

最新回复(0)