作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/18 00:50:28
VB把一张一元钞票,换成一分,二分和五分硬币,每种至少11枚,有多少种方案
VB选修作业,
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