MyException - 我的异常网
当前位置:我的异常网» VB » 不甘呐,竟然被FOR循环难住了

不甘呐,竟然被FOR循环难住了(3)

www.myexceptions.net  网友分享于:2013-04-10  浏览:6次

    mCount = UBound(strArray)
    For I = mCount To 1 Step -1
        For J = I - 1 To 0 Step -1
            If strArray(I) = strArray(J) Then
                For K = I To mCount - 1
                    strArray(K) = strArray(K + 1)
                Next K
                mCount = mCount - 1
                ReDim Preserve strArray(mCount)
                
                I = I - 1
            End If
        Next
    Next
End Sub
------解决方案--------------------
引用:
引用:很多人觉得VB6简单,还打比方,说VB好比公共汽车,而VB.NET好比“喷气客机”——他们根本不了解的是,喷气客机的飞行员可以在巡航的时候睡觉的哦,BUS司机一边开车一边吃泡面就被人骂了。

我们看看在VB.NET中实现你的这个需求需要几行代码:

Visual Basic code?123Public Function str……

无所谓“偷懒”,只是方法不同,有所区别罢了。
------解决方案--------------------
引用:
引用:
很多人觉得VB6简单,还打比方,说VB好比公共汽车,而VB.NET好比“喷气客机”——他们根本不了解的是,喷气客机的飞行员可以在巡航的时候睡觉的哦,BUS司机一边开车一边吃泡面就被人骂了。

我们看看在VB.NET中实现你的这个需求需要几行代码:

Visual Basic code?123Public Function strDelSameItem……


有一本图书的封面有一句话,我觉得说得蛮好:


每多学一点知识,就少写一行代码。

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有