单项选择题

下列程序的执行结果为( )。 　　Private Sub Commandl_Click() 　　　　Dim s1 As String ,s2 As String 　　　　s1= "abcd" 　　　　Call Transfer(sl，s2) 　　　　Print s2 　　End Sub 　　Private Sub Transfer (ByVal xstr As String，ystr As String) 　　　　Dim tempstr As String 　　　　ystr=tempstr 　　End Sub