- 二一组卷

题型：综合题题类：模拟题难易度：普通

浙江省2019年信息技术选考模拟试卷一

编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组a(从小到大排列，并显示在文本框Text2中)中查找该数。若找到，则从数组a中删除该数(该数后面的数组元素都前移一位)，并在文本框Text3中显示删除后的结果；否则，在文本框Text3中显示“该数没有找到!”。运行效果如图所示。

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

Dim a(1 To 20) As Integer ’用于保存n(n<=20)个按从小到大顺序排列的整数

‘Form_Load事件过程产生n个整数，按升序保存在数组a中，并在Text1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim i , j , m , k As Integer

Dim x As Integer，f As Boolean ’变量f用于标记是否在数组中找到x

x = Val(Text2.Text)

i=1 ：j=n : f=False

Do While i<=j And f=False

m = Fix((i＋j)/2)

If a(m)=x Then f=True

If Then i=m＋1 Else j=m－1 ‘(1)

Loop

If f = True Then

For k = m To n-1

‘(2)

Next k

n = n - 1

Text3.Text = ""

For k = 1 To n

Text3.Text = Text3.Text＋Str(a(k))＋","

Next k

Else

Text3.Text = "该数没有找到!"

End If

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴；⑵。

举一反三

【加试题】为破解看病手续烦琐问题，杭州市卫生局、杭州市医疗保险管理服务局、杭州市民卡有限公司推出了“智慧医疗结算”便民服务。持卡人只要在市民卡电子帐户内预充小额费用，就可在医生诊室直接刷卡支付需现金付费的部分。

杭州市民卡是一张集成电路卡，具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。

假设共有100000个市民，市民的卡号、姓名和金额分别存放在数组a、b和数组c中，a(i)是存放第i个市民的卡号，则对应的第i个市民的姓名存放在b(i)中，金额存放在c(i)中。

通过卡号查询其姓名和余额的程序界面如图所示。在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和金额；否则显示“查无此人”。已知卡号按照从小到大排序。请按要求将下列程序补充完整。

Dim a (1 To 100000) As long

Dim b (1 To 100000) As string

Dim c (1 To 100000) As long

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = 100000: f = False 、

Do While i<=j and f=false

①

If x= a(m) Then

f = True

ElseIf x< a(m) Then

j = m - 1

Else

②

End If

Loop

If f=false Then

Label1.Caption =”查无此人”

Else

Label1.Caption = b(i)+ "卡内余额为"+ Str(c(i)) + "元"

End If

End Sub

Private Sub Form_Load()

’ 此过程用于对数组a、b和c进行初始赋值，代码略

End Sub

【加试题】“轮转后有序数组（Rotated Sorted Array）”是将有序数组其中某一个数为分割点，将其之前的所有数都轮转到数组的末尾所得。比如{7，11，13，17，2，3，5}就是一个轮转后的有序数组，原有序数组中的字串{2，3，5}被轮转到了数组的末尾处。

对于一个轮转后有序数组arr也可以进行二分查找，算法思路如下（以升序为例）：每次根据查找的左侧位置L和右侧位置 R 求出中间位置M后，M左边[L，M]和右边

[M+1，R]这两部分中至少一个是有序的（可根据中间位置数据和边界数据的大小关系判断）。

arr[M]和待查找数据key比较

⑴arr[M]=key，返回M的值；

⑵若M位置右侧有序，当待查找数据在右侧，则下次在右侧查找，否则在M左侧查找。

⑶若M位置左侧有序，当待查找数据在左侧，则下次在左侧查找，否则在M右侧查找。

问题：

某对分查找算法的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

j=m-1

Else

i=m+1

End if

Loop

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

给定含有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)

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

幻方是一种将数字安排在正方形格子中，使每行、列和对角线上的数字和都相等的方法。n阶幻方是由1~n²之间的自然数组成的一个n阶方阵，其各行、各列及对角线所含的数字之和均相等。例如3阶幻方(如图1)，幻和为15。

奇数阶幻方的构造是所有幻方中最简单的，可以按照如下规则来实现：

⑴将1放在第一行中间一列；(如图2)

⑵从2开始直到n*n为止，各数按下列规则存放：

假设当前要存放的数为k，则k存放在k-1)数的右上方并按照规则

①若(k-1)放在第1行且不是最后一列，则将k存放在n行，(k-1)所在列右侧；(如图3)

②若(k-1)放在第n列且不是第一行，则将k存放在第1列，k-1)的上1行；(如图4)

③若(k-1)即不在第1行也不在最后1列：

若(k-1)右上方有数，则将k放在(k-1)的下1行的同一列。(如图5)

若(k-1)右上方没有数，则将k放在(k-1)的右上方；(如图6)

④若(k-1)在第1行第n列，将k填在(k-1)的正下方(如图7)

如果数组a(下标1到n)满足a(1)≤a(2)≤…≤a(i-1)≤a(i)≥a(i+1)≥…≥a(n)，则称数组a是单峰的，并称a(i)是数组a的“峰顶”。下列程序段用于查找数组a中的“峰顶”，并返回该“峰顶”值。

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

M=(L+R)＼2

If a(M) <a(M-1) And a(M) >a(M+1) Then

①

ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

②

ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

③

End If

End Function

Private Sub Command 1 click()

Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（）

相关试卷

公司介绍

服务介绍

帮助中心