VB判断奇偶性

来源：百度知道 编辑：UC知道 时间：2024/04/29 05:19:47
做四个复选框 要求：第一个选中则两个数S1、S2均为奇数，另外一个复选框 选中则两个均为偶，第三个 选中为一奇一偶 第四个为一偶一奇
小弟求助
前面是已经任意选好了S1，S2各10个数，然后按上面一步步筛选...请求super_admi 老师再做下
小弟感谢了

做成数组控件，index表示控件号（.net中修改+=）
伪代码：
s1=2*int(rnd)'俩偶数
s2=2*int(rnd)

select case index
case 0
s1=s1+1’俩奇数
s2=s2+1
case 2
s1=s1+1'1个奇数
case 3
s2=s2+1'1个奇数
end select