Function fac(n As Integer) As Long

    fac = 1

    For i = 1 To n

fac = fac * i

    Next i

End Function

Private Sub Command1Click()

Dim s  As Long, j As Integer

For j = 1 To 10

Next

Text1.Text = Str(s)

End Sub

 方框中的正确语句是：（   ）

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

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

a=3;b=4;

if a<b then a=0;

else a=1;

end if

Dim x As Integer, y As Integer, s As Integer

    x=3:y=4

    If x<y And y<0 Then

        s=x Mod y

    ElseIf y>0 and y<x Then

        s=x*y

    ElseIf x=0 Or y=0 Then

        s=x+y

    Else

        s=0

    End If

该程序段运行之后，变量s的值为（  ）