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

admin2019-06-20  35

问题 设有如下通用过程:
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
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
   Dim S1 As String
   S1="abcdef"
   Print UCase(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("afbecd")结果为"AFBECD",这就是输出结果。
转载请注明原文地址:https://kaotiyun.com/show/iyUp777K
0

最新回复(0)