VB百鸡问题

定义三个列表框
for gongji= 0 to 19
for muji = 0 to 33
for xiaoji = 0 to 100
if gongji+muji+xiaoji=100 and gongji*3+muji*5+xiaoji/3=100 then
list1.items.add(gongji)
list2.items.add(muji)
list3.items.add(xiaoji)
next
next
next

在窗体加载过程form_load（）中不能使用print，可以在窗体激活的事件form_activate()中添加代码