VB的编程题！求解在Form1（窗体1）上放置两个列表框和一个标签框，并建立如下菜单：菜单项菜单名备注应用Menu1一级菜单产生Menu11二级菜单筛选Menu12二级菜单结束Menu13二级菜单绘图M

Question

VB的编程题！求解
在Form1（窗体1）上放置两个列表框和一个标签框，并建立如下菜单：
菜单项 菜单名 备注
应用 Menu1 一级菜单
产生 Menu11 二级菜单
筛选 Menu12 二级菜单
结束 Menu13 二级菜单
绘图 Menu2 一级菜单
2．单击窗体1上"产生"菜单项，在列表框List1中随机生成20个2位正整数。
3．单击窗体1上"筛选"菜单项，在列表框List2中显示List1各数据项个位数等于1的数值，同时将查找到的正整数的个数显示在标签Label1上。
主要是那个“在List2中显示List1各数据项个位数等于1的值” 不会！求解！

Answer 1

dim n as integern=0For i = 0 To 19 If Right$(List1.List(i), 1) = "1" Then List2.AddItem List1.List(i) n=n+1 end ifNext label1.caption=cstr(n)