【加试题】数组元素a(0)到a(9)的值依次为&ldquo;13,20,22,25,30,33,40,52,65,100&rdquo;，文本框Text1中输入的值是33，执行该程序段，下列描述正确的...

题型：单选题题类：常考题难易度：困难

浙江省诸暨市牌头中学2018届高三上学期信息技术期中考试试题

【加试题】数组元素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) + "步"

A、标签Label1显示内容为“→4→7→5” B、标签Label2显示内容为“历经1步” C、该程序为顺序查找，查找次数为3 D、该程序为对分查找，查找次数为4

举一反三

某对分査找算法的VB程序段如下：

i= 1 : j =9 : n =0

key=Val( Textl.Text)

Do While i <= j

m=(i + j) \ 2

If key = d(m) Then

Exit Do

j= m - 1

Else

i=m+1

End If

Loop

方框中的正确代码应为（）

【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

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

For i = 2 To n

t = a(i) : j = i - 1

Do While t < a(j)

a(j + 1) = a(j) j = j – 1

If Then Exit Do ①

Loop

②

Next i

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

编写“字母出现频率测试”程序，实现如下功能：在文本框Text1中输入英文句子，单击“统计”按钮，在列表框List1中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如图所示。

有如下VB程序段：

a(1)=2: a(2)=6: a(3)=8: a(4)=9: a(5)=12

a(6)=15: a(7)=17: a(8)=18: a(9)=22: a(10)=30

k=Val(Text1.Text)

i=1: j=10

Do While i <=j

m=(i+j) \ 2

If a(m) <=k Then

i=m+1

Else

j=m-1

End If

Loop

Text2.Text=Str(a(i))+"← →"+Str(a(j))

程序运行时，文本框Text1中输入5，文本框Text2中显示的内容是（）

小吴编写了一个查找数组中不重复数据的VB程序，功能如下:程序运行时在列表框List1中显示原始数据(存储在数组a中)，单击“查找”按钮Command1后，在列表框List1中显示数组中元素值只出现一次的数据。程序运行界面如图所示。

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

Const n = 10 ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n ‘flag(i)=true开始假设都只出现1次

flag(i) = True

Next i

For i = 1 To n

If flag(i) Then

For j = i + 1 To n

If Then flag(i) = False: flag(j) = False ‘①

Next j

End If

Next i

For i = 1 To n

If Then List2.AddItem Str(a(i)) ‘②

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

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

'随机产生包含8个整型元素的降序序列，依次存入数组a，代码略

i =1：j= 8：c=0

Key = Val(Text1. Text)

Do While i< = j

n=(i+j+1)\2

c=c+1

If a(m)> Key Then i=m+1 Else j=m-1

Loop

Text2. Text = Str (c)

在文本框Textl1中输入待查找的数，执行该程序段后，下列说法错误的是( )

相关试卷

公司介绍

服务介绍

帮助中心