- 二一组卷

题型：填空题题类：常考题难易度：困难

浙江省台州市联谊五校2018-2019学年高二下学期信息技术期中考试试卷

【加试题】编写一个 VB 程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

Dim imin1 As Integer, imin2 As Integer

For i = 1 To n \ 2

imin1 = i: imin2 = i + 1

If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

For j = i + 2 To n - i + 1

If a(j) < a(imin1) Then

imin2 = imin1: imin1 = j

'①

imin2 = j

End If

Next j

If i <> imin1 Then t = a(i): a(i) = a(imin1): a(imin1) = t

If imin2 = i Then '②

If n - i + 1 <> imin2 Then

t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

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

Next i

End Sub

① ②

举一反三

【加试题】实现某排序算法的部分VB程序代码段如下：

For i = 1 To 7

For j = 8 To i+1 step -1

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

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

End If

Next j

Next i

数组元素sz(1)到sz(8)的原始数据依次为" 5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5"。则第3遍排序"加工"后数组元素sz(1)到sz(8)的数据依次是（）

下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为

原始数据	65	57	59	44	45	69
第1遍	44	65	57	59	45	69
第2遍	44	45	55	57	59	69
第3遍	44	45	57	65	59	69
…	…	…	…	…	…	…

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

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

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

【加试题】有如下部分程序段，数组元素d(1)到d(7)的值依次为“70, 60, 50, 40, 30, 20, 10。文本框Textl中输入25，行该程序段，运行结束后，下列表达式正确的是（）

n = 0 : i =1 : j = 7

Key = Val(Textl.Text)

f = False

Do While i <= j And Not f

m = fix((i + j)/2+0.5)

n = n + 1

If key = d(m) Then

f = True

Elseif key > d(m) then

j = m - 1

Else

i = m + 1

end if

Loop

【加试题】有如下VB程序段，当n为8时，上述程序段的运行结果a(1)至a(8)的值分别为1,8,3,6,5,4,7,2，则划线出应填入的代码分别为（）

n = Val(Text1.Text)

For i = 1 to n

a(i) = i

Next i

For i = 1 to n/2-1

For j = n to 2*(i+1) step -2

If ① Then t = a(j):a(j)=a(j-2):a(j-2)=t

Next j

For j = 1 to n- i*2 step 2

If ② Then t = a(j):a(j)=a(j+2):a(j+2)=t

Next j

Next i

以下VB程序段用插入排序的方法实现10个数据升序排序：

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

For i=2 To 10

Text1.Text = ""

For i= 1 To 5

For j=i+1 To 6

If s(i) + s(i) < s(j) + s(i) Then

t= s(j): s(j)= s(i): s(i)=t

End If

Next j

Next i

For i=1 To 6

Text1.Text = s(i) + Text1.Text

Next i

If Then

tmp = a(i)

For j= To 1 Step -1 ‘依次后移

If tmp > a(j) Then Exit For

a(j+1)= a(j)

Next j

‘插入数据

End If

Next i

For i= 1 To 10

List1.Addltem a(i)

Next i

End Sub

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

相关试卷

公司介绍

服务介绍

帮助中心