用VB程序解答百鸡问题

我国古代数学家张丘建在“算经”里提出一个数学史上有名的百鸡问题。题曰：鸡翁一，他钱五；鸡母一，值钱三；鸡雏三，值钱一：百钱买百鸡，问鸡翁、母、雏各几何？

请把以下算法选项填入到程序语句相对应的位置：

设i，j，k分别代表鸡翁、鸡母、鸡雏的只数。首先确定i，j，k的取值范围：

A 、若100个钱全买鸡母，则最多可买33只，即j的取值范围是0~33。

B 、若100个钱全买鸡翁，则最多可买20只，即i的取值范围是0~20。

C 、当i，j在各自的取值范围内确定某个值后，则鸡雏的只数，k=100-i-j也确定了。

D 、让i从0变化到20，当i取某值时再让j从0变化到33，当j取某个值时，k的值也定了。如果i*5+j*3+k/3=100成立则i，j，k当前的值就是答案。

先在窗体上绘制一个命令按钮，名称为Command1，编写命令按钮的单击事件。实现以上算法的程序如下：

Private Sub Command1_Click( )

    For i = 0 To 20

        For j= 0 To 33

            k=100-i-j（）

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

            Print “鸡翁、鸡母、鸡雏分别为"& i & " " & j & " " & k & "只"

            End if

        Next j，

    Next i

End Sub

请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有只。