- 二一组卷

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

浙江省嘉兴市2021届高三上学期信息技术9月教学测试

学校准备开展班级篮球对抗赛，采用瑞士轮赛制。该赛制的规则是：(1)参数队伍数为偶数，如2n支队伍，编号为1~2n；(2)对阵规则：根据排名规则对队伍进行排序，两两对阵，由第1名对第2名、第3名对第4名……；(3)积分规则：每场比赛必须分出胜负，胜者积分增加1分，负者积分不变；(4)排名规则：积分高的队伍排名靠前，积分相同则编号较小的队伍排名靠前，每轮比赛结束后重新排名。

要求编写程序计算在R轮比赛后，积分排名第Q的队伍编号。为解决此问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取编号为1~2n的队伍实力值，编号存储在数组bh中，实力值存储在数组s1中(每支队伍的实力值两两不同，且每场比赛中实力值较高的总能获胜)。在文本框Text1中输人查询轮次R，在文本框Text2中输人待查询排名Q，单击“查询"按钮Command1后在文本框Text3中输出相应队伍的编号、排名等信息。程序运行效果如图所示。

（1）、根据上述算法，编号为1~8，实力值依次为6、5、4、8、7、3、1、2的八支队伍参加比赛，则第三轮比赛后，排名第五的队伍编号是。

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

Constn=4

Dim bh(1 To 2*n) As Integer '队伍编号

Dim sl(1 To 2*n) As Integer '队伍实力

Dim jf(1 To 2*n) As Integer '队伍积分

Sub Form_ load( )

'在窗体加载时读取数据库数据并显示在list1中，代码略

End Sub

Private Sub Command1_ Click()

Dim Q As Integer, R As Integer

Dim i As Integer, j As Integer

R = Val(Text1.Text) : Q = Val(Text2.Text)

For i=1 To R

For j=1 To 2*n Step 2

If Then

jf (bh(j)) = jf(bh(j)) + 1

Else

End If

Next j

Call sort '调用积分排序过程sort

Next i

Text3.Text = "编号：" + CStr(bh(Q)) + "，实力：" + CStr(sl(bh(Q)))+ "，排名："+ CStr(Q) + "，积分：" + CStr(jf(bh(Q)))

'在List2中输出R轮后的积分表，代码略。

End Sub

Sub sort( )

Dim i As Integer, j As Integer, t As Integer

For i=1 To 2*n-1

For j=2*n To i+1 Step -1

If Then

t=bh(j)：bh(j)=bh(j-1)：bh(j-1)=t

End If

Next j

Next i

End Sub

举一反三

原始数据	1201	2120	1009	1987	2009
第一趟	2120	1201	1009	1987	2009
第二趟
第三趟	2120	2009	1987	1009	1201
第四趟	2120	2009	1987	1201	1009

有如下程序段：

For i= 1 To 2

For j=5 To i+1 Step-1

If a(j) >a(i) Then

t=a(j)：a(j)=a(i)：a(i)=t

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（）

下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a(9)的值依次为72，61，3，95，39，38，64，65，98，程序运行后，数组元素a(1)到a(9)的值依次为98，72，64，39，3，38，61，65，95。

m = (1 + n) \ 2 ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

If i Mod 2 = 1 Then

k = q + 1: q = q + 1

Else

k = p - 1: p = p - 1

End If

pos = k

For j = 1 To n

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

Next j

If pos > k Then

t = a(pos): a(pos) = a(k): a(k) = t

End If

Next i

上述程序段方框处的代码为（）

有如下VR程序段：

tail=6: i=1: r=2

Do While i<r

For j= tail 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

i=i+1

For j=i To tail-1

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

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

End If

Next j

tail=tail-1

Loop

数组元素值“73、56、28、61、44、92”，运行程序，数组元素a(1)到a(6)的值依次为（）

有如下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中显示的内容为（）

有如下VB程序段：

Dim a(1 To 5) As Integer

Randomize

a(1)=2：a(2)=6：a(3)=9：a(4)=3：a(5)=4

For i=1 To 4

For j=1 To 5-i

If a(j)+Int (Rnd*2)< 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(5)的值不可能是( )

相关试卷

公司介绍

服务介绍

帮助中心