- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省台州市2017-2018学年高三上学期信息技术期末质量评估卷

【加试题】某算法的VB程序段如下：

Dim a(1 T0 5)As Integer

Dim c As Integer

a(1)=44：a(2)=36：a(3)=58：a(4)=65：a(5)=12

b=0：c=0

For i=1 To 4

k=i

For j=i+1 To 5

If a(j)<a(k) Then

k=j

b=b+1

End If

Next j

If k<>I Then

t=a(i)：a(i)=a(k)：a(k)=t

c=c+1

End If

Next i

Text1．Text=Str(b)+Str(c)

运行该程序段后，文本框Text1的内容是（）

A、53 B、44 C、43 D、34

举一反三

【加试题】小明设计了一个VB程序（界面如图16所示），随机产生n（n<=100）个大于等于a(a<=100)且小于等于b(b<=100)的整数，并在列表框List1中降序显示。

实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

Dim a As Integer, b As Integer

Dim n As Integer, t As Integer

Dim m(1 To 100) As Integer

a = Val(Text1.Text)

b = Val(Text2.Text)

n = Val(Text3.Text)

If a > b Then t = a: a = b: b = t

Randomize

①

For i = 2 To n

m(i) = Int(Rnd * (b - a + 1)) + a

If m(i) > m(i - 1) Then

②

For j = i - 1 To 1 Step -1

If temp < m(j) Then Exit For

m(j + 1) = m(j)

Next j

③

End If

Next i

For i = 1 To n

List1.AddItem Str(m(i))

Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

【加试题】已知数组a（1）到a（6）的原始数据为”118”，”36”，”98”，”15”，”88”，”2”，对该数组进行排序操作，某同学编写了以下VB程序：

For i=1 to 3

For j=6 to i+1 step -1

If a(j)<a(j-1) then

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

End if

Next j

Next i

则程序运行之后，数组a（1）到a（6）的值依次为（）

【加试题】某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列。例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶的编号顺序读出旗子数量，没有旗子的桶略过,得到有序整数为“2,3,5,5,8”。

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(10) As Integer '数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 0 To 10

For j = 1 To ①{#blank#}1{#/blank#}

List2.AddItem CStr(i)

Next j

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 0 To 10 '将数组初始化为0

a(i) = 0

Next i

For i = 1 To 6 '产生6个[0,9]的随机数

t = Int(Rnd * 10)

a(t) = '第t桶中小旗子数量加1 ② {#blank#}2{#/blank#}

List1.AddItem CStr(t)

Next i

End Sub

给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：

⑴查找相邻两个非降序数据段在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后而没有元素，则本轮处理完毕；否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

⑵合并两个数据段

借助数组tmp，将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

⑶若数组中还有未处理的数据，则重复⑴⑵步骤。

每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据己构成非降序数据段，数据处理结束。

小吴为了研究冒泡排序过程中数据的”移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框'Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Labell中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

n = 8

For i = 1 To 8

List 1.Addltem a（i）

Next i

End Sub

Private Sub Command1_Click（）

Dim i As Integer， j As Integer， k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val（Text1.Text）

For i = 1 To n- 1

For j = n To i+1 Step-1

If a（j）< a（j -1） Then

‘⑴

a（j-1）= a（j）

a（j）= k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j-1

s = s + " →" + Str（pos）

‘⑵

pos = j

s = s + " →" + Str（pos）

End If

Next j

Next i

Label1.Caption = "位置变化情况：" +s

For i = 1 To n

List2.AddItem Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

小明编写了一个有关整数闭区间合并操作的VB程序：从数据库读取闭区间数据(左端点和右端点)，存储在数组a中，按区间数据左端点升序排序，然后进行合并操作，操作结果存储在数组b中。

例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

实现上述功能的VB程序如下，请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心