- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省高中信息技术算法及其程序实现单元检测

插数。输入一个整数x，要将x插入到n(n<50)个有序(按降序排列)数据中，并使数据序列仍保持有序，试求出x应插入的位置。界面设计如图所示。

程序说明：

⑴其中n由文本框Text1中数据得到，x由文本框Text2中数据得到，插入位置显示在文本框Text3中。

⑵其中n个有序数据将通过随机函数Rnd产生，并对n个数进行降序排序后存入数组a中，同时显示在列表框List1中。

为了实现这一目标，完善下面的VB程序，在横线处填入合适的语句或表达式，完成程序设计。

Private Sub Command1_Click()

Dim a(1 To 50)As Integer

Dim n As Integer, i As Integer

Dim x As Integer, temp As Integer

Randomize

List1.Clear

n=Val(Text1.Text)

x=Val(Text2.Text)

‘随机产生n个数,并存放至a数组中

For i=1 To n

a(i)=Rnd*200+1

Next i

‘将数组a中的数按降序排序

For i=2 To n

For j=n To i Step-1

If ① Then

temp=a(j):a(j)=a(j-1):a(j-1)=temp

Next j

Next i

‘将排序后的数组元素显示在列表框List1中

For i=1 To n

List1.AddItem Str(a(i))

Next i

‘插入操作

If ② Then

i=n+1

Else

③

Do While x<a(i)

i=i+1

Loop

End if

‘在文本框Text3中显示插入位置

Text3 Text=Str(i)

End Sub

举一反三

【加试题】一组数据 22,94,17,125,63，若采用冒泡排序算法对其进行升序排列，则需要经历几遍加工？第一次加工交换多少次？（）

A班一组同学的英语成绩分别为24、27、16、15、24、18，下列采用排序算法及第二遍的排序结果分别为:（）

原始数据	24	27	16	15	24	18
第一遍	27	24	16	15	24	18
第二遍
第三遍	27	24	24	15	16	18
第四遍	27	24	24	18	16	15
第五遍	27	24	24	18	16	15

有如下 VB 程序段：

For i = 1 To 2

For j = 1 To 6 - i

If a(j) - a(j + 1) > 0 Then

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

End If

Next j

Next i Text1.Text = "" For i = 1 To 6

Text1.Text = Str(a(i)) + Text1.Text Next i

数组元素a(1)到a(6)的初值依次为15，11，58，38，26，9，执行该程序段，文本框Text1显示的内容是（）

某次技术考试后进行成绩处理，学生信息包括姓名、班级、成绩，要按班级从小到大，同一班级按成绩从高到低进行排序。按上述要求，编写一个VB程序，功能如下：在列表框List1中显示排序前的数据，单击“排序”按钮Command1，在列表框List2中显示排序后结果，程序运行界面如图所示。

有如下VB程序段:

For i = 1 To 3

For j = 1 To 6 - i

If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j

Next i

数组元素 a(1)到 a(6)的数据依次为“55,31,19,42,37,23”，则此程序运行完成后数组元素的数据依次是（）

有如下VB程序段：

i=1

Do While <=6

t= Int(Rnd*10)+1

If t Mod 2=i Mod 2 Then a(i)=t: i=i+1

Loop

For i=1 To 2

k=1

For j=1 To 6-i*2

If a(j)*k>a(j +2)*k Then

t=a(j): a(j)=a(j+2): a(j+2)=t

End If

k=-k

Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

相关试卷

公司介绍

服务介绍

帮助中心