【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。为此，编写了一个 V...

题型：填空题题类：模拟题难易度：困难

浙江省温州市2018届高三下学期信息技术3月适应性考试（二模）试卷

【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

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

Do While t < a(j)

a(j + 1) = a(j) j = j – 1

If Then Exit Do ①

Loop

②

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

① ②

举一反三

【加试题】有如下VB程序段：

For i = 1 To 3

For j = 5 To i Step -1

If a(j) < a(j + 1) Then

k = a(j): a(j) = a(j + 1): a(j + 1) = k

End If

Next j

List1.AddItem Str(a(i))

Next i

数组元素a(1)到a(6)的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框list1中显示的内容是：（）

编写VB程序代码，实现如下功能：在文本框Text1中输入金额（整数）后，点击“转换”按钮Command1后，在文本框Text2中显示该金额的大写，程序运行界面如图所示：

编写一个删除数字字符串s中的最大和次大数字字符的程序。具体功能如下：在文本框Text1中输入一个数字字符串，单击“删数”按钮Command1，将删除后的结果显示在文本框Text2中。程序运行界面如下图所示。

小明探索用链表思想实现插入排序。链表由节点连接而成，每个节点包含一个数据域和一个指针域。为了模拟这个过程，小明用a数组保存链表数据域，b数组保存链表指针域，排序的过程就是将每个数据的指针域不断链接到已有的有序链表合适位置，形成更长的链表，直到所有的数据均链接到链表中。

例如将某节点插入到已有链表中，根据大小比较有三种情况：插入到最前面、插入到最后、插入到中间，如图a所示，在链表中的节点 x 和节点 y之间插入节点n的过程示意：过程一（初始状态）如图1所示，链表中节点 x 的指针域指向节点y数据域，即图示①指向；过程二如图2所示，将节点n的指针域指向节点 y 数据域，即图示②指向；过程三如图 3 所示，将①指向断开，同时将节点 x 的指针域指向节点n数据域，即图示③指向；至此完成节点n的插入操作。