VB程序功能：单击“产生”按钮，随机产生10个之间的随机整数，显示在列表框1中

Question

VB程序功能：单击“产生”按钮，随机产生10个之间的随机整数，显示在列表框1(List1)中；单击“偶数”按钮将列表框1(List1)中的偶数挑选出来移到在列表框2(List2)中

Answer 1

(1)
List1.List(i) Mod 2 = 0

(2)
List2.AddItem List1.List(i)

(3)
List1.RemoveItem i

Answer 2

if val（list1.text） mod 2=0 then

list2.additem list1.text

list1.removeitem list1.listindex
else
i=i+1

end if