1. (2020高二下·嘉兴期末) 有如下Visual Basic程序段：

Private Sub Command1_Click （）

    Dim x As Integer，r As Integer， s As String

    x = Val（Text1. Text）： s =""

    Do While x<>0

        r=(x+1） Mod 2

        s=Str（r）+s

        x=x\2

    Loop

    Text2. Text = s

End Sub

该程序段运行后，在文本框Text1中输入25，则文本框Text2显示的内容是（    ）