办劳动手册要多久:vb的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 13:38:32
有人要去买鸡, 用100块钱正好买了100只鸡, 价格如下:公:5$, 母:3$, 小:1$ for 2, 让你求一共多少种卖法(公母小怎么搭配). 请用循环解决这个问题.

Dim a As Integer, b As Integer, c As Integer
For a = 1 To 20
For b = 1 To 33
c = 100 - a - b
If (a + b + c = 100) And (a * 5 + b * 3 + c / 2 = 100) Then
Print a, b, c
End If
Next b
Next a