雞兔同籠問題，用Vb編程解決，上有頭100只，下有腳300，問雞與兔各有多少只，要用到for

'雞兔同籠問題

Dim Cock As Integer

Dim Rab As Integer

For Cock = 0 To 100

Rab = 100 - Cock

If Cock * 2 + Rab * 4 = 300 Then '雞2只腳，兔子4只腳

Print "其中雞有" & Cock & "只,兔子有" & Rab & "只"

End If

Next

End Sub