问题
填空题
我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题:每只公鸡5元,每只母鸡3元,三只雏鸡1元;如何用100元买100只鸡,即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容,将程序补充完整。 Private Sub Commandl_Click() Dim Cock As Integer Dim Hen As Integer Dim Chick As Integer Forml.Print“公鸡数”,“母鸡数”,“雏鸡数” For Cock;0 To 20 For Hen=0 To 33 For Chick=0 To 100 If 【】Then Form1.Print Cock,Hen,Chick End If Next Chick Next Hen Next Cock End Sub
答案
参考答案:Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3 = 100
解析:在该题中运用了循环语句的嵌套,即多重循环。从题目来看,需要填入的是一个条件语句,即满足百鸡问题的数的条件。如果满足条件就在窗体上显示出 来,应填入的语句是:Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3; 100。