VB考试题

Question

高手帮我做下下面两道题喔!!(都是编程题)
1, 取一元,两元,五元的硬币共十枚,付给25元钱,有多少种不同的取法.
2, 用100元买100只鸡,母鸡3元一只,小鸡1元3只,问各应买多少只?

Answer 1

第一题：楼上没考虑硬币总数是10枚哦
Private Sub Form_Click()
Dim i%, j%, k%, n%
n = 0
For i = 0 To 10
For j = 0 To 10 - i
For k = 0 To 10 - i - j
If 1 * i + 2 * j + 5 * k = 25 And i + j + k = 10 Then
Print "1元" & i & "枚", "2元" & j & "枚", "5元" & k & "枚"
n = n + 1
End If
Next k
Next j
Next i
Print "一共有" & n & "种不同的取法"
End Sub

第二题：
Private Sub Form_Click()
Dim i%
For i = 1 To 40
If i * 3 + (100 - i) / 3 = 100 Then
Print "母鸡数量：" & i
Print "小鸡数量：" & (100 - i)
End If
Next i
End Sub

Answer 2

第一题“一元,两元,五元的硬币共十枚”这里不清楚每种有几枚，有些麻烦，

第二题：

For i = 1 To 40

If i * 3 + (100 - i) / 3 = 100 Then
MsgBox "母鸡数量：" & i & vbNewLine & "小鸡数量：" & (100 - i)
'Exit Sub
End If
Next i

Answer 3

Private Sub Command1_Click()

Dim x As Integer, y As Integer, z As Integer, s As Integer

s = 0

For x = 0 To 25

For y = 0 To 12

For z = 0 To 5

If 1 * x + 2 * y + 5 * z = 25 And x + y + z <= 10 Then

Print "1元" & x & "张", "2元" & y & "张", "5元" & z & "张"

s = s + 1

End If

Next z

Next y

Next x

Print "总共有" & s & "种取法"

End Sub

参考资料：http://www.bjgangguan.com/shengchanguige.html