有如下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显示的内容是（    ）

A、0 0 1 0 1

B、1 1 0 1 0

C、0 0 1 1 0

D、1 1 0 0 1