问题
填空题
我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡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 【7】 Then
Form1．Print Cock，Hen，Chick
End If
Next Chick
Next Hen
Next Cock
End Sub
答案
参考答案：【7】Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3 = 100
解析：【命题目的】考核考生对循环结构的掌握。
【解题要点】在该题中运用了循环语句的嵌套，即多重循环。从题目来看，【3】需要填入的是一个条件语句，即满足百鸡问题的数的条件。如果满足条件就在窗体上显示出来，应填入的语句是：Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + ch/3；100。
【考点链接】Do While |Until…Loop语句和Do…While | Until语句。