编写如下程序：
Private Sub Command1_Click()
Dim str1 As String， str2 As String
str1＝InputBox("输入一个字符串")
subf str1， str2
Print str2
End Sub
Sub subf(s1 As String， s2 As String)
Dim temp As String
Static i As Integer
i＝i＋1
temp＝Mid(s1， i， 1)
If temp<>"" Then subf s1， s2
s2＝s2 & temp
End Sub
程序运行后，单击命令按钮Command1，且输入"abcdef"，则输出结果为( )。