程序代码如下：

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

temperature( )函数的数据来自 {#blank#}1{#/blank#} 传感器；获取温度的时间间隔是{#blank#}2{#/blank#}秒。