2. 计算机
  3. 假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)

假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)

admin2010-03-30  59
问题 假定有以下函数过程：    Function Fun(S As  String)  As  String      Dim s1 As String      For i=1 To Len(S)        s1 = UCase(Mid(S， i， 1)) +s1      Next  i      Fun =s1    End Function    在窗体上画一个命令按钮，然后编写如下事件过程：    Private Sub Command1_Click()      Dim Str1 As String，  Str2 As String      Strl = InputBox(“请输入一个字符串”)      Str2=Fun(Str1)      Print Str2    End Sub    程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”    按钮后在窗体上的输出结果为，
选项 A、abcdefg
B、ABCDEFG
C、gfedcba
D、GFEDCBA
答案8
解析 本题主要考查对函数过程的调用，但关键点在于正确理解s1=UCase(Mid (S，i，1))+s1所表达的字符串相加顺序。当输入“abcde龟”后，首先通过Fori循环语句，逐一将该字符串中的字符按照从右往左的顺序变为大写字母后相加，最终结果为Str2="GFEDCBA"，故选择D项。做本题时，很容易选B，应加以注意。
转载请注明原文地址:https://kaotiyun.com/show/ke1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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