本人不会VB6,请写出代码并复制下面的举例,验证通过。只说方法者勿答,谢谢合作。
如果下面“具体”里面的内容看不明白,请坚持看完,再看举例一定可以明白。
具体:
手动从excel复制粘贴数据到VB6的文本框,每一个单元格中的数据占据文本框的一行,该行容不下的要允许换行。数据被用小括号和逗号分开,小括号前面为数字,小括号内为该数字的次数,按一个按钮,计算小括号内次数为奇数的数字出现的次数。每行数据的最后一个数字后面没有小括号或逗号或两种皆没有的视为一次的(例如举例的第三行)。小括号和逗号均为英文输入法下的。
随意举例4行数据(实际上要统计上百行):
2(13),6(12),1(11),8(6),0479(5),3(4),5(3),这一行比较长,要允许换行。
3(15),5(10),278(1),0149(0),含有0次的
13(4),057该行057后面没带次数,视为1次的!!!
13456(2),027(1),该行027后面带了次数,为1次的
上面4行的次数为奇数的数字就是2104795 3278 057 027,将它们出现的次数统计一下,注意这里说的次数已经不是上面4行数据小括号内的次数,而是2104795 3278 057 027这些符合要求的数字的出现次数!在弹出的记事本里面的统计结果和格式是7(4),02(3),5(2),13489(1),6(0),
即数字7在次数为奇数出现了4次,0和2出现3次,5出现2次,13489出现1次,6没有出现,6全在次数为偶数里面。
在记事本里只显示7(4),02(3),5(2),13489(1),6(0),
至于我说的“上面4行的次数为奇数的数字就是2104795 3278 057 027,”那是我便于帮助你理解进行的注释!
|