- 二一组卷

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

浙江省名校协作体2018-2019学年高二上学期信息技术9月联考试卷

用VB设计一个模拟选手得分程序，在文本框Text1中输入裁判人数（人数大于2），然后点击Command1按钮，在List1中产生70到100的随机数为裁判的打分，去除一个最高分，去除一个最低分，取其他裁判打分的平均分作为最终得分显示在文本框Text2中，运行效果如图所示。

（1）、若要在程序运行时，修改窗体显示的标题为“得分计算”，则下面语句可行的是。（单选，填字母：A .Command1.Caption=“得分计算”/B .Form1.Name=“得分计算”/C .Form1.Text=“得分计算”/D .Form1.Caption=“得分计算”）

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

Private Sub Command1_Click()

Dim n As Integer '裁判人数

Dim max As Integer， min As Integer， sum As Integer

Dim AveScore As Single '存储最终得分

n = Val(Text1.Text): sum = 0

If n <= 2 Then MsgBox ("输入数据要大于2，请重新输入！")

If n > 2 Then

List1.Clear

Randomize

score = Int(Rnd() * 31) + 70

List1.AddItem Str(score)

max = score

min = score

For i = 2 To n

score = Int(Rnd() * 31) + 70

List1.AddItem Str(score)

If score > max Then max = score

If score < min Then min = score

sum = sum + score

Next i

AveScore =

Text2.Text = Str(AveScore)

End If

End Sub

（3）、若要将最终得分保留一位小数（四舍五入），下列代码可行的是______________________。

A、AveScore=int(AveScore+0.5) B、AveScore=int(AveScore*10+0.5)/10 C、AveScore=int(AveScore*100+0.5)/100

举一反三

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

Dim a(5) As Integer

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

a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35

i = 1

Do While i < 5

t = i: j = i + 1

Do While j <= 5

If a(j) > a(t) Then t = j

j = j + 1

Loop

x = a(t): a(t) = a(i): a(i) = x

i = i + 1

Loop

Text1.Text = Str(a(2))

运行该段代码后，文本框Text1中显示的内容为（）

【加试题】某对分查找自定义函数search()的VB程序段如下：

Function search(key As Integer)As String

Dim pos As Integer，i As Integer，j As Integer

Dim nc As String

i=1：j=6：nc=“”

Do While i<=j

m=Int((i+j)／2)

nc=nc+Str(m)

If d(m)=key Then

Exit Do ‘Exit Do表示退出Do While循环

ElseIf key<d(m)Then

j=m-1

Else

i=m+1

End If

Loop

search=nc

End Function

数组元素d(1)到d(6)的值依次为“23，34，45，65，78，98”，则下列说法正确的是（）

【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。

位置	0	1	2	3	4	5	6	7	8	9	10
数据	64	67	45	145		269				119	1275

【加试题】“轮转后有序数组（Rotated Sorted Array）”是将有序数组其中某一个数为分割点，将其之前的所有数都轮转到数组的末尾所得。比如{7，11，13，17，2，3，5}就是一个轮转后的有序数组，原有序数组中的字串{2，3，5}被轮转到了数组的末尾处。

对于一个轮转后有序数组arr也可以进行二分查找，算法思路如下（以升序为例）：每次根据查找的左侧位置L和右侧位置 R 求出中间位置M后，M左边[L，M]和右边

[M+1，R]这两部分中至少一个是有序的（可根据中间位置数据和边界数据的大小关系判断）。

arr[M]和待查找数据key比较

⑴arr[M]=key，返回M的值；

⑵若M位置右侧有序，当待查找数据在右侧，则下次在右侧查找，否则在M左侧查找。

⑶若M位置左侧有序，当待查找数据在左侧，则下次在左侧查找，否则在M右侧查找。

问题：

有如下VB程序段：

i=1

j=6

s=“”

Key=Text1. Text

Do While i <=j

m=Int((i+j) / 2+0. 5)

s=s+“ ”+a(m)

If Key > a(m) Then

i=m+1

Else

j=m-1

End If

Loop

Text1. Text=s

数组元素a(1)到a(6)的值分别为“Beijing”“Guangdong”“Jiangsu” “Jiangxi”“Shanghai” “Zhejiang”，己按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为（）

某对分查找算法的VB程序段如下:

t=“”: i=0 : j=9 : key=62: f=False

Do While i<=j And Not f

m=Fix((i+j) / 2)

t=t+Str(rn)

If a(m)=key Then

f=True

Elself a(m) > key Then

i=m+1

t=t+“→”

Else

j=m-1

t=t+“←”

End If

Loop

数组元素a⑹到a⑼的值依次为“99, 94, 90, 87, 78, 70, 63, 56, 45, 36”,执行该程序段，t的值是（）

相关试卷

公司介绍

服务介绍

帮助中心