2. 计算机
  3. 设有如下通用过程： Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr="" str

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

admin2013-04-11  73
问题 设有如下通用过程：    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://kaotiyun.com/show/dlhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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