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

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

浙江省温州市十校联合体2015-2016学年高二下学期期中联考信息技术试题

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

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

（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=① ′产生[1，999]范围内的随机整数

If Not f(x) Then

n=n+1

a(n)=x

List1.AddItem Str(a(n))

End If

Loop

For i=1 To 9

For j=10 To i+1 step -1

If ② 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程序段如下：

For i=1 To 6

j=7

Do While j > i

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

a(j)=a(j)+a(j-1)

a(j-1)=a(j)-a(j–1)

a(j)=a(j)-a(j-1)

End If

j=j-1

Loop

Next i

For i=3 To 6

s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（）

有如下VB程序段：

s=“26170534”:n=Len(s):y=“”

For i=1 To n

ch(i)=Mid(s, i, 1)

Next i

For i=1 To n

k=i

For j=i To n Step 2

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

Next j

If k <> i Then t=ch(k): ch(k)=ch(i): ch(i)=t

y=y & ch(i)

Next i

Label1.Caption=y

该程序段运行后，标签Label1中显示的内容是（）

有以下VB程序段：

For i=1 To 3

For j=i To 5

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

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

End If

Next j

List1.AdcIItem Str(a(i))

Next i

a(1)到a(6)的初始值依次为“8 6 5 7 9 3 ”，经过该程序段“加工”后，列表框List1中显示的是（）

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框List1中显示100以内的所有孪生质数对（运行效果如图所示）。

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

Dim a(1 To 50) As Integer

Private sub Command1_Click()

Dim i As Integer

k=0: i=3

Do While i<= 100

If Not prime(i) Then

k=k+1

End If

i=i+2

Loop

For i=2 To k

If Then

List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

End if

Next i

End Sub

Function prime (x As Integer)As Boolean

prime=False

For i=2 To Int(sar(x))

If x Mod i=0 Then

prime=True

Exit for

End If

Next i

End Function

有如下Python程序，其功能为删除无序链表（元素个数大于等于2）中的重复元素。

def dele（a, head）:

pre=head; p=a[head][1]

while p!=-1:

q=head

flag=False

while:

if a[q][0]==a[p][0]:

p=a[p][1]

flag=True

break

q=a[q][1]

if not flag:

pre=p;

p=a[p][1]

a=[[0, 3], [1, 2], [1, 4], [0, 1], [0, 5], [2, -1]]

dele（a, 0）

①q!=-1 ②q!=p ③a[pre][1]=a[p][1] ④a[pre][1]=a[q][1]

方框中填入的正确代码依次为（）

相关试卷

公司介绍

服务介绍

帮助中心