作业帮 > 数学 > 作业

VB把一张一元钞票,换成一分,二分和五分硬币,每种至少11枚,有多少种方案

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/05/29 16:02:14
VB把一张一元钞票,换成一分,二分和五分硬币,每种至少11枚,有多少种方案
VB选修作业,
VB把一张一元钞票,换成一分,二分和五分硬币,每种至少11枚,有多少种方案
Private Sub Command1_Click()
  Print " 5分"," 2分"," 1分"
  For a = 11 To 20
    For b = 11 To (100 - 5 * a) \ 2
      c = 100 - 5 * a - 2 * b
      If c >= 11 Then Print a,b,c
    Next b,a
End Sub