數(shù)組和字符串比較分析
Const n = 20
Dim a(1 To n) As Integer
Dim lenA As Integer '數(shù)組a的實(shí)際長度
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)秀文章：