【加试题】对于数组（形如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

① ② ③

举一反三

某商场元月举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如第7题图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。

Dim ID（） As String '用于存放客户卡号

Dim total（） As Long '用于存放积分数

Dim sc As Long 'VIP客户人数

Dim jf As Long '积分数

Private Sub Command1_Click（）

Dim k As String '客户卡号

Dim q As Long '代金券额度

Dim i As Long

k = Text1.Text

For i = 1 To sc ’顺序查找

If ID（i） = k Then

jf = total（i）

cash（jf） = q ’ ①

Exit For

End If

Text2.Text = Str（jf）

Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”

Next i

End If

End Sub

' cash函数用于计算VIP客户可换购的代金券额度

Function cash（jf As Long） As Long

If jf >= 2000 And jf <= 20000 Then

Cash = jf\2000*10

ElseIf jf > 20000 And jf <= 50000 Then

Cash = jf\2000*11

ElseIf jf > 50000 And jf <= 100000 Then

Cash = jf\2000*12

ElseIf jf > 100000 And jf <= 150000 Then

Cash = jf\2000*13

Else jf > 150000 Then ’ ②

Cash = jf\2000*14

End If

End Function

Private Sub Form_Load（）

Dim conn As New ADODB.Connection, rs As New ADODB.Recordset

Dim intSQL As Long

conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"

conn.Open

intSQL = "SELECT score FROM Integral"

Set rs.ActiveConnection = conn

rs.CursorType = adOpenStatic

rs.Open intSQL

sc = 0

Do While Not rs.EOF

sc = sc + 1

total（sc） = rs.Fields（"score"）

rs.MoveNext

Loop

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

End Sub

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …，a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n=n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer

n = Val(Text1.Text)

sum = 0

List1.Clear

For i = 1 To n ' ①

j = i - 1

Do While sum <= n ' ②

j = j + 1

sum = sum + j

Loop

If sum = n Then

List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)

End If

sum = 0

Next i

End Sub

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

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

Const n=6

Flag=False：key=30

For i=1 To n-1

L=i+1：R=n

Do While L<=R And flag=False

m=(L+R)＼2

If d(i)+d(m)<key Then

L=m+1

ElseIf d(i)+d(m)>key Then

R=m-l

Else

Label1.Caption=Str(d(i))+" "+Str(d(m))

flag=True

End If

Loop

Next i

If Not flag Then Label1.Caption=“没有符合条件的数对”

数组元素d（1）到d（6）的值依次为“5，8，13，17，22，25”。则程序段执行后，标签Label1中显示的内容是（）

【加试题】某数据存储算法如下：使用长度为n的一维数组h来存储m个不同整数型数据(m<n)，数据的存储位置t根据存储数据的值除n取余计算得到。例如使用长度为11的数组来存储67，45，1 275，119，145，269，64共7个数据，先存储第1个数据67，67 Mod 11=1，在第1位置上没有数据，则存放在第1位置。第2个数据45，45 Mod 11=1，而在第1位置上已存有数据，那么查找下一位置有没有数据，现第2位置上没有数据，则存放在第2位置。在查找空位时如果到了数组最后一个位置还没有空位，则从头继续查找，以此类推……，举例数据存储结果如表所示。

位置	0	1	2	3	4	5	6	7	8	9	10
数据	64	67	45	145		269				119	1275

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

Key=Val(Text1．Text)

i=1：j=10

flag=False

s=””

Do While i<一i And NOt flag

mid1=Int(i+(j-i)／3)

mid2=Int(j-(i-i)／3)

If Key=a(mid1)Then

flag=True

ElseIf Key<a(mid1) Then

j=mid1-1

ElseIf Key=a(mid2) Then

flag=True

ElseIf Key>a(mid2) Then

j=mid2+1

Else

i=mid1+1

i=mid2-1

End If

s=s&” ”＆ mid1 ＆ “：”& mid2

Loop

Text2．Text=s

已知数组a(1 To 10)中的数据分别是12，21，34．45，59，63，72，86，94，100，在文本框Text1中输入34，程序运行后文本框Text2中显示的内容是（）

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

Dim a(1 To 10) As Integer

Dim i As Integer, j As Integer, m As Integer

Dim key As Integer

i = 1: j = 10: key = Val(Text1.Text)

Do While i <= j

m = (i + j) \ 2

If key < a(m) Then

j = m - 1

ElseIf key > a(m) Then

i = m + 1

Else

Do While m > 1

If a(m - 1) = key Then

m = m - 1

Else

Exit Do

End If

Loop

Exit Do

End If

Loop

数组中a(1)到a(10)依次为“1，1，2，3，3，3，3，4，4，4”，若在文本框Text1中输入值3，经上述程序段执行后变量m的值为（）

相关试卷

公司介绍

服务介绍

帮助中心