- 二一组卷

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

浙江省杭州市西湖高级中学2018-2019学年高二下学期信息技术5月月考试卷

统计学中的“中位数”是这样的一种数：一组数据里的一半的数据比它大，而另外一半数据比它小。计算一组数据的中位数的方法是：把所有数据按照非升的次序排列。如果数据的个数是奇数，则中间那个数就是这组数据的中位数；如果个数是偶数，则中间两个数的算术平均值是中位数。

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了Access数据库中。小诗的程序在窗体加载时读出了所有人员的数据：姓名放在数组a中，对应的工资放在数组b中，数据总记录数放在n中。单击按钮Command1后先以工资按非升的次序排序，然后找出中位数。

Dim a(1 To 1000) As String

Dim b(1 To 1000) As Single

Dim n As Integer

‘数据库读取所有人员的数据代码略

Private Sub Command1_Click()

Dim i As Integer , j As Integer , k As Integer

Dim tmp1 As Single, tmp2 As String

Dim median As Single

For i = n To 2 step -1

k = i

For j = i-1 To 1 step -1

If Then

k = j

End If

Next j

If k <> i Then

tmp1 = b(k): b(k) = b(i): b(i) = tmp1

tmp2 = a(k): a(k) = a(i): a(i) = tmp2

End If

Next i

For i = 1 To n

List1.AddItem Str(i) & " " & a(i) & " " & Str(b(i))

Next i

If n Mod 2 = 0 Then

median =

Else

median = b(n\2+1)

End If

Label1.Caption = "中位数是：" & Str(median)

End Sub

（1）、要使程序运行时，从数据库中读取所有人员的数据，可在事件过程中添加相关代码。（单选，填字母：A .Form1_load/ B .Form_load/ C .Form1.Caption）

（2）、将划线处代码补充完整。

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

（4）、如图所示，数据库中一共有个教职员工。

举一反三

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

For i=1 To 3

For j=5 To i Step-1

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

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

EndIf

Next j

Listl．AddItem Str(a(i))

Next i

数组元素a（1）到a（6）的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框List1中显示的内容是（）

有VB程序段如下:

For i=1 to 2

k=1

For j=2 to 6-i

If d(k)<d(j) then k=j

Next j

If k<>6-i then

T=d(6-i):d(6-i)=d(k):d(k)=t

End If

Next i

数组元素d(1)到d(5)的值依次为“36，25，47，89，78”，经过该程序段“加工”后，下列说法正确的是是（）

n个数据的冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较。在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序的情况下，不需要再进行n-i对数据的比较。如对“17, 18,19, 24, 23, 20”这6个数据排序中，第1遍排序结束后数据为“17, 18,19, 20, 24, 23”，第2遍排序时不再需要对20及其前面3个数据进行比较。以下程序实现了冒泡排序的优化，在横处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

’n=10,排序前生成的数据存储在数组a中，并在列表框List1中显示，代码略

Private Sub Command1_Click()

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

i=2

Do While i < n start=n

For j=n To i Step-1

If{#blank#}1{#/blank#}Then

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

{#blank#}2{#/blank#}

End If

Next j

i=start+1

Loop

For i=1 To n

List2.AddItem{#blank#}3{#/blank#}

Next i

End Sub

【加试题】有如下部分程序段，程序运行后列表框中显示的结果是（）

a(1) = "20": a(2) = "18": a(3) = "06": a(4) = "o": a(5) = "k"

For i = 1 To 4

For j = 2 To 6-i

If a(j) > a(j-1) Then t = a(j): a(j) = a(j-1): a(j-1) = t

Next j

List1.Additem a(j-1)

Next i

以下VB程序段用以实现10个数组元素升序排序。

Dim a(1 To 10) As Integer

Dim flag As Boolean

Dim i As Integer, j As Integer, tmp As Integer

随机生成10个不重复的数据存入数组A中，代码略

For i=2To 10

tmp= a(i)

j=i

flag=False

Do While ① And Not flag

a(j)=a(j-1)

j=j-1

②

Loop

a(j)=tmp

Next i

要实现上述功能，方框①②中的语句分别是（）

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

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

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

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

Dim bottom As Integer

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

bottom = n

i = 1

Do While i<= bottom-1

For j = bottom To i + 1 Step -1

If Then ‘⑴

t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

Elself a（j）= a（j - 1）Then '相邻两个数据相等，进行剔除处理

‘⑵

bottom = bottom -1

End If

Next j

i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

相关试卷

公司介绍

服务介绍

帮助中心