4 18 78

8 1 1 8 1

12 4 84

-Code.

Subtest ()

I, j, l are represented as integers.

For i = 1 to 20

For j = 1 to 20

For l = 1 to 300

If 5 * i+3 * j+1/3 * l =100 and i+j+l = 100, then msgbox i & vbcrlf &; Johnson & Johnson company vbCrLf & amp； l

Next l

Next J.

Next, I

End joint