某社区进行“摘葡萄”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据葡萄串数进行排序，程序中所有参赛者的成绩保存在数组m中，对应的姓名保存在数组name中。程序运行界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。解决此问题的排序部分的程...

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

浙江省杭州市2016年信息技术高考模拟卷十四

某社区进行“摘葡萄”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据葡萄串数进行排序，程序中所有参赛者的成绩保存在数组m中，对应的姓名保存在数组name中。

程序运行界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim m(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

For i = 1 To 9

k = i

For j = i + 1 To 10

If ① Then k = j

Next j

If k <> i Then

x = m(i) : m(i) = m(k) : ②

y = name (i) : name (i) = name (k) : name (k) = y

End If

Next I

For I = 1 To 10

List2.AddItem Str(m(i)) + " " + name(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

（1）、程序中①划线处应填入。

（2）、程序中②划线处应填入。

举一反三

【加试题】数据“56，23，78，11，8”依次存放在数组a（1）到a（5）中，执行下列VB程序段后，数组a（1）到a（5）中的数据依次为（）

For i=1 to 2

For j=1 to 5-i

If a(j+1)<a(j)Then t=a(j)：a(j)=a(j+1)：a(j+1)=t

Next j

Next i

【加试题】某算法的VB程序段如下：

Dim a(1 T0 5)As Integer

Dim c As Integer

a(1)=44：a(2)=36：a(3)=58：a(4)=65：a(5)=12

b=0：c=0

For i=1 To 4

k=i

For j=i+1 To 5

If a(j)<a(k) Then

k=j

b=b+1

End If

Next j

If k<>I Then

t=a(i)：a(i)=a(k)：a(k)=t

c=c+1

End If

Next i

Text1．Text=Str(b)+Str(c)

运行该程序段后，文本框Text1的内容是（）

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

小诗收集了全市部分教职员工的工资数据，设计了找中位数的程序如下。小诗收集的人员工资数据放在了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

有如下VB程序段：

a(l) = "Java": a(2) = 〃VB": a(3) = "Swift"

a⑷="Pascal": a(5) = "Python": a(6) = "Delphi

For i = 1 To 3

For j = 1 To 6 - i

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

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

End If

Next j

Next i

执行该程序段后，数组a(1)到a(6)的数据依次是（）

某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中显示的是（）

有一组正整数，要求仅对其中的素数进行升序排序。排序后素数在前，非素数在后。排序示例如下。

排序前	86	71	5	41	81	79	37	89
排序后	5	37	41	71	79	89	86	81

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

Const n=8

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

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

Dim flag As Boolean

'读取一组正整数，存储在数组a中，代码略

For i= 1 To n-1

'（1）

If IsPrime（a（k））Then flag = True Else flag = False

For j = i + 1 To n

If IsPrime（a（j）） Then

If Then '（2）

k=j

flag = True

End If

Next j

If k <> i Then

t=a（k）：a（k）= a（i）：a（i）= t

End If

If Not flag Then Exit For 'Exit For表示退出循环

Next i

'依次输出排序后的数据。代码略

End Sub

Function IsPrime（m As Integer）As Boolean

'本函数判断m是不是素数：是素数返回值为True，不是素数返回值为False

'代码略

End Function

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

相关试卷

公司介绍

服务介绍

帮助中心