查找算法及程序实现题库

由于交通日益拥堵，某市对车辆实施限行政策，即根据车牌最后一位数字进行限行判断，双号则奇数日期限行，单号的偶数日期限行。如车牌号“浙A53350”，末位数字为0，则奇数日期限行，如车牌号“浙A5335B”，末位数字为5，则偶数日期限行。现有一VB程序用来查询限行情况，软件界面如图，在文本框Text1中输入车牌号，单击“判断”按钮Command1，并在文本框Text2中显示限行情况。

“查询”按钮Command1的单击事件处理过程如下：
Private Sub Command1_Click()
Dim i As Integer, n As Integer　'变量n保存车牌的最末位数字
Dim cp As String, c As String
cp=Text1.Text
For i=7 To 3 Step -1

c=Mid(cp, i, 1)

If　　　　①　　　　Then

n=Val(c)
If 　　　　②　　　　 Then
Text2.Text=″奇数日期限行″
Else
Text2.Text=″偶数日期限行″
End If
i=2

End If

Next i
End Sub
在程序划线处填写适当的表达式或语句,以实现程序功能。
程序中①划线处应填入________________________。
程序中②划线处应填入________________________。

当前题号：1 | 题型：填空题 | 难度：0.99

查看解析收藏

有如下程序段：
s = "defghiabc"
key = Text1.Text
i = 1: j = Len(s)
Do While i <= j

m = (i + j) \ 2

c = Mid(s, m, 1)

If c = key Then Exit Do

If Mid(s, i, 1) < c Then

If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1

Else

If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1

End If

ans = ans + Str(m)

Loop
运行程序后，若在文本框 Text1 中输入字符"b"，则变量 ans 的值是（）

A．5

B．5 7 8

C．5 3

D．5 7

当前题号：2 | 题型：选择题 | 难度：0.99

查看解析收藏

编写“提取数字”程序，实现如下功能：在文本框Text1中输入文本信息，点击“提取”按钮Command1，将文本信息中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图所示。

（1）观察界面，程序中未使用到的控件是_____（填字母：

A．

/

B．

/

C．

/

D．

）

（2）根据题意，请将划线处代码补充完整。

Private Sub Command1_Click()

Dim zf As String, tmp As String
Dim s As String, i As Integer, ch As String
__________________
tmp = ""
s = ""
For i = 1 To Len(zf)
ch = Mid(zf, i, 1)
If ch >= "0" And ch <= "9" Then
_______________
ElseIf tmp <> "" Then
s = s + tmp + ","
tmp = ""
End If
Next i

Text2.Text = s

End Sub

（3）当输入的文本信息如图所示，若删除加框代码，则文本框Text2中显示的内容为______。

当前题号：3 | 题型：填空题 | 难度：0.99

查看解析收藏

查找最大的ASCII码字符。随机生成n（n>=40）个可见ASCII码的字符串（可见字符ASCII码的范围是33~126），并显示在文本框Text1中。单击“查找”按钮运行程序，在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示，VB代码如下。请回答下列问题：

（1）要使程序运行时，窗体Form1标题显示“查找ASCII最大的字符”，则需在Form_Load事件过程中添加语句________（单选，填字母：

A．Form1.Text="查找ASCII最大的字符" /

B．Form1.Caption=
"查找ASCII最大的字符"/

C．Form1.AddItem "查找ASCII最大的字符"）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 40
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, max As Integer
s = Text1.Text
max = 0
For i = 1 To Len(s)
ch = ____________
If Asc(ch) > max Then max = Asc(ch)
Next i
Label1.Caption = "最大ASCII码:" + _______ + " 该字符为:" + Chr(max)
End Sub
Private Sub Form_Load() ’随机生成可见字符并显示在文本框Text1中
Randomize
For i = 1 To n
Text1.Text = Text1.Text + _______________
Next i
End Sub

当前题号：4 | 题型：填空题 | 难度：0.99

查看解析收藏

某对分查找算法的 VB 程序段如下：
i=1:j=8:s=""
key=Text1.Text
Do While i<=j
m=(i+j)\2
If key=a(m) Then
s=s+"M"
Exit Do
Elseif Key >a(m) Then
　　j=m-1:s=s+"L"
Else
i=m+1: s=s+"R" End if
Loop Text1.Text=s
数组元素 a(1)到 a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框 Text1 中显示的内容不可能是（）

A．RLM

B．LR

C．RM

D．LM

当前题号：5 | 题型：选择题 | 难度：0.99

查看解析收藏

某对分查找算法的 VB 程序段如下：
i= 1 : j= 8 : t= 0 key=Int(Rnd()*7)+14
Do While i<=j
m=Int((i+j)/2)
t=t+1
if a(m)=key Then Exit Do
else
If a(m)>key Then j=m-1
Else

i=m+1 End if

End if
Loop
数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量 t 的最大值可能是（）

A．1

B．2

C．3

D．4

当前题号：6 | 题型：选择题 | 难度：0.99

查看解析收藏

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