数组和字符串比较分析-轻识

高三第二轮复习该讲些什么好呢？

信息技术理论基础和多媒体部分的知识点学生都掌握得差不多了，基本上查漏补缺就好。复习重点应该放在VB算法专题部分。

课堂时间宝贵，除了限时训练和习题讲解之外，还应该对基础算法知识做一些简单地梳理，帮助学生建立完整的知识体系。基础扎实了，才能快速理解常见的算法思想，也有勇气去阅读大段的代码和分析复杂的问题情境了。

排序和查找固然是基础考点，但数组和字符串基本操作才是基础中的基础，要求达到滚瓜烂熟的地步才行。

下面的PPT和相关源代码是我给学生上课用到的素材，分享给大家，欢迎各位老师批评指正。

案例分析：删除数组中重复元素。

Const n = 20

Dim a(1 To n) As Integer

Dim lenA As Integer '数组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 '用来累计重复元素的数量

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算法解析”知识星球汇集了数量众多的同好，更多有趣的话题在这里讨论，更多有用的资料在这里分享。

我们专注选考VB算法，感兴趣就一起来！