2. 计算机
  3. 设有如下通用过程： Pubfic Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tstr=“” strL=Len(xStr) i=1 Do While i

设有如下通用过程： Pubfic Function Fun(xStr As String)As String Dim tStr As String，strL As Integer tstr=“” strL=Len(xStr) i=1 Do While i

admin2009-08-25  50
问题 设有如下通用过程：
Pubfic 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
EndFunction
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程：
Private Sub Commandl_Click()
Dim S1 As String
S1=“abcdef”
Print UCase(Fun(S1))
End Sub
程序运行后，单击命令按钮，输出结果是
选项 A、ABCDEF
B、abedef
C、AFBECD
D、DEFABC
答案C
解析 此题主要考核Mid函数、UCASE函数，MID返回文本字符串中从指定位置开始的特定数目的字符，其格式为：MID(text，start-num，hum-chars)。Text包含要提取字符的文本字符串。Start-num文本中要提取的第一个字符的位置。文本中第一个字符的start-num为1，以此类推。Num_chars指定希望MID从文本中返回字符的个数。UCASE函数则将小写字母转换成大写字母。
转载请注明原文地址:https://www.kaotiyun.com/show/Ic1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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