作业帮高一信息技术选修计算的问题（VB程序的）
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/27 15:03:26
高一信息技术选修计算的问题（VB程序的）
将1张面值为100元的人民币等值换成5元,1元的零钞共40张,要求每种零钞不少于1张,问5元和1元面值的零钞各多少元?
用枚举算法实现上述.请编写出完整的编写程序.
将1张面值为100元的人民币等值换成5元,1元的零钞共40张,要求每种零钞不少于1张,问5元和1元面值的零钞各多少元?
用枚举算法实现上述.请编写出完整的编写程序.
Private Sub Form_click()
Dim a5 As Integer,a1 As Integer,K As Integer
K = 0
For a1 = 1 To 100
For a5 = 1 To 20
If a1 + a5 = 40 Then
If a1 + a5 * 5 = 100 Then
K = K + 1
Print K,"一元的："; a1,"五元的："; a5
End If
End If
Next
Next
End Su
Dim a5 As Integer,a1 As Integer,K As Integer
K = 0
For a1 = 1 To 100
For a5 = 1 To 20
If a1 + a5 = 40 Then
If a1 + a5 * 5 = 100 Then
K = K + 1
Print K,"一元的："; a1,"五元的："; a5
End If
End If
Next
Next
End Su