【V入2期】实战练习五-筛选重复(数组)

liuhao_goody

<p>

游客，如果您要查看本帖隐藏内容请回复

</p><p>想试下Filter,老出错.学习一下别人的.</p>

05rachael

游客，如果您要查看本帖隐藏内容请回复

hjtest

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2008-7-2 18:39:10编辑过]

ycb20010823

<p>小聪的代码太好了，以至于自己写的，都不敢贴出来了，怪不得老师说“就是好”呢，看完小聪的代码后，自己分析了一下，个人觉得要是把中间代码这样写一下，个人觉得会更好！(不是要改人家的代码，只是学习！)</p><p>For r = 2 To UBound(Arr, 1)<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If Left(Arr(r, 1), Len(Arr(r, 1)) - 4) Like Arr(r, 2) Then<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Arr(r, 3) = "有"<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Arr(r, 3) = "无"<br/>&nbsp;&nbsp;&nbsp; End If</p><p>Next r</p>

[此贴子已经被作者于2008-7-2 19:54:51编辑过]

hero6810001

学习

共同发财

游客，如果您要查看本帖隐藏内容请回复

lvxingong

游客，如果您要查看本帖隐藏内容请回复

小聪

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>小聪</i>在2008-6-28 23:22:00的发言：</b><br/><p>效果达到了，但不知道合不合老师的要求。</p><p></p><p>[em17][em17]<font color="#ff0000">非常好，我看到的最满意的答案之一。思路和清晰，代码简单明了，格式也很规范。</font></p><p><font color="#ff0000">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ------------uranus1997</font></p></div><p>查看了一下其他同学的答案和老师的评语，发现一个问题：我的代码应该算是最简单的了，而老师的评语也是言简意赅。</p>[em01]

wuxidou

一定要回复一下看看的!

magiclight

游客，如果您要查看本帖隐藏内容请回复