假定有以下函数过程： 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(“请输入一个字符串”)

第1题：

设串s1=’ABCDEFG’，s2=’PQRST’，函数con（x,y)返回x和y串的连接串，subs（s, i, j)返回串s的从序号i开始的j个字符组成的子串，len（s)返回串s的长度，则con（subs（s1, 2, len（s2)), subs（s1, len（s2), 2))的结果串是（）

A．BCDEF

B．BCDEFG

C．BCPQRST

D．BCDEFEF

第2题：

阅读以下函数, 此函数的功能是 int fun（char * s1, char *s2) { int i=0; while（s1[i]==s2[i]&&s2[i]!='0') i++; return（s1[i] == '0' && s2[i] == '0'); }

A．将s2所指字符串赋给s1

B．比较s1和s2所指字符串的大小, 若s1比s2的大, 函数值为1, 否则函数值为0

C．比较s1和s2所指字符串是否相等, 若相等, 函数值为1, 否则函数值为0

D．比较s1和s2所指字符串的长度, 若s1比s2的长, 函数值为1, 否则函数值为0

第3题：

6、设串s1=’ABCDEFG’，s2=’PQRST’，函数con （x, y) 返回x与y串的连接串，函数subs （s, i, j) 返回串s的从序号i的字符开始的j个字符组成的子串，函数len （s) 返回串s的长度，则con （subs （s1, 2, len （s2)), subs （s1, len （s2), 2)) 的结果串是（)

A．BCDEF

B．BCDEFG

C．BCPQRST

D．BCDEFEF

第4题：

设串s1=’ABCDEFG’，s2=’PQRST’，函数con （x,y)返回x和y串的连接串，subs（s,i,j)返回串s的从序号i的字符开始的j个字符组成的子串，len（s)返回串s的长度，则con （subs （s1,2,len （s2)), subs （s1,len （s2),2))的结果串是____。

A．BCDEF

B．BCDEFG

C．BCPQRST

D．BCDEFEF

第5题：

设串s1=’ABCDEFG’，s2=’PQRST’，函数con（x,y)返回x和y串的连接串，subs（s, i, j)返回串s的从序号i开始的j个字符组成的子串，len（s)返回串s的长度，则con（subs（s1, 2, len（s2)), subs（s1, len（s2), 2))的结果串是（）。

A．BCDEF

B．BCDEFG

C．BCPQRST

D．BCDEFEF

第6题：

以下函数的功能是（）。 fun（char *s1, char *s2) { int i=0; while（s1[i]==s2[i] && s2[i]!='0') i++; return（sl[i]=='0' && s2[i]=='0'); }

A．将s2所指字符串赋给s1

B．比较s1和s2所指字符串的大小，若s1比s2的大，函数值为1，否则函数值为0

C．比较s1和s2所指字符串是否相等，若相等，函数值为1，否则函数值为0

D．比较s1和s2所指字符串的长度，若s1比s2的长，函数值为1，否则函数值为0