● 当事务程序执行回滚指令时，事务进入（45） 状态。 （45）A. 提交 B. 中止 C. 活动 D. 失败

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

Case（Mid（S，i，1））+slNext iFun＝s1End Function则Str2= Fun（"abcdefg"）的输出结果为（）。A． abcdefg B．ABCDEFGC．gfedcba D．GFEDCBA

（33）假定有以下函数过程：

Function Fun(S As String)As String

Dim s1 As String

For i=1 To Len(S)

s1=LCase(Mid(S, i, 1))+s1

Next i

Fun=s1

End Function

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

Private Sub Command1_Click()

Dim Str1 As String, Str2 As String

Str1=InputBox("请输入一个字符串")

Str2=Fun(Str1)

Print Srt2

End Sub

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

上的输出结果为（）。

A）ABCDEFG

B）abcdefg

C）GFEDCBA

D）gfedcba

假定有以下函数过程：

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

假定有以下函数过程：

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

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

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

函数过程如下： 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

设有以下函数过程

Private Function Fun(a（）As Integer，b As String)As Integer

…

End Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程调用语句是（）。

A.x(O)=Fun(x．"ch")

B.n=Fun(n．ch)

C.CallFun X，"ch"

D.n=Fun(x(5)，ch)

设有以下函数过程

Private Function Fun(a()As Integer，b As String)As Integer

Ehd Function

若已有变量声明：

Dim x(5)As Integer，n As Integer，ch As String

则下面正确的过程凋用语句是

A．x(0)=Fun(x，“ch”)

B．n=Fun(n，ch)

C．Call Fun x，“ch”

D．n=Fun(x(5)，ch)