标题:新手,请教一个问题。比较着急
只看楼主
goldenking
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-11-12
 问题点数:0 回复次数:1 
新手,请教一个问题。比较着急
现在遇到一个小问题,由于不太懂编程。想用VB编一个数据筛选的软件。我该用什么方法来实现呢?请大家出招....万分感谢。
   大概有200组数据,每组3个数(0-9)。比如 123 为一组。我现在要筛选出一组数据:
比如:我输入 123 456 789 465 987 023 468 654 852 665 842 751  321 132 312这些数据。
我经过筛选之后 想要的结果是 123 321 132 312    456 465
 我该怎么做这个软件呢??大家支支招....谢谢
搜索更多相关主题的帖子: 软件 
2008-11-12 16:37
我是菜鸟哦
Rank: 6Rank: 6
等 级:贵宾
威 望:22
帖 子:921
专家分:209
注 册:2007-5-4
得分:0 
循环筛选数据,判断输入的字符是否为123或者456组成,然后显示

比如
dim a()
FOR i=1 to N(N为你写入的数据的个数)
if  mid(a(i),1,1)="1" or mid(a(i),1,1)="2" or mid(a(i),1,1)="3" then
if  mid(a(i),2,1)<>mid(a(i),1,1) then
if  mid(a(i),2,1)="1" or mid(a(i),2,1)="2" or mid(a(i),2,1)="3" then
if  mid(a(i),3,1)<>mid(a(i),2,1) and mid(a(i),3,1)<> mid(a(i),1,1) then
if mid(a(i),3,1)="1" or mid(a(i),3,1)="2"  or mid(a(i),3,1)="3" then

msgbox a(i)

end if
end if
end if
end if
end if

next i

偶是菜鸟鸟偶惧WHO?!!!!
2008-11-12 18:02



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-243834-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.091819 second(s), 7 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved