下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2015年高考信息技术模拟卷10

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。

数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

（1）、虚线框内程序段所采用的排序算法名称是。（填：冒泡排序/选择排序）

（2）、在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。

Dim a(1 To 10) As Integer

Function f(x As Integer) As Boolean

′代码略

End Function

Private Sub Commandl_Click()

Dim n As Integer ′n用于统计已经产生的随机整数个数

Dim i As Integer.j As Integer

Dim x As Integer.k As Integer

Randomize ′初始化Rnd函数

n=0

List1.Clear ′清除列表框中内容

List2.Clear

Do While n<10

x=Int(Rnd*999)+1 ′产生[1，999]范围内的随机整数

If Not f(x) Then

n=n+1

a(n)=x

List1.AddItem Str()

End If

Loop

For i=1 To 9 ′进行排序

For j=10 To i+1

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

For i=1 To 10

List2.AddItem Str(a(i))

Next i

End Sub

举一反三

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

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

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

‘获取排序前数据，并依次存储在数组a中，并在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer，j As Integer，t As Integer

Dim top As Integer

top=1

For i=1 To n-1

For j= To n-1 ‘⑴{#blank#}1{#/blank#}

If a(i)>a(j+1)Then

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

ElseIf a(j)=a(j+1)Then ‘相邻两个数据相等，由前面数据对进行覆盖处理

‘⑵{#blank#}2{#/blank#}

top=top+1

End If

Next j

Next i

Text2．Text=“ ”

For i=top To n

Text2．Text=Text2．Text+Str(a(i))

Next i

End Sub

【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

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

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub

Private Sub Command2_Click()

Dim i As Integer

n=Val(Text1．Text)

For i=0 To n-2

For j=i+1 To n-1

If Then ‘(1)

temp=a(i)：a(i)=a(j)：a(j)=temp

End If

Next j

Next i

If n Mod 2<>0 Then d(n＼2)=a(n-1) ‘个数为奇数，最小值放中间位置

For i=0 To n＼2—1

d(i)=a(i*2)

=a(2*i+1) ‘(2)

Next i

‘在列表框List2中输出数组d，代码略

End Sub

【加试题】n堆金币，把两堆金币合并到一起，n堆金币经过n-1次合并之后就只剩下一堆了。如何消耗最少的体力，把这n堆金币合并成一堆？合并所消耗的体力等于每次合并两堆金币的重量之和。比如，n=3时表示共有3堆金币，每堆重量分别是2、1、9.一种合并方案是2和9合并，新堆重量是11，消耗体力为11；接着11和1合并，新堆重量是12，消耗体力为12，因此总消耗体力是11+12=23。另一种方案是：1和2合并，新堆重量是3，消耗体力为3；接着3和9合并，新堆重量是12，消耗体力为12，因此总消耗体力是3+12=15。可以证明这就是最少消耗体力。

小张经分析，每次n堆金币如果都是从小到大，将前两堆合并成新一堆，然后，继续进行从小到大排序，如此合并成最后一堆，此时消耗体力最少，为此他编写了一个解决上述问题，求最少体力的VB程序，功能如下：窗体加载时，自动读取n堆金币的数据，依次存储在数组元素a(1)、a(2)、a(3)…中，金币堆数存储在变量n中，n堆金币的重量数据显示在列表框List1中。单击“求解”按钮Command1，程序对n堆金币进行合并处理，消耗最少的体力显示在文本框Text1中。程序运行界面如图所示。