下列程序的执行结果为 Private Sub Command1_Click() Dim s1 As String，s2 As String S1；="abcdef" Call Invert(s1，s2) Print s2 End Sub Private Sub Invert (ByVal xstr As String，ystr As String) Dim tempstr As String i=Len(xstr) Do While i>=1 tempstr=tempstr+Mid(xstr，i，1) i

（31）设有如下通用过程：

Public Function Fun(xStr As String)As String

Dim tStr As String, strL As Integer

tStr=""

strL=Len(xStr)

i=1

i=i+1

Loop

Fun=tStr

End Function

在窗体上画一个名称为 Command1 的命令按钮。然后编写如下的事件过程：

Private Sub Command1_Click( )

Dim S1 As String

S1="abcdef"

Print UCase(Fun(S1))

End Sub

程序运行后，单击命令按钮，输出结果是（ ）。

A）ABCDEF

B）abcdef

C）AFBECD

D）DEFABC

下列程序的执行结果为 Private Sub Command1_Click Dim FirStr As String FirSt="abcdef" Print Pat(FirStr． End Sub Private Function Pat(xStr As String．As String Dim tempStr As String, strLen As Integer tempStr="" strLen=Len(xStr． i=1 Do While i<=Len(xStr．-3 tempStr=tempStr+Mid(xStr, i, 1)+Mid(xStr, strLen -i+1, 1) i=i+1 Loop Pat=tempStr End Function

A.abcdef

B.afbecd

C.fedcba

D.defabc

下列程序的执行结果为

Private Sub Command1_Click（）

Dim s1 As String, s2 As String

s1= "abcd"

Call Transfer（s1, s2）

Print s2

End Sub

Private Sub Transfer （ByVal xstr As String, ystr As String）

Dim tempstr As String

i=Len（xstr）

Do While i >=1

tempstr=tempstr + Mid（xstr, i, 1）

i=i - 1

Loop

ystr=te mpstr

End Sub（ ）。

A．dcba

B．abdc

C．abcd

D．dabc

下列程序段： String s1=new String("How")； String s2=new String("How")； System.out.println(!(s1==s2)); 的结果为

A．false

B．true

C．1

D．0

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

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text＝"" Text2.Text＝"" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2 & Chr(Keycode) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) S1=S1 & Chr(KeyAscii) End Sub Private Sub Command1_Click() Text1.Text=S2 Text2.Text=S1 S1＝"" S2＝"" End Sub 程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为______。

A．abc和ABC

B．abc和abe

C．ABC和abc

D．ABC和ABC

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序： Public x As Integer Private Sub Command1_Click() x=10 Call s1 Call s2 MSgBox x End Sub Private Sub s1() x=x＋20 End Sub Private Sub s2() Dim x As Integer x=X＋20 End Sub 窗体打开运行后，单击命令按钮，则消息框的输出结果为______。

A．10

B．30

C．40

D．50

单击窗体时，下列程序的执行结果是

Private Sub Invert（ByVal xstr As String, ystr As String）

Dim tempstr As String

Dim I As Integer

I=Len（xstr）

Do While I >=1

tempstr=tempstr + Mid（xstr, I, 1）

I=I - 1

Loop

ystr=tempstr

End Sub

Private Sub Form_Click（）

Dim s1 As String, s2 As String

s1= "abcdef"

Invert s1, s2

Print s2

End Sub（ ）。

A．abcdef

B．afbecd

C．fedcba

D．defabc

下列程序是将两个文本框(text1和text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i Pic1.Print s3 End Sub 程序运行后，在Text1文本框中输入“ABCDE”，在Text2文本框中输入“12345”，单击命令按钮，则在Pic1图片框中显示的内容是

A．E5D4C3B2A1

B．ABCDE12345

C．12345ABCDE

D．A1B2C3D4E5

下列程序的执行结果是______。 public class Test9 { public static void main(String[] args) { String s1 = new String("I am a girl"); String s2 = new String("I am a girl"); System.out.println (s1.equal (s2)); } }

A．true

B．假

C．I amgirl

D．都不正确