Private Sub Command1_Click()

  Dim sjzs As Integer

  Dim rjzs As String

  sjzs = Val(Text1.Text)

  rjzs = ""

  Do While Int(sjzs / 2) > 0

    rjzs = Str(sjzs Mod 2) + rjzs

    sjzs = Int(sjzs / 2)

  Loop

  Label1.Caption = rjzs

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的值为（  ）

图中空白处理框①和②处应填入的是（  ）