用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
请计算出任意一种答案。鸡翁、鸡母、鸡雏分别有只。