- 二一组卷

题型：单选题题类：模拟题难易度：困难

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

【加试题】小赵对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。小赵编写的VB程序段如下，要使程序实现上述算法思想，则方框中的语句是（）

p = 1: q = 10

Do While p < q

iMin = p: iMax = p

For i = p + 1 To q

If a(i) < a(iMin) Then iMin = i

If a(i) > a(iMax) Then iMax = i

Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

t = a(iMax): a(iMax) = a(q): a(q) = t

p = p + 1

q = q - 1

Loop

A、If iMax = p Then iMax = iMin B、If iMin = p Then iMin = iMax C、If iMax = p Then iMin = iMax D、If iMin = p Then iMax = iMin

举一反三

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

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

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

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

End Sub

Private Sub Command1_Click()

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

Dim top As Integer

top=1

For i=1 To n-1

For j= To n-1 ‘⑴{#blank#}1{#/blank#}

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

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

ElseIf a(j)=a(j+1)Then ‘相邻两个数据相等，由前面数据对进行覆盖处理

‘⑵{#blank#}2{#/blank#}

top=top+1

End If

Next j

Next i

Text2．Text=“ ”

For i=top To n

Text2．Text=Text2．Text+Str(a(i))

Next i

End Sub

【加试题】小明设计了一个VB程序，随机产生n个1至20之间的整数，并在列表框List1中降序显示：实现上述功能的VB代码如下，加框外代码有误，请改正。

Private Sub Command1_Click()

Dim n, i, j, temp As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

Randomize

a(1) = Int(Rnd * 20) + 1

For i = 2 To n

a(i) = Int(Rnd * 20) + 1

If a(i) > a(i - 1) Then

temp = a(i)

bot = 1 : Top = n

Do While bot <= Top

‘(1)

If temp < a(m) Then bot = m + 1 Else Top = m - 1

Loop

For k = n To bot + 1 Step -1

‘(2)

Next k

a(bot) = temp

End If

Next i

For j = 1 To n

List1.AddItem Str(a(j))

Next j

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

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

有如下程序段：

For i=1 To 2

k=i

For j=i+1 To 5

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

Next j

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

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（）

新华书店准备举行“买3送1”周年大酬宾活动，顾客只要每买三本书就可以免除其中一本最便宜的书的书款，上不封顶。其结算系统如图所示。图中左侧显示了顾客已挑选的书的款额，款额保存在数组s中，单击“结算”按钮后，系统会统计出所有书籍的金额数，并自动统计顾客最少所需的付款额。假设顾客买了7本书，价钱分别是10、3、2、4、4、6、9，总金额是38元，则顾客实付只需29元。

以下程序加框处有错，请改正。

Private Sub Command1_Click()

Dim s(1 To 1000)As Single, n As Integer, x As Integer

Dim payment As Single, cost As Single, tmp as Single

‘假设顾客共挑选了n本书，各本书金额数都已存放在数组s中

‘先对n本书按价格降序排序

For i=1 To n-1

x=i

For j=i+1 To n

If Then x=j ’{#blank#}1{#/blank#}

Next j

If x <> i Then

tmp=s(x)

s(x)=s(i)

s(i)=tmp

End If

Next i

‘降序排序后，每隔两本就是一本可以减免的书

cost=0 : payment=0

For i=1 To n

cost=cost+s(i)

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

payment=payment+s(i)

End If

Next i

Label1.Caption=“总金额:” & cost

Label2.Caption=“实付:” & payment

End Sub

数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如下表所示：

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While ①

If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If

c(pc) = s

If flag Then

pc = m + n - pc + 1

Else

pc =

End If

②

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

某校最近开设了10节不同内容的选修课，课的编号为1～10。每位同学只能选报一门课。事先让学生做过问卷调查并根据自己的兴趣爱好填写了选课报名志愿表(无重复)，如某同学的报名志愿表为4，1，2，7，3，5，8，10，9，6，表示他最想选报的课的编号是4(第一志愿)，其次为1(第二志愿)，以此类推。学校根据每位学生的问卷调查得分及选课报名志愿表进行了分班，每班30人。
分班方法：优先满足问卷得分最高同学的第一志愿，如果该同学第一志愿所报名人数超过30人，则尝试满足其第二志愿，以此类推，直至该同学选课成功。
编写程序实现选课分配功能并统计各志愿录取率情况：单击读取按钮Command1后，在列表框List1中显示每位学生的相关信息。单击统计按钮Command2后，统计第X志愿录取人数及录取率的统计结果清单，显示在列表框List2中。程序界面如图a所示。实现上述功能的VB程序代码如下，请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心