- 二一组卷

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

浙江省普通高校招生信息技术选考模拟卷（二）

【加试题】某人编写了一个VB程序对一组随机数进行排名。程序运行时，产生10个随机整数存数组d中，并在列表框List 1中显示，单击按钮Command 1，在列表框List1 2中显示降序排序后数据及名次，若数值相同则名次相同。实现上述功能的VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim d(1 To n) As Integer, pm(1 To n) As Integer

Private Sub Form_Load()

'代码略，本过程功能：产生10个随机整数存数组d中，并在列表框list1 中显示。

End Sub

Private Sub Command1_Click()

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

i = 1

Do While i <= n - 1

k = i

For j = i + 1 To n

If Then k = j ‘①

Next j

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

i = i + 1

Loop

pm(1) = 1

For i = 2 To n

If Then ‘②

pm(i) = i

Else

pm(i) = pm(i - 1)

End If

Next i

For i = 1 To n

List2.AddItem Str(i) +" " +Str(d(i)) + " " + "第" + Str(pm(i)) + "名"

Next I

End Sub

① ②

举一反三

有8个西瓜的重量（单位：斤）分别是5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5。若采用选择排序算法对其进行从小到大排序，共需交换数据的次数是（）

在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

小王编写“合并区间” VB程序，功能如下:窗体加载时，获取并存储合并前的区间数据，并显示在列表框List1中。单击“合并”按钮后，以区间左端点数值对区间进行升序排序，然后相邻区间的相交进行合并，最后在列表框List2上显示合并后的区间。程序运行如图所示：

实现以上功能的VB程序如下,在横处填入合适的代码。

Dim a(1 To 20) As Integer ‘存储区间的左端点数值

Dim b(1 To 20) As Integer ‘存储区间的右端点数值

Private Sub Form_Load()

‘将区间左端点存入数组a,区间右端点存入数组b,并在列表框List1显示,代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim curL As Integer, curR As Integer

For i=1 To n-1

For j=1 To n-i

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

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

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

End If

Next j

Next i

curL=a(1): curR=b(1)

For i=2 To n

If{#blank#}2{#/blank#}Then

If curR < b(i) Then{#blank#}3{#/blank#}

Else

List2.AddItem“["+Str(curL)+Str(curR)+"]”

curL=a(i): curR=b(i)

End If

Next i

List2. AddItem “[”+Str(curL)+Str(curR)+“]”

End Sub

有如下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)的值依次为（）

lst1和lst2都是升序排序的列表，执行如下Python程序段:

result=[]

i=0#用于遍历1st1

j=0#用于遍历1st2

while i<len(lst1) and j<len(lst2) :#①

if lst1[i]<lst2[j]:

result.append(lst1[i])

i+=1

else:

result.append(lst2[j])

j+=1

while i<len(lst1):

result.append(lst1[i]) #②

i+=1

while j<len(lst2):

result.append(lst2[j]) #③

j+=1

下列说法不正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心