- 二一组卷

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

浙江诸暨中学2018-2019学年高二上学期信息技术期中考试试卷

以下程序的功能是随机生成100个97-122之间的正整数（包括97和122），并将一个区间内的数（第x个元素到第y个元素）取出并按升序输出。请修改加框处的错误。

Private Sub Command1_Click()

Dim a(1 To 100) As Integer

x = Val(Text1.Text)

y = Val(Text2.Text)

For i = 1 To 100

(1)

List1.AddItem Str(a(i))

Next i

For i = x To y - 1

k = i

For (2)

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

Next j

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next i

For i = x To y

List2.AddItem Str(a(i))

Next i

End Sub

⑴ ⑵

举一反三

【加试题】已知数组a（1）到a（6）的原始数据为”118”，”36”，”98”，”15”，”88”，”2”，对该数组进行排序操作，某同学编写了以下VB程序：

For i=1 to 3

For j=6 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

Next i

则程序运行之后，数组a（1）到a（6）的值依次为（）

有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”，经过该程序段“加工”后，下列说法正确的是是（）

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

数组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

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

排序前	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#}

下列VB程序段的功能为：生成n个不重复的随机整数，保存在数组a中，并升序排序。

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

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

‘f数组各元素的初值置为False，代码略

For i = 1 To ⑴

t = Int(1 + Rnd * 10)

If Not f(t) Then

a(i) = t : f(t) = True

For j = ⑵

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

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

End If

Next j

Else

⑶

End If

Next i

上述程序段3个方框处的表达式分别为( )

相关试卷

公司介绍

服务介绍

帮助中心