Private Sub Command1_Click()

Dim x As String, i As Integer

For i = 1 To 10

  If i Mod x = 1 Then

     x = "奇数"

  Else

    x = "偶数"

Next i

……

End Sub

产生此错误的语句是(   )。

①先出顺子牌型（顺子指连续的 5 张及以上的牌，如 345678，顺子最小从 3 开始，最大到 A），若有多个顺子，先长后短，长度相同按从小到大顺序出；

②再按三带一牌型（3 张相同的牌带一张单牌）、对子牌型（2 张相同）、单张牌型的顺

序出牌，同一牌型从小到大出；

③最后出炸弹，若有多个炸弹，从小到大出。

设计以下VB程序，牌“10”用0代替，比较两组出牌次数，界面如图所示，请回答下列问题。

当n的值为10时，关于该两段程序，下列说法不正确的是（  ）

五行程序代码中有{#blank#}1{#/blank#}处错误，在对应的横线上修改

Private Sub Command1_Click()

    Dim a As Integer, b As Integer

    Dim c As Integer                     '①

    a= Val(Text1. Text)                     '②

    b = Val(Text2. Text)

    c=a + b                             '③

    Label1. Caption ="a + b="+c        '④

End Sub