有如下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中可能出现的是（    ）

A、1 8 3 4 5 2

B、1 9 4 3 7 5 6

C、1 9 4 7 6 5 2

D、1 8 1 2 7 6 1