用VB編程計算雞兔同籠問題

Dim i As Integer, k As Integer, j As Integer

Dim x As String

j = 0

For i = 1 To 35

For k = 1 To 35

If (i * 3 + k * 4) = 100 Then

x = x & Chr(13) & "三條腿： " & i & " ，四條腿： " & k

j = j + 1

End If

Next

Next

MsgBox "符合條件的情況有：" & x & Chr(13) & Chr(13) & "這樣的情況壹***有 " & j & " 種。"