找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 4356|回复: 4

【开源】【原创】判断某个数据在数组中是否存在

[复制链接]

1214

主题

352

回帖

11

精华

管理员

菜鸟

积分
93755

贡献奖关注奖人气王精英奖乐于助人勋章

发表于 2008-12-22 19:49:41 | 显示全部楼层 |阅读模式
<font face="Verdana">Dim a(4)<br/>&nbsp;&nbsp;&nbsp; a(1) = "阿杰"<br/>&nbsp;&nbsp;&nbsp; a(2) = "马大哈"<br/>&nbsp;&nbsp;&nbsp; a(3) = "张三"<br/>&nbsp;&nbsp;&nbsp; a(4) = "小王"<br/>&nbsp;&nbsp;&nbsp; If InStr(Join(a, "&nbsp;&nbsp; "), "马大哈") &gt; 0 Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "存在"<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "不存在"<br/>&nbsp;&nbsp;&nbsp; End If<br/>'结果:存在</font>
【VB】QQ群:1422505加的请打上VB好友
【易语言】QQ群:9531809  或 177048
【FOXPRO】QQ群:6580324  或 33659603
【C/C++/VC】QQ群:3777552
【NiceBasic】QQ群:3703755

7

主题

36

回帖

0

精华

银牌会员

积分
577
发表于 2009-5-12 08:26:54 | 显示全部楼层
不用循环,真好!
IF 你看到了我贴子的全部内容 Then 你点击了我发的贴子 SO 请你发表你的看法吧!阿门! Else 请打开我的贴子... 阅读... 留言吧! End if 我,来自绵阳...

76

主题

375

回帖

0

精华

铜牌会员

积分
231
发表于 2009-5-20 09:00:17 | 显示全部楼层
<p>其实instr最终实现方式还是循环,枚举</p>
<p>只不过这样做写出来的代码看着清爽一些而已</p>

30

主题

96

回帖

0

精华

铂金会员

积分
1548
发表于 2009-5-27 12:58:23 | 显示全部楼层
如果是2维数组杂办?

275

主题

3019

回帖

1

精华

管理员

嗷嗷叫的老马

积分
17066

论坛牛人贡献奖关注奖最佳版主进步奖人气王疯狂作品奖精英奖赞助论坛勋章乐于助人勋章

QQ
发表于 2009-5-27 14:20:15 | 显示全部楼层
<p>可能就要老实地遍历了吧....</p>
我就是嗷嗷叫的老马了......

您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

快速回复 返回顶部 返回列表