Private Sub Command1_Click()
Dim i,j,k
For i = 5 To 100
For j = 5 To 50
For k = 5 To 20
If i + 2 * j + 5 * k = 100 Then Debug.Print i,j,k 'i 1分、j 2分、k 5分数量
Next
Next
Next
End Sub