2009年9月計算機等考二級VB模擬題及解析(1)

　　(7) 我國古代數(shù)學(xué)家張丘建在其著名的《算經(jīng)》中提出了百雞問題：每只公雞5元，每只母雞3元，三只雛雞1元;如何用100元買100只雞，即公雞、母雞、雛雞各多少只。請在空白處填入適當?shù)膬?nèi)容，將程序補充完整。

　　Private Sub Command1_Click()

　　Dim Cock As Integer

　　Dim Hen As Integer

　　Dim Chick As Integer

　　Form1.Print "公雞數(shù)", "母雞數(shù)", "雛雞數(shù)"

　　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

　　正確答案: 1.(Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + )