Dim j As Integer '代表雞的個數
Dim t As Integer ’代表兔的個數
Dim t1 As Integer '腿的個數
For j = 1 To 40
t = 40 - j
t1 = j * 2 + t * 4
If t1 = 100 Then
Print "雞="; j; "只"; "兔="; t; "只"
End If
Next
End Sub