作业帮 > 综合 > 作业

VB编程小题目已知五角硬币每公斤价值132元,一元硬币每公斤价值165元,现有总重量为2公斤的硬币,总数共计462个,问

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 10:31:10
VB编程小题目
已知五角硬币每公斤价值132元,一元硬币每公斤价值165元,现有总重量为2公斤的硬币,总数共计462个,问其中一元的与五角的硬币分别有多少个.
输出结果为
一元的硬币有:.个
五角的硬币有:.个
五角硬币: 264个/公斤 = 3.787879克/个
一元硬币: 165个/公斤 = 6.060606克/个
Private Sub Command1_Click()
Dim i As Integer, j As Integer, w As Single
For i = 0 To 528 '五角硬币数量,两公斤最多528个硬币
For j = 0 To 330 '一元硬币数量,两公斤最多330个硬币
w = i * 3.787879 + j * 6.060606 '总重量
If Int(w) = 2000 And i + j = 462 Then
Print "一元的硬币有:" & j & "个"
Print "五角的硬币有:" & i & "个"
End If
Next
Next
End Sub
最终结果:一元的硬币有:110个五角的硬币有:352个