數(shù)組和字符串比較分析

Const n = 20

Dim a(1 To n) As Integer

Dim lenA As Integer '數(shù)組a的實際長度

Dim s As String

Private Sub Form_Load()

    Dim i As Integer

    lenA = 10

    Randomize

    a(1) = Int(Rnd * 5) + 1

    For i = 2 To lenA

        a(i) = Int(Rnd * 5)

    Next i

    s = ""

    For i = 1 To lenA

        s = s + Str(a(i))

    Next i

    Text1.Text = s

End Sub

Private Sub Command5_Click()

    Dim i As Integer, j As Integer, c As Integer

    For i = 1 To lenA - 1

        c = 0 '用來累計重復(fù)元素的數(shù)量

        For j = i + 1 To lenA

            If a(i) = a(j) Then

                ' 第1空  

            Else

                ' 第2空

            End If

        Next j

        lenA = lenA - c

    Next i

    s = ""

    For i = 1 To lenA

        s = s + Str(a(i))

    Next i

    Text2.Text = s

End Sub

需要本文PPT和源代碼的，可以加入“選考VB算法解析”知識星球參與討論和下載文件，“選考VB算法解析”知識星球匯集了數(shù)量眾多的同好，更多有趣的話題在這里討論，更多有用的資料在這里分享。

我們專注選考VB算法，感興趣就一起來！

相關(guān)優(yōu)秀文章：

閱讀代碼和寫更好的代碼

最有效的學(xué)習(xí)方式

選考VB算法分析文章分類