作业帮 > 数学 > 作业

VB把一张一元的钞票换成一分、二分、五分每种至少五枚

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/16 23:57:32
VB把一张一元的钞票换成一分、二分、五分每种至少五枚
Private Sub Command1_Click()
Dim i,j,k
For i = 5 To 100
For j = 5 To 50
For k = 5 To 20
If i + 2 * j + 5 * k = 100 Then Debug.Print i,j,k 'i 1分、j 2分、k 5分数量
Next
Next
Next
End Su