假定有以下函数过程： Function Fun(S As String) As String Dim sl As String For i＝1 To Len(S) s1＝UCase (Mid(S，i，1))+s1 Next i Fun＝s1 End Function则Str2=Fun("abcdefg”)的输出结果为( )。A．abcdefgB．ABCDEFGC．gfedcbaD．GFEDCBA

题目

假定有以下函数过程： Function Fun(S As String) As String Dim sl As String For i＝1 To Len(S) s1＝UCase (Mid(S，i，1))+s1 Next i Fun＝s1 End Function则Str2=Fun("abcdefg”)的输出结果为( )。

A．abcdefg

B．ABCDEFG

C．gfedcba

D．GFEDCBA

相似考题

1.（33）假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S, i, 1))+s1Next iFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim Str1 As String, Str2 As StringStr1=InputBox("请输入一个字符串")Str2=Fun(Str1)Print Srt2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（ ）。A）ABCDEFGB）abcdefgC）GFEDCBAD）gfedcba

2.假定有以下函数过程：Function Fun(S As String)As StringDim sl As StringFori=1 ToLen(S)sl=Lease(Mid(S，i，1))+s1NextiFun=s1End Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl Click(、Dim Str1 As String．Str2 As StringStrl=InputBox(”请输入一个字符串”)Stf2=Fun(Strl)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为A．ABCDEFGB．abcdefgC．GFEDCBAD．gfedcba

3.假定有以下函数过程： 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．abcdefgB．ABCDEFGC．gfedcbaD．GFEDCBA

4.设有以下函数过程：Function fun（m As Integer） As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun（10） 调用此函数，则s的值为______。

更多“假定有以下函数过程: FunctionFun(SAsString) AsString DimslAsString Fori=1ToLen(S) s ”相关问题

  • 第1题：

    假定有以下函数过程： Function Fun(S As String)As String Dimsl As String Fori=1 To Len(S) s1=UCase(Mid(S，i，1))+s1 Nexti Fun=s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() DimStrl As String，Str2 As Str

    A．abcdefg

    B．ABCDEFG

    C．gfedcba

    D．GFEDCBA


    正确答案：D

  • 第2题：

    假定有以下程序段: n=0fori=l to 3fori=4to－1n=n＋1next jnext i运行完毕后,n的值是( )。 A.0S

    假定有以下程序段： n=0fori=l to 3fori=4to-1n=n+1next jnext i运行完毕后，n的值是（ ）。

    A.0

    B.3

    C.4

    D.12


    正确答案：C
    暂无解析，请参考用户分享笔记

  • 第3题：

    假定有以下函数过程： 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 Str1=Input Box(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

    A．abederg

    B．ABCDEFG

    C．gfedcba

    D．GFEDCBA


    正确答案：D
    解析：在于正确理解s1=UCase(Mid(S,i,1))+sI所表达的字符串相加顺序。当输入“abcdefs”后，首先通过Fori循环句，逐一将该字符串中的字符按照从右往左的顺序变为大写字母后相加，最终结果为Str2：“GFEDCBA”，故选择D项。

  • 第4题：

    假定有以下函数过程：Function Fun（S As String）As StringDim Sl AS StringFor i＝1 TO Len（S）sl=UCase（Mid（S，i，1））+slNext iFun＝s1End Function则Str2= Fun（"abcdefg"）的输出结果为（ ）。A． abcdefg B．ABCDEFGC．gfedcba D．GFEDCBA


    正确答案：C
    函数的功能既是将输入的字符串转换为大写，然后倒序输出

  • 第5题：

    函数过程如下： FUNCTION FUN( N AS STRING)AS STRING DIM N1 AS STRING FOR I=1 TO LEN(N) N1 =UCASE(MID(N,I, 1)) + N1 NEXT I FUN: N1 END FUNCTION 则S=FUN("uvwxyz")的输出结果为( )。

    A．uvwxyz

    B．zyxwvu

    C．UVWXYZ

    D．ZYXWVU


    正确答案：D
    解析：此函数过程的功能是将字符串反转并转为大写字符。

相关内容