Dim x As Interger

x= 1

Do While x < 50

    x = ( x + 1 )*( x + 2 )

Loop

Sub mult( )

    Dim Sum As Integer

    Sum=0

    Dim i as integer

    For {#blank#}1{#/blank#} to 50

        If i MOD 2={#blank#}2{#/blank#} Then

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

        End if

    Next i

    Print sum

End Sub

图1

Private Sub Command1_Click( )

    w= val （Text1. text）

    if {#blank#}1{#/blank#} then

        f=38

    Else

        f= {#blank#}2{#/blank#}

    End If

    Text2. text=f

End Sub

a=int(input( ))

if a>0:

  print("正整数")

elif a<0:

  print("负整数")

else：

  print("零")

s=0

for i in range(1，21) ：

  s=

print (s)