vb下标越界_选考VB算法专题系列讲座9插入排序算法

最新推荐文章于 2021-10-26 21:38:10 发布

weixin_39918747

最新推荐文章于 2021-10-26 21:38:10 发布

阅读量326

点赞数

文章标签： vb下标越界 vb中mschart利用数组作图

视频内容：

系统讲解了插入排序的算法思想、代码实现和变例优化，深入浅出、环环相扣，把深奥的算法通过Excel操作、程序演示和代码分析等方式多角度呈现，娓娓道来。本次讲座的亮点是解决插入排序算法的下标越界问题，以及希尔排序算法原理和代码实现，值得一看。

视频勘误：

插入排序的算法思想比较简单，但要求学生熟练掌握数组基本操作，理解如何将一个新元素x插入到有序数组中。由于我在讲解时花了很多时间来回顾数组的基本操作，导致讲解的节奏比较慢，显得有些枯燥了。到了后面又有些急躁，声音变小了，口误也比较多。另外在制作PPT时不够仔细，好几个地方都把“插入排序”写成了“选择排序”，在此表示歉意。如果你发现更多错误，请及时联系我，以便完善勘误表。 1. 时间00:34:55 勘误内容：PPT显示内容错误，修改如下图：

课后练习：

1. 对10个数据进行插入排序，需要比较的次数不可能是( )

A. 9 B. 10 C. 45 D.8

2. 略

3．略

4．使用插入排序算法对数组排序，要求奇数和偶数各自按升序排序，其中奇数在前，偶数在后。例如将数组a = (4,5,2,9,6,7,10,3,8,1)，排序成a = (1,3,5,7,9,2,4,6,8,10)。

实现上述功能的VB程序如下，请将缺失的代码补充完整。

Const n = 10

Dim a(0 To n) As String

Dim i As Integer, j As Integer, mid As Integer

Private Sub Command14_Click()

mid = 1 'mid指向第一个已排序偶数的下标

For i = 1 To n '因为不知道第一个数的奇偶性，故从第1个元素开始

a(0) = a(i): j = i - 1

If a(0) Mod 2 = 1 Then 'a(0)是奇数，则将偶数和大于a(0)的奇数都右移

Do While ①

a(j + 1) = a(j)

j = j - 1

Loop

mid = ②

Else 'a(0)是偶数，则将大于a(0)的偶数右移

Do While ③

a(j + 1) = a(j)

j = j - 1

Loop

End If

a(j + 1) = ④

Next i

End Sub

除了题目提供的代码，你还能写出其他代码实现相同功能吗？

5．略

6. 略

温馨提示：《插入排序算法课后练习及答案解析》(完整版)将以付费文章形式于明天在本公众号推出。原创不易，推出付费文章也是尊重个人劳动成果的一种尝试，希望大家多多支持和谅解。需要本视频(包括往期所有视频)对应PPT和课后练习(完整版含答案)word版本的朋友，请加入“选考VB算法解析”知识星球。众多师生聚集在星球讨论、分享VB算法问题和复习迎考方法，大量选考VB算法资料等你来下载。我们专注选考VB算法，感兴趣就一起来！