数组和字符串比较分析

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

信息技术理论基础和多媒体部分的知识点学生都掌握得差不多了，基本上查漏补缺就好。复习重点应该放在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算法，感兴趣就一起来！

相关优秀文章：

阅读代码和写更好的代码

最有效的学习方式

选考VB算法分析文章分类