VB 编程:百钱买百鸡 一、问题描述: 一百个铜钱买了一百只鸡,其中公鸡一只5钱、母鸡一只3钱,小鸡一钱3只,问一百只鸡中公鸡、母鸡、小鸡各多少? 二、分析问题: 这是一个古典数学问题,设一百只鸡中公鸡、母鸡、小鸡分别为x,y,z,问题化为三元一次方程组: 这里x,y,z为正整数,且z是3的倍数;由于鸡和钱的总数都是100,可以确定x,y,z的取值范围如下: 1) x 的取值范围为1~20 2) y 的取值范围为1~33 3) z 的取值范围为3~99,步长为3 对于这个问题我们可以用穷举的方法,遍历x,y,z的所有可能组合,最后得到问题的解。 三、流程图: 四、编写程序: Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer For x = 1 To 20 For y = _____ To______ For z =______ To_______Step ___________ If x * 5 + y * 3 + z / 3 = 100 And________________= 100 Then Print " 公鸡:" & x, "母鸡:" & y, "小鸡:" & z Next z Next y Next x End Sub