高一信息技术选修计算的问题(VB程序的)
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/23 15:14:53
高一信息技术选修计算的问题(VB程序的)
将1张面值为100元的人民币等值换成5元,1元的零钞共40张,要求每种零钞不少于1张,问5元和1元面值的零钞各多少元?
用枚举算法实现上述.请编写出完整的编写程序.
将1张面值为100元的人民币等值换成5元,1元的零钞共40张,要求每种零钞不少于1张,问5元和1元面值的零钞各多少元?
用枚举算法实现上述.请编写出完整的编写程序.
![高一信息技术选修计算的问题(VB程序的)](/uploads/image/z/6060931-43-1.jpg?t=%E9%AB%98%E4%B8%80%E4%BF%A1%E6%81%AF%E6%8A%80%E6%9C%AF%E9%80%89%E4%BF%AE%E8%AE%A1%E7%AE%97%E7%9A%84%E9%97%AE%E9%A2%98%EF%BC%88VB%E7%A8%8B%E5%BA%8F%E7%9A%84%EF%BC%89)
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