- 二一组卷

题型：单选题题类：常考题难易度：普通

教科版高中信息技术选修一对分查找变式

用对分查找的方法求不等式2x+3x-5≤n(n≥0)的最大正整数解，编写的VB程序段如下：

Private Sub Command1_Click( )

Dim L As Integer, R As Integer,n As Integer

x As Integer

n=Val(Text1.Text)

L=1

R=n+1

Do While

x=(L+R)\2

if 2^X+3*x-5<=n Then L=x+1

Else R=x-1

Loop

Label1.Cption=“方程2^X+3*x-5<=n的最大正整数解为：”+

End Sub

要使程序实现上述算法思想，则方框上的语句是（）

A、①L<R ②Str(L) B、①L<R ②Str(R) C、①L<=R ②Str(L) D、①L<=R ②Str(R)

举一反三

【加试题】某单位会员储值卡查询系统具有如下功能：输入会员卡号，即可查出该卡号对应的余额。所有会员卡号和相应的余额已分别保存在数组kh和数组ye中，第i个会员的卡号保存在kh(i)中，对应卡号的余额保存在ye(i)中，卡号从小到大排序。

程序运行界面如图所示，左边列表框List1中显示的是会员卡号和余额，在文本框Text1中输入会员卡号，单击"查询余额"按钮（Command1）后，如果找到此卡号，则在标签Label2中显示"此卡号余额为"和卡号对应的余额值，如果未找到则显示"找不到此卡号，请重新输入"。

解决此问题的部分程序段如下：

Dim kh (1 To n) As Long

Dim ye (1 To n) As Single

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 = n: f = False ‘ 设卡号总数为n

Do While ①

②

If x = kh (m) Then

f = True

ElseIf x < kh (m) Then

j = m - 1

Else

③

End If

Loop

If f Then

Label2.Caption = "此卡号余额为" + Str(ye(m)) + "元"

Else

Label2.Caption = "找不到此卡号，请重新输入"

End If

End Sub

Private Sub Form_Load()

’此过程用于对数组kh和数组ye进行初始赋值，代码略

End Sub

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

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

【加试题】插值查找。在有序数组中查找值的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程序段：

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

c = c + 1

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

If key = a(m) Then f = True

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

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（）

【加试题】删数问题。输入一个数字串s，删去其中k个数字(k<数字串中数字的个数)，使剩余数字在保持相对位置不变的情况下构成一个值最小的整数。例如，s=“19990608”，k=4,处理结果为：608。

删数的算法如下：

⑴如果k>0,则从前往后检测相邻字符，否则，转⑶；

⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴；

②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴；

⑶去掉串首的0，输出结果。

按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。

某对分查找算法的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中输入待查找的数，执行该程序段后，下列说法错误的是( )

相关试卷

公司介绍

服务介绍

帮助中心