楼上这个不能叫算法，为什么？请看如下：for a = 0 to 20 '你的循环终止条件为什么是20和33，而不是其它数？ for b = 0 to 33 '你能说出理由吗？不能说出理由就不能叫算法。c = 100 - a - b if 100=5*a
+3
*b+c/3 then msg = msg + "公鸡、母鸡、小鸡: " & a & " " & b & " " & c & vblf end if next next

大家看清楚“用100文钱买100只”钱 100 ，鸡 也要10022L，23L只考虑钱了，没考虑鸡 Dim Cock As Integer, Hen As Integer, Chick3 As Integer For Cock = 1 To (100 - 3 - 1 / 3) \ 5 For Hen = 1 To (100 - 5 - 1 / 3) \ 3 For Chick3 = 1 To (100 - 3 - 5) If 100 = Cock * 5 + Hen * 3 + Chick3 / 3 And Cock + Hen + Chick3 * 3 = 100 Then Debug.Print "公鸡：" & Cock & ",母鸡：" & Hen & ",小鸡：" & Chick3 * 3 End If Next Next Next

昨天晚上又想了想，我的写错了，22L是正解抱歉抱歉，昨天犯糊涂了……呵呵……

==，这不是vb吧么，怎么会出现c\c++?

因为用BASIC语言描述算法的例子比较少而已。所以楼上几位用C/C++贴的算法都是抄书上的。连改的BASIC的时间都没有呀。

连C/C++的大括号还在

现在不算是插楼了，HOHO~~~

伪代码中的"input" VB可用吗?

百钱百鸡.非FOR语句的...
Dim x As Integer, y As Integer, z As Integer
z = 0
Do While z <= 100
y = 0
Do While y <= 33
x = 100 - y - z
If 5 * x + 3 * y + z / 3 = 100 And x >= 0 Then
Print "公鸡有", x, "母鸡有", y, "小鸡有", z
End If
y = y + 1
Loop
z = z + 1
Loop
End Sub

BMI体重指数
Dim a As Single, b As Single, bmi As Single
a = InputBox("输入身高")
b = InputBox("输入体重")
bmi = b / a ^ 2
If bmi < 18.5 Then
Print bmi; "体重不足"
Else
If bmi < 23 Then
Print bmi; "健康"
Else
If bmi < 25 Then
Print bmi; "超重"
Else
If bmi < 30 Then
Print bmi; "肥胖"
Else
Print bmi; "严重肥胖"
End If
End If
End If
End If
End Sub

马留

这种

'VB 简单程序：判断一个人是不是天才（是否聪明）
Private Sub Form_Load()
　　On Error Resume Next
　　Dim IsClever As Object, Result As Boolean
　　Set IsClever = CreateObject("Person.IsClever")
　　Result = IsClever.Judge("somename") 'somename 替换成你自己的名字
　　If Result Then
　　　　MsgBox "Clever!"
　　Else
　　　　MsgBox "Not Clever!"
　　End If
End Sub