用1分，2分，5分共100枚硬币组成1.5元钱。用vb的方法表示所有的可能。

追问：我们没有学过什么list，所以···
还有那些143,72,30是怎么算出来的挖。再解释清楚一点吧这个怎么德行哦？

答案：太多了，加个listbox显示答案
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 143
   For j = 1 To 72
       For k = 1 To 30
         If i + 2 * j + 5 * k = 150 Then List1.AddItem "1分" & i & "个" & "      " & "2分" & j & "个" & "        " & "5分" & k & "个"
       Next k
    Next j
Next i
End Sub

其他：20个五分的，24个二分的，2个一分。

上一个：大家帮我看下这个VB代码哪里错了，要怎么改？
下一个：有关分析VB数据的问题