1. (2023高一下·巧家月考) 有如下VB程序段：

Function fact(n As Integer) As String

    If n = 1 Then

        fact = fact & 1

    Else

        fact = fact(n \ 2) & n Mod 2

    End If

End Function

Private Sub Command1_Click()

    Dim x As String, i As Integer, r As Integer, x = Text1.Text

    For i = 1 To Len(Text1.Text)

        If Mid(x, i, 1) = "." Then Exit

    Next i

    r = Val(Mid(x, i + 1, Len(Text1.Text) - i))

    Text2.Text = fact(r)

End Sub

在文本框Text1 中輸入 2019.70，則執(zhí)行程序段，在文本框 Text2 中顯示的內容是（   ）