百鸡问题：“鸡公一只五钱，鸡母一只三钱，小鸡三只一钱，用百钱买百鸡，问鸡翁、鸡母、小鸡各几只？”

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Cock, Hen, Chicken As Integer '分别用来存放公鸡数、母鸡数和小鸡数
Dim i As Integer = 0 '存放第几种方案
For Cock = 1 To 19 '公鸡数从1到19
For Hen = 1 To 33 '母鸡数从1到33
Chicken = 100 - Cock - Hen '小鸡数为100减去公鸡数和母鸡数
If (Chicken Mod 3 = 0) Then '小鸡数应能被3整除
'刚好是100元钱，则是一种方案，输出
If (Cock * 5 + Hen * 3 + Chicken / 3 = 100) Then
i = i + 1 '方案号加1
TextBox1.Text = TextBox1.Text + "方案" + CStr(i) + " 公鸡: " _
+ CStr(Cock) + " 母鸡: " + CStr(Hen) + " 小鸡: " + CStr(Chicken) + Chr(13) + Chr(10)
End If
End If
Next Hen
Next Cock
End