【加试题】对于数组（形如a数组：4、5、6、1、2、3或b数组：1、2、3、4、5、6），我们称元素1为此二数组的拐点。为寻找此类递增或循环递增数组的拐点，可以用顺序查找和对分查找的方法，通常相比之下对分查找算法较优，以下为使用对分法查找拐点的算法。做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有二个元素时，可根据此二元素大小关系得到拐点的位置。依据...

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

浙江省名校协作体2018届高三下学期信息技术3月选考试题

【加试题】对于数组（形如a数组：4、5、6、1、2、3或b数组：1、2、3、4、5、6），我们称元素1为此二数组的拐点。为寻找此类递增或循环递增数组的拐点，可以用顺序查找和对分查找的方法，通常相比之下对分查找算法较优，以下为使用对分法查找拐点的算法。

做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有二个元素时，可根据此二元素大小关系得到拐点的位置。

依据上述描述设计了VB程序，界面如图所示。请回答下列问题：

（1）、对于循环递增数组“9、10、11、12、13、14、15、16、17、18、19、20、1、2、3、4、5、6、7、8”，代码中加框处执行的次数为次。

（2）、请在划线处填入合适的代码。

Dim a(1 To 20) As Integer

Private Sub Command1_Click()

Dim Low As Integer, High As Integer

Low = 1

High = 20

Do While High > Low

If ① Then '当只余下两个元素时

If ② Then

Label1.Caption = "拐点元素为" + Str(a(1)) + ",下标为" + Str(1)

Else

Label1.Caption = "拐点元素为" + Str(a(High)) + ",下标为" + Str(High)

End If

Exit Do

End If

If a(m) >= a(Low) Then

Low = m

Else

③

End If

Loop

End Sub

Private Sub Form_Load()

'生成循环递增的数组a，代码略

End Sub

① ② ③

举一反三

【加试题】有如下VB程序段：

Dim a(5) As Integer

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

a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35

i = 1

Do While i < 5

t = i: j = i + 1

Do While j <= 5

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

j = j + 1

Loop

x = a(t): a(t) = a(i): a(i) = x

i = i + 1

Loop

Text1.Text = Str(a(2))

运行该段代码后，文本框Text1中显示的内容为（）

【加试题】插值查找。在有序数组中查找值的VB程序段如下：

Dim a(1 To 10)As Integer

Dim i As Integer，j As Integer，m As Integer，flag As Boolean

Dim key As Integer，n As Integer，C As Integer，d As Integer

i=1：J=10：m=0：flag=False

key=Val(Text1．Text)

Do While i<=J And Not flag

If key<a(i)Or key>a(j)Then n=-1：Exit Do 未找到退出

If a(i) ＜＞a(j) Then

c=key-a(i)：d=a(j)一a(i)

m=i+Int(c*(j-i)／d)

Else

m=i

End If

If key=a(m)Then flag=True：n=m

If key>a(m)Then i=m+1

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

Loop

If flag=False Then n=-1

其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（）

字符加密：用VB编写某字符串加密解密程序(仅针对ASCII码字符) ，其加密过程如下:

首先，分别求出特加密ASCII字符的ASCII码，然后用7位二进制来表示，比如“4”的ASCII码为十进制52，转换为7位二进制为“0110100”

其次，从左至右依次记为第1、2、3....7位，分别把第3、4、5位取反，即0变1， 1变0，至此“0110100”变为“0101000”，将此二进制转换为ASCII码为40，对应的字符为“(”，即“4”经过加密后得到加密字符左括号“(”。

在文本框Text1中输入ASCII字符，单击命令按钮Command，则在文本框Text2中显示经过加密的字符。VB代码如下，程序界面如图所示。

上述加密与解密过程实际上是可以互逆的，请完成下列问题。

有如下VB程序段：

Dim a(1 To 10) As Integer

Private Sub Form_Load()

a(1)=2:a(2)=3:a(3)=3:a(4)=3:a(5)=3

a(6)=6:a(7)=7:a(8)=7:a(9)=8:a(10)=9

End Sub

Private Sub Command1_Click()

Dim key As Integer, i As Integer, j As Integer

Dim m As Integer, p As Integer

key=Val(Text1.Text)

i=1: j=10

Do While i <=j

m=(i+j) \ 2

If a(m)=key Then

p=m

j=m-1

Else If key < a(m) Then

j=m-1

Else

i=m+1

End If

Loop

Text2.Text=Str(p)

End Sub

程序运行时，在文本框Text1中输入3，单击按钮，文本框Text2显示的内容是（）

给定含有n个正整数元素的数组a，将其分成连续的k(1<k≤n)段，有多种分法，每种分法中各段和均有最大值，找出这些最大值中最小的一个并输出。如n的值为5，k的值为3，数组元素a(1)到a(5)依次为“1，2，3，3，1”，其中分法{1，2}{3}{3，1}各段和的最大值为4，比其他分法的最大值小，4就是输出值。寻找最小值的部分代码如下：

a(1)=1：a(2)=2：a(3)=3：a(4)=3：a(5)=1

n=5：k=3

L=3：R=10 ‘L值可以为数组元素最大值，R可以为数组所有元素和

Do While L+1<R

m=(L+R)\2

t=0：s=0

For i=1 To n

If t+a(i)>=m Then

s=s+1

t =a(i)

Else

t =t+a(i)

End If

Next i

If t>0 then s=s+1

If s<=k Then① Else ②

Loop

Label1.Caption=“最小值为”&Str(L)

要使程序实现上述算法思想，则代码中①②处应为（）

某vb程序段如下：

L=1: R=10: n=10: key=78

Do While L<=R

m=Fix((L+R)/2)

If Then

R=m-1

Else

L=m+1

End If

Loop

For i=1 To R

List1.Additem Str(a(i))

Next i

数组元素a(1)到a(10)的值依次为86,78,78,77,73,69,60,54,54,51，若执行该程序段后，列表框List1中输出的数据个数为3，则方框处的代码为（）

相关试卷

公司介绍

服务介绍

帮助中心