‘dim j As Integer’代表雞的數量。
“Dim t As Integer”代表兔子的數量
Dim t1為整數'腿的數量
對於j = 1到40
t = 40 - j
t1 = j * 2 + t * 4
如果t1 = 100，則
Print " chicken =j；“只有”“兔子=”；t；“僅”
如果…就會結束
然後
末端接頭