Question

VB期末考试题,跪求答案

我国古代数学家在《算经》中出了一道题：“鸡翁一，值钱五；鸡母一，值钱三；鸡雏三，值钱一。百钱买百鸡，问鸡翁、母、雏各几何？”意为：公鸡每只5元，母鸡每只3元，小鸡3只1元。用100元买100只鸡，问公鸡、母鸡、小鸡各多少？编写程序完成此题的计算.

Answer 1

For i = 0 To 20
For j = 0 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Print "公鸡:"; i; "只，母鸡:"; j; "只，小鸡:"; 100 - i - j; "只。"
End If
Next j
Next i

Answer 2

Private Sub Command1_Click()
Dim i, j, k As Integer

'i 公鸡 j 母鸡 k:小鸡
For i = 1 To 19
For j = 1 To 32
For k = 24 To 294 '因各鸡种至少要买一种所以小鸡要从24开始到294（98*3）
If i + j + k = 100 And i * 5 + j * 3 + k / 3 = 100 And k = 100 - (i + j) Then
Print i, j, k

End If
Next k
Next j
Next i

End Sub

Answer 3

Private Sub Command1_Click()
Dim i As Long, j As Long
For i = 1 To 20
For j = 1 To 33
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
text1.text=text1.text & vbcrlf & "公鸡:"; i; "只，母鸡:"; j; "只，小鸡:"; 100 - i - j; "只。"
End If
Next j
Next i

Answer 4

i * 5 + j * 3 + (100 - i - j) / 3 = 100
公鸡最多20只
素鸡最多33只
强强强强强强!
正解!!!!!

Answer 5

Private Sub Command1_Click()
Dim i As Integer '公鸡
Dim j As Integer '母鸡
Dim k As Integer '小鸡
For i = 1 To 100 / 5
For j = 1 To 100 / 3
If i * 5 + j * 3 + (100 - i - j) / 3 = 100 Then
Label1.Caption = "公鸡:" & i & " 母鸡" & j & "小鸡:" & (100 - i - j)
End If
Next
Next
End Sub

Answer 6

最简单的!!!

Dim x%, y%, z%, a%
Print "公鸡:", "母鸡:", "小鸡:"
For x = 1 To 18
For y = 1 To 31
For z = 1 To 288
If (x * 5 + y * 3 + z / 3 = 100) And (x + y + z = 100) Then
a = a + 1
Print x, y, z
End If
Next z
Next y
Next x
Print "共有" & a & "种"