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

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

admin2009-03-16  38
问题 设有如下通用过程：    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    在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：    Private Sub Command1_Click()        Dim S1 As String        S1="abcdef"        Text1.Text=UCase(Fun(S1))    End Sub  程序运行后，单击命令按钮，则Text1中显示的是______。
选项 A、ABCDEF
B、abcdef
C、AFBECD
D、DEFABC
答案C
解析 Mid(字符串，p，n)；从第p个字符开始，向后截取n个字符。p和n都是算术表达式。“&”：字符串连接运算符，将两个字符串按顺序连接起来。
UCase(字符串)：将字符串所有的字母都转换成大写字符。
Len(字符串)：返回字符串的长度。
分析程序：当Fun过程用语句Fun()调用后，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/Gk1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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