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

admin2013-04-11  41

问题 设有如下通用过程:    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

解析 Mid(字符串,p,n):从第p个字符开始,向后截取n个字符。p和n都是算术表达式。
"&":字符串连接运算符,将两个字符串按顺序连接起来。
UCase(字符串):将字符串所有的字母都转换成大写字符。
Len(字符串):返回字符串的长度。
分析程序:当Fun过程用语句Fun(S1)调用后,S1的值"abcdef"被赋给xStr,执行第一次循环时Mid(xStr,i,1)相
当于Mid(xStr,1,1),Mid(xStr,strL-i+1,1)相当于Mid(xStr,6,1),此时tStr=AF,由此判断选项C正确。
转载请注明原文地址:https://jikaoti.com/ti/s3O0FFFM
0

相关试题推荐
最新回复(0)