凭证价值

下列程序的输出结果为______。
Sub Prin()
Dim B As String
A=1
B=A & Space(4)& A
Print A
Print Trim(B)
End Sub