vb写程序解决百钱买百鸡问题

好的，百钱买百鸡问题可以用 VB 编写程序来解决。以下是示例代码：

Public Sub BuyChickens()
    Dim rooster As Integer, hen As Integer, chicken As Integer
    For rooster = 0 To 100
        For hen = 0 To 100 - rooster
            chicken = 100 - rooster - hen
            If chicken Mod 3 = 0 And 5 * rooster + 3 * hen + chicken / 3 = 100 Then
                MsgBox "公鸡：" & rooster & " 只，母鸡：" & hen & " 只，小鸡：" & chicken & " 只"
            End If
        Next hen
    Next rooster
End Sub

这个程序使用了两个循环来遍历所有可能的公鸡和母鸡的数量，并计算小鸡的数量。如果小鸡的数量是 3 的倍数，且总价格等于 100 元，则输出符合条件的公鸡、母鸡和小鸡的数量。