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

（　?。?/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
請計算出任意一種答案。雞翁、雞母、雞雛分別有

4 18 78

4 18 78

只。