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

admin2018-07-11  25

问题 设有如下通用过程:
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
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
  Dim S1 As String
  S1="ABCDEF"
  Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是(  )。

选项 A、ABCDEF
B、abcdef
C、defdef
D、defabc

答案C

解析 程序中过程Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串,然后这个字符串再重复一次由函数返回。函数Len用于返回字符串的长度,过程中字符串的长度做为Do循环的结束条件。Mid是字符串中部截取函数,用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr, i+1, 1),通过循环依次取出字符串后半部分的字符。函数返回的字符串经Lcase函数转换为小写然后显示在文本框中。程序中做为Fun过程参数的字符串为"ABCDEF",经处理返回并转为小写后为"defdef"。
转载请注明原文地址:https://kaotiyun.com/show/PzFp777K
0

随机试题
最新回复(0)