1. (2020高二上·湖州期中) 有如下VB程序段：

Private Sub Command1_Click()

    Dim i As Integer

    Dim x As Integer

    Dim s As String

    Randomize

    i = 1: s = "1"

    Do While i <= 6

        x = Int(Rnd * 9) + 1

        If x Mod 2 = i Mod 2 Then

            s = s + Str(x)

            i = i + 1

        End If

    Loop

    Label1.Caption = s

End Sub

运行程序后，标签Label1中可能出现的是（    ）