程序代码如下：

Private Sub Form Click()

Dim ji As Integer    ‘鸡

Dim tu As Integer    ‘兔

Dim tui As Integer    ‘腿数

Dim tou As Integer    ‘头数

    For ji={#blank#}1{#/blank#}

        For tu=1 to 25

            tui={#blank#}2{#/blank#}     ‘计算腿的数量

            tou= ji+tu    ‘计算头的数量

            IF{#blank#}3{#/blank#}Them

                Print ji, tu

            End If

        Next tu

    Next ji

End sub

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

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

    For b=0 to 9

        For c=0 to 9

            For d=0 to 9

                X={#blank#}2{#/blank#}

                If {#blank#}3{#/blank#} then

                    print x

                End if

            Next d

        Next c

    Next b

Next a

s=0

For i=5 to -3 step-6

    s=s+i

Next i

for i in range（0,2）：

print（i）