- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省五校2021届高三下学期信息技术5月联考试卷

果园里有n堆果子放在地上，现要将所有果子合并成一堆。每次只能合并两堆果子，消耗的体力等于两堆果子的重量之和。显然，n堆果子需要经过n-1次合并。合并果子的过程中总共消耗的体力等于每次合并所耗体力之和。为了尽可能地节省体力，我们每次都选择重量最小两堆进行合并。例如，有三堆果子，重量依次为1，2，9。可以先将1、2堆合并，新堆重量为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，重量为12，耗费体力为12。所以总共耗费体力为3+12=15。可以证明15为最小的体力耗费值。

编写VB程序，实现上述合并功能。运行程序时，将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后，在文本框Text1中输出最小的体力耗费值。请回答下列问题：

（1）、若要清空文本框Text1中的内容，能实现该功能的语句是(单选，填字母：A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Form_ Load( )

‘将n堆果子的重量从数据库导入到数组a，代码略。

End Sub

Private Sub Command1_Click( )

Dim f As Boolean

Dim last As Integer

Dim a(1 To n) As Integer

i= 1

Do While i<n And Not f

f=True

For j=n To i+1 Step-1

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

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

last= j

f= False

End If

Next j

Loop

For i= 1 To n-2

tmp=a(i)+a(i+1)

Do While a(j)< tmp

a(j-1)= a(j)

j=j+1

If j=n+ 1 Then Exit Do

Loop

Min=Min+tmp

Next i

Text1.Text = Min

End Sub

（3）、程序中加框处代码有错，请改正。

举一反三

有如下程序段：

For i = 1 To 2

For j = 2 To 7 - i

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

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

End If

Next j

Next i

数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（）

【加试题】小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

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

Const n=10

Private Sub Form_Load()

‘排序前数据存储在数组a中，并在文本框Text1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer

Dim bottom As Integer

Dim j As Integer

Dim a(1 To n)As Integer

i=1

bottom=n

Do While i<bottom

k=i

j=i+1

Do While i<=bottom

If a(j)=a(k)Then

a(i)=a(bottom)

‘(1)

bottom=bottom-1

E1seIf a(j)<a(k) Then

k=j

End If

j=j+1

Loop

If Then ‘(2)

t=a(i)

a(i)=a(k)

a(k)=t

End If

i=i+1

Loop

‘排序后数据存储在数组a中，并在文本框Text2中显示

End Sub

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

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

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

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

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（）

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到n个非降序数保存在数组a(1)—a(n)中，并显示在 List1中。在文本框Text1中输入成绩key，单击“查找”按钮，则在标签 label1中显示共有多少位同学的成绩大于等于该成绩。

数组a中有n个正整数，对该数组进行排序，生成左右交替上升数据序列。实现该功能的VB程序段如下：

For i=1To n＼2

k=i

If a(j) <a(k) Then k=j

Next j

If i<>k Then

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

End If

If Then

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

End If

Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1 ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（）

有如下VB程序段：

For i=1 To 5

For j=i+1 To 6

If s(i)+ s(j)< s(j)+ s(i) Then

t=s(j):s(j)=s(i):s(i)=t

End If

Next j

Next i

For i= 1 To 6

Text1.Text= Text1.text+s(i)

Next i

如果程序运行,开始当数组元素s(1)到s(6)的值依次为“4”、“343”、“312”、“12”、“246”、“121”，运行该段代码后，文本框Text1中显示的内容为（）

相关试卷

公司介绍

服务介绍

帮助中心