Question

急需高手解答VB题目[在线等]

现在有面值为10元20元和50元的钞票（假设每种钞票的数量都足够多），从这些钞票中取出30张使其面值为1000元，问有多少种取法？输出每种取法中各种面值钞票张数

用VB编出正确答案

谢谢

Answer 1

Dim RMB10 As Byte, RMB20 As Byte, RMB50 As Byte
Dim Coun As Byte
Private Sub Form_Load()
Form1.AutoRedraw = True
For RMB10 = 0 To 30
For RMB20 = 0 To 30 - RMB10
RMB50 = 30 - RMB10 - RMB20
If 10 * RMB10 + 20 * RMB20 + 50 * RMB50 = 1000 Then
Coun = Coun + 1
Print RMB10; "张10元,"; RMB20; "张20元,"; RMB50; "张50元:"
End If
Next
Next
Print "共有"; Coun; "种取法."
End Sub

Answer 2

Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer
Dim s As Integer
For c = 1 To 20
For b = 0 To 10 '30-c-b>0
a = 30 - c - b
If 10 * a + 20 * b + 50 * c = 1000 Then
s = s + 1
End If
Debug.Print "10元张数:" & a, "20元张数:" & b, "50元张数:" & c
Next b
Next c
Print "共有的取法有：" & s & "种"
End Sub