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

T=1：K=1

Do While K<=5

T=T*K

K=K+2

Loop

s＝1

For i＝20 To________ Step－2

  s＝s＋i

Next i

若要使语句s＝s＋i执行5次，则循环变量i终值应为（  ）

 s=0

   For i=1 To 10

     t=1

     for j=1 to i

t=t*j

     next j

     s=s+t

   Next i

在这个算法中，最多有几次猜价机会（  ）

        PRIVATE SUB FORM_CLICK

        DIM A（4，4） AS INTEGER

        FOR I = 1 TO 4

           FOR J= 1 TO 4

              IF {#blank#}1{#/blank#}

                A（I，J）=1

              {#blank#}2{#/blank#}

               A（I，J）=0

              END IF

              PRINT A（I，j）;

              {#blank#}3{#/blank#}

            PRINT

              {#blank#}4{#/blank#}

        END SUB