| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 412 人关注过本帖
标题:新手,请教一个问题。比较着急
只看楼主 加入收藏
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
快速回复:新手,请教一个问题。比较着急
数据加载中...
 
   



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

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