程序填空，鸡兔同笼问题：若干只鸡和兔在一个笼里，共有腿100条，头40个，问鸡有几只，兔有几只?

程序代码如下：

Private Sub Form Click()

Dim ji As Integer    ‘鸡

Dim tu As Integer    ‘兔

Dim tui As Integer    ‘腿数

Dim tou As Integer    ‘头数

    For ji=

        For tu=1 to 25

            tui=     ‘计算腿的数量

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

            IFThem

                Print ji, tu

            End If

        Next tu

    Next ji

End sub