Question

VB编程小题目

已知五角硬币每公斤价值132元，一元硬币每公斤价值165元，现有总重量为2公斤的硬币，总数共计462个，问其中一元的与五角的硬币分别有多少个。
输出结果为
一元的硬币有：。。。个
五角的硬币有：。。。个

Answer 1

五角硬币： 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个

Answer 2

Private Sub Command1_Click()
For i = 0 To 462
For j = 0 To 462
If 2 * i / 132 + y / 165 = 2 Then
If i + j = 462 Then
MsgBox "五角" & i & " 1元" & j
End If
End If
Next j
Next i
End Sub

Answer 3

额你要用vb编写出来？
设五角为x 一元为y
x+y=2 并且 2*132x + 165y = 462
print x and y
这是思路 应该能写出来了吧

Answer 4

一元硬币现在流通的有2种，一种菊花的重6.1克，一种是牡丹的那个重6.05克，2002年11月18日起发行5角硬币材质为钢芯镀铜合金，色泽为金黄色。圆形，重量3.80g.如果题目没错！设一元有x个，五角有462-x个。2公斤=2000000克，6.05X+（462-X）3.80=2000000，少年剩下的交个你啦！最后弱弱的问下，你确定题目你没打错没错！！！！.........

Answer 5

。。这什么=题目