- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省高中信息技术算法及VB语言基础单元检测

小明编写了一个数据插入程序。程序输入一个数字，将该数字插入一列有序数据:-5,3,4,12,20,45,70，并使数据序列保持有序。设计的算法是从前往后找位置插入。

Private Sub Command1_Click()

Dim a(1 To 8) As Integer

Dim n, i, j, x As Integer

List1.Clear

List2.Clear

a(1) = -5: a(2) = 3: a(3) = 4: a(4) = 12: a(5) = 20: a(6) = 45: a(7) = 70

For j = 1 To 7

List1.AddItem Str(a(j))

Next j

x = Val(Text1.Text)

i = 1

Do While x > a(i) And i < 8 ’找x的插入位置

①

Loop

For j = 8 To i + 1 Step -1 ’移动数据

②

Next j

a(i) = x

For j = 1 To 8

List2.AddItem Str(a(j))

Next j

Label1.Caption = “插入的位置是” &Str(i)

End Sub

（1）、代码“List1.Clear”中的Clear是。(单选。填字母:A .属性名/B .事件名/C .方法名)

（2）、为实现程序功能。请在划线处填入合适的代码。

①处填入的代码为。

②处填入的代码为。

举一反三

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

n=0

i=1

j=6

key=Val(Text1．Text)

f=False

Do While i<=j And Not f

m=(i+j+1)＼2

n=n+1

If key=d(m)Then

f=True

ElseIf key>d(m)Then

i=m-1

Else

i=m+1

EndIf

Loop

数组元素d（1）到d（6）的值依次为“87，72，53，41，29，18”，若该程序段运行结束后，n的值为2，则key的值是（）

【加试题】有1个升序排列的数组a(a(1)～a(n)，n≥3)，从左到右相邻两个元素的差值（后一个元素值减去前一个元素值）先由小到大、再由大到小，且相邻两个差值不相等，为了查找相邻两个元素的最大差值，小李编写的VB程序段如下：

i = 1 ：j = n

Do While i + 1 < j

m = (i + j) \ 2

If a(m + 1) - a(m) > a(m) - a(m - 1) Then

Else

End if

Loop

Label1.Caption="相邻两个元素的最大差值是" + Str(a(j) - a(i))

上述程序段两个方框处的语句分别为（）

【加试题】数组元素a(0)到a(9)的值依次为“13,20,22,25,30,33,40,52,65,100”，文本框Text1中输入的值是33，程序段执行完毕后，下列描述正确的是（）

key = Val(Text1.Text)

i = 0: j = 9: s = 0

Do While i <= j

m = Fix((i + j) \ 2 + 0.5)

s = s + 1

If key = a(m) Then

Label1.Caption = Label1.Caption + "→" + Str(m)

Exit Do 'Exit Do表示退出循环

End If

If key < a(m) Then j = m - 1 Else i = m + 1

Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步

下列关于算法的叙述中，正确的是（）

下列VB程序实现数字字母混合序列分离后分别排序，最后又合并输出。具体算法如下：在文本框Text1输入若干组混合序列，每组序列中仅包含一组字母和一个多位数字，序列之间用逗号隔开，以逗号结束。单击“排序”按钮command1，把每组序列中的字母和数字分开，并分别排序，最后在列表框list1输出。排序规则如下：所有数字按从小到大升序排序，字母序列按长度升序排序，若长度相同，直接按字母序列大小升序排序（按字母的ASCII码排序，“A”<“Z”<“a”<“z”）。实现算法的部分程序界面如图所示，VB程序代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

c = Mid(s, i, 1)

If c = "," Then

a(k) = tmp1: b(k) = tmp2

tmp1 = 0: tmp2 = ""

①

Else

If Then

tmp2 = tmp2 + c

Else

tmp1=tmp1*10+val(c)

End If

i = i + 1

Loop

For i = 1 To 5

For j = 1 To 6 - i

If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

If Len(b(j)) > Len(b(j + 1)) Or ② Then

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

End If

Next j

Next i

For i = 1 To 6

List1.AddItem Str(a(i)) + b(i)

Next i

End Sub

某对分查找算法的VB程序段如下:

i=1: j=8: t=0

key=int(Rnd( )*7)+14

Do While i<=j

m=int((i+j)/2)

t=t+1

if a(m)=key Then

Exit Do

Else

if a(m)>Key Then

j=m-1

Else

i=m+1

End if

Loop

数组元素a(1)到a(8)的值依次为“2,11,14,15,18,19,20,22”，执行该程度段后，变量t的最大值可能是（）

相关试卷

公司介绍

服务介绍

帮助中心