假定有以下函数过程：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 Str2E

题目

假定有以下函数过程：

Function Fun(S As String)As String

Dim sl As String

Fori=1 ToLen(S)

sl=Lease(Mid(S，i，1))+s1

Nexti

Fun=s1

End Function

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Commandl Click(、

Dim Str1 As String．Str2 As String

Strl=InputBox(”请输入一个字符串”)

Stf2=Fun(Strl)

Print Str2

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为

A．ABCDEFG

B．abcdefg

C．GFEDCBA

D．gfedcba

相似考题

1.阅读以下函数fun(char *sl,char *s2){ int i=0;while(sl[i]==s2[i]&&s2[i]!='\0') i++;return(sl[i]=='\0'&&s2[i]=='\0');}此函数的功能是A．将s2所指字符串赋给s1B．比较s1和s2所指字符串的大小，若s1比s2的大，函数值为1，否则函数值为0C．比较s1和s2所指字符串是否相等，若相等，函数值为1，否则函数值为0D．比较s1和s2所指字符串的长度，若s1比s2的长，函数值为1，否则函数值为0

2.阅读以下函数 fun(char *sl，char *s2) { int i：0； while(sl[i]==s2[i]&&s2[i]!='\0') i++； return(sl[i]=='\0'&&s2[i]=='\0')； } 此函数的功能是A．将s2所指字符申赋给s1B．比较s1和s2所指字符串的大小，若s1比s2的大，函数值为1，否则函数值为0C．比较s1和s2所指字符串是否相等，若相等，函数值为1，否则函数值为oD．比较s1和s2所指字符串的长度，若s1比s2的长，函数值为1，否则函数值为o

3.下列给定程序中函数fun()的功能是；先将在字符串s中的字符按逆序存放到t串中，然后把s中的字符按正序连接到t串的后面。例如：当s中的字符串为ABCDE时，则t中的字符串应为EDCBAABCDE。请改正程序中的错误，使它能得出正确的结果。注意：不要改动main函数，不得增行或删行，也不得更改程序的结构。试题程序：include ＜conio.h＞include ＜stdio.h＞include ＜string.h＞void fun (char *s, char *t ){int i,sl;sl=strlen(s);for (i=0;i＜sl;i++)t[i]=s[sl-1];for (i=0; i＜sl; i++)/*************found**************t [sl+i]=s [i];t [2*sl]-'\0';}main ( ){ char s[100], t[100];clrscr();printf("\nPlease enter string s: ");scanf ("%s", s);fun (s,t);printf ("The result is: %s\n",t);}

4.假定有以下函数过程： 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 StringDim sl As StringFori=1 ToLen(S)sl=Lea ”相关问题

  • 第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题：

    若有定义语句：

    char}sl=‘’0K”，：It s2=”ok”；

    以下选项中，能够输出“OK”的语句是（ ）。

    A.if（strcmp（sl，s2）!=0）puts（s2）；

    B.if（strcmp（sl，s2）!=0）puts（s1）；

    C.if（strcmp（sl，s2）==1）puts（s1）；

    D.if（strcmp（sl，s2）==0）puts（s1）；


    正确答案：B
    strcmp(sl，s2)是字符串比较函数，比较规则是两个字符串自左向右逐个字符相比(按照ASCIl码值大小)，-以第一个不相同的字符的大小作为比较结果。因为。O。<10．，所以strcmp(sl，s2)为负值，只有B选项正确。

  • 第3题：

    输入hello↙,写出下面程序的运行结果。 #include ＜stdio.h＞ #include ＜string.h＞ int main（) { char s[80],t[200]; int i,sl ; gets（s); sl = strlen（s); for（i=0 ;i＜sl ;i++) t[i]=s[sl-i-1] ; for （i=0; i＜sl; i++) t[sl+i] = s[i]; t[sl+i]='0' ; puts（t); return 0; }


    ollehhello

  • 第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题：

    以下程序的输出结果是_______。includeincludefun(char*w,int n){char t,*s

    以下程序的输出结果是_______。 #include＜stdio.h＞ #include＜string.h＞ fun(char*w,int n) { char t,*s1，*s2； s1=w;s2=w+n-1； while(s1＜s2) { t=*s1++： *sl=*s2-； *s2=t； } } main() { char*p； p="1234567"； fun(p,strlen(p))； puts(p)； }

    A．1234567

    B．7654321

    C．1711717

    D．7177171


    正确答案：C
    解析：在于函数fun中，s1为字符串w的起始地址，s2为字符串的结束地址(字符'\0'除外)，当执行循环结束循环，w="1711717"。

相关内容