假定有下列函数过程：

Function Fun(S As String) As String

高老师2年前 (2024-03-26)Visual Basic程序设计(07759)14

假定有下列函数过程：

Function Fun(S As String) As String

Dim s1 As String

For i= 1 To Len(S)

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

Next i

Fun = s1

End Function

窗体上有一个命令按钮Command 1, 然后编写如下事件过程：

Private Sub Command 1 _ Click （）

Dim Str 1 As String,Str2 As String

Str 1 = inputbox(“请输入 一个字符串”)

Str2 = Fun (Str 1)

Print Str2

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

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

43cba21