不好意思哦，最近老是求助发帖，只因我最近在研究VB，所以很多作业不会做，马上有要考试了.
我国古代数学家曾提出一个世界数学史上有名的百钱买百鸡问题：公鸡一，值钱五；母鸡一，值钱三；鸡雏三，值钱一。百钱买百鸡，问公鸡母鸡鸡雏各几只。
要求：界面设计可以只要一个窗体，窗体的Caption属性设置为“百钱买百鸡”。
帮我写出这个代码吧！！本人感激不尽

Private Sub Command1_Click()
Dim x As Integer '公鸡数
Dim y As Integer '母鸡数
Dim z As Integer '小鸡数
For x = 0 To 19
For y = 0 To 33
If (100 - x - y) = 3 * (100 - 5 * x - 3 * y) Then
z = 100 - x - y
Text1.Text = Text1.Text & "公鸡数为：" & x & "母鸡数为：" & y & "小鸡数为：" & z & Chr(13) & Chr(10)
End If
Next y
Next x
End Sub

http://bbs.bc-cn.net/viewthread.php?tid=126037&star=at#