假定有下列函数过程:

Function Fun(S As String)As String

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

假定有下列函数过程:

Function Fun(S As String)As String

Dim sl As String

For i=1 To Len(S)

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

Next i

Fun=s1

End Function

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

Private Sub Commandl_Click()

Dim Strl As String, Str2 As String

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

Str2=Fun(Str1)

Print Str2

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

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

985cba