用VB程序解答百雞問題
我國古代數(shù)學(xué)家張丘建在“算經(jīng)”里提出一個(gè)數(shù)學(xué)史上有名的百雞問題。題曰：雞翁一，值錢五；雞母一，值錢三；雞雛三，值錢一；百錢買百雞，問雞翁、母、雛各幾何？
請(qǐng)把以下算法選項(xiàng)填入到程序語句相對(duì)應(yīng)的位置：
設(shè)i、j、k分別代表雞翁、雞母、雞雛的只數(shù)。首先確定i、j、k的取值范圍：
A.若100個(gè)錢全買雞母，則最多可買33只，即j的取值范圍是0～33。
B.若100個(gè)錢全買雞翁，則最多可買20只，即i的取值范圍是0～20。
C.當(dāng)i、j在各自的取值范圍內(nèi)確定某個(gè)值后，則雞雛的只數(shù)，k=100-i-j也確定了。
D.讓i從0變化到20，當(dāng)i取某值時(shí)再讓j從0變化到33，當(dāng)j取某個(gè)值時(shí)，k的值也定了。如果i*5+j*3+k/3=100成立，則i、j、k當(dāng)前的值就是答案。
先在窗體上繪制一個(gè)命令按鈕，名稱為Command1，編寫命令按鈕的單擊事件。實(shí)現(xiàn)以上算法的程序如下：
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
For i=0 To 20 

20

20

For j=0 To 33 

33

33

k=100-i-j（

100-i-j

100-i-j

）
If i*5+j*3+k/3=100 Then 

If i*5+j*3+k/3=100 And i+j+k=100 Then

If i*5+j*3+k/3=100 And i+j+k=100 Then

Print“雞翁、雞母、雞雛分別為“&i&”“&j&”“&k”只”
End if
Next j,i
End Sub
請(qǐng)計(jì)算出任意一種答案。雞翁、雞母、雞雛分別有

4 18 78

4 18 78

只。