VB编程小题目已知五角硬币每公斤价值132元,一元硬币每公斤价值165元,现有总重量为2公斤的硬币,总数共计462个,问
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/12 10:31:10
VB编程小题目
已知五角硬币每公斤价值132元,一元硬币每公斤价值165元,现有总重量为2公斤的硬币,总数共计462个,问其中一元的与五角的硬币分别有多少个.
输出结果为
一元的硬币有:.个
五角的硬币有:.个
已知五角硬币每公斤价值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个
一元硬币: 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个
VB编程小题目已知五角硬币每公斤价值132元,一元硬币每公斤价值165元,现有总重量为2公斤的硬币,总数共计462个,问
小学奥数营业员用电子称来数硬币.已知每千克五角硬币价值100元,每千克一元硬币价
有足量的一角五角一元硬币若干,如欲用此些硬币组成价值为十元的面额,那么一共有多少不同的组合方案
有一角和五角德硬币共35枚,价值11.5元,问一角和五角硬币各多少枚?
张云有一角硬币与五角硬币共九枚,总数为2元5角,问1角硬币与5角硬币各多少
1分,2分和5分硬币共100枚,价值2元,如果其中2分硬币的价值比1分硬币的价值多13分.问3种硬币个多少枚?
小刚的存钱罐里有5角和一元硬币共58个,一共40元.一元硬币和五角硬币共有几个?急.
有壹角,五角,一元三种面值的硬币共40元,已知每种硬币的个数相等,求三种硬币各有多少个?
有一角、五角、一元三种面值的硬币共56元,已知每种硬币的个数相等.三种硬币各有多少个?
现有1分、2分、5分硬币共100枚,总共价值2元.已知2分硬币总价值比一分硬币总价值多13分.
小红的存钱罐里有意缘何五角的硬币两种硬币共87.5元,其中一元硬币的枚数是五角的三倍问一元和五角各有几枚
一:小明的储蓄罐中有一角 五角 一元的硬币共106枚,共计47元,其中5角硬币与一元的枚数同样多.球三种硬币各多少枚?