某VB程序段如下：
Function f (n As Integer) As Long
If n = 1 Then
f = 5
Else
f= 2*f(n-1) – 3
End If
End Function
Private Sub Command1_click()
Dim n As Integer
n = Val (Text1.Text)
Text2. Text = Str(f(n))
End Sub.
该程序段运行后，在文本框Text1中输入5，单击命令按钮Command1后，文本框Text2中显示的是（ ）

A．18

B．35

C．63

D．123

选择算法，解决问题。
在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。
分析下面的问题，请选择最合适的算法：__________(请用英文字母填写)

A．解析法

B．递归法

C．穷举法

D．排序法

搬砖问题：100块砖，100人搬，一个男人搬4块，一个女人搬3块，两个小儿抬1块，要求一次全搬完。请问需男、女、小儿各多少人?

选择算法，解决问题。
在使用计算机解决问题时，选择合适的算法，是有效解决问题的关键。
分析下面的问题，请选择最合适的算法：_____________（请用英文字母填写）

A．解析法

B．递归法

C．穷举法

D．排序法

猴子吃桃问题：
小猴有一天摘了若干个桃子，他非常贪吃，当天就吃掉了一半还多一个；第二天接着吃剩下的桃子一半多一个；以后每天都是如此，到了第七天吃桃子时，却发现只剩下一个。请问，小猴那天一共摘了几个桃子？

已知一无序数组a中的元素为“90，15，40，72，65，32，81，6”，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为“8，2，4，6，5，3，7，1”，使得a(b(1)≤a(b(2))≤a(b(3))≤......≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
i=1:j=8:c=0
key= Val(Textl. Text)
Do While i<=j

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

t=b(m)

c=c+1

If a(t)=key Then p=t:Exit Do

If a(t)<key Then

i=m+1

Else

j=m-1

End If

Loop
当文本框 Text1中输入的值为32时，程序运行结束后变量c的值为（   ）

A．1

B．2

C．3

D．4

下面程序的功能是:产生20个[1,100]范围内的随机整数，并统计这20个随机数中的整数的个数(重复出现算1个)，结果显示在标签Label1中。例如：5个随机数[10,20,20,31,32]中不重复数字个数为3。程序部分代码如下：
count = 0
For i = 1 To 20
a(i) = Int(Rnd ∗ 100) + 1
Next i
For i = 1 To 20
①   
Next i
For i = 1 To 100
If b(i) <> 0 Then count = count + 1
Next i
Label1.Caption= "不重复数字个数" + Str(count)
为实现上述功能,则程序①处应填入的语句为（   ）

A．b(i)=1

B．b(a(i))=a(b(i))+1

C．b(i)=b(i)+1

D．b(a(i))=b(a(i))+1

编写VB程序，实现如下功能：在文本框Text1中输入一个大于1000的正整数，单击按钮Command1后会去除其中3个数字，保证余下的数字在不改变顺序的情况下其数值最大，然后在文本框Text2中输出该数。

Private Sub Command1_Click()
Dim s As string
Dim n As Integer,w As Integer
s=Text1.Text
For i=1 To 3

n=Len(s):w=1

For j=2 To n

If ________ Then w=j Else Exit For

Next j

s=Mid(s,1,w-1)+Mid(s,w+l,n-w)

Next i
Text2.Text=s
End Sub
画线处的正确代码为（   ）

A．Val(Mid(s,w,1))<=Val(Mid(s,j,1))

B．Val(Mid(s,j,1))<=Val(Mid(s,j+1,1))

C．Val(Mid(s,w,1))>=Val(Mid(s,j,1))

D．Val(Mid(s,j,1))>=Val(Mid(s,j+1,1))

水仙花数是三维整数：其各位数字立方和等于该数本身，如153=1^∧3+5^∧3+3^∧3，如果要求出所有的水仙花数，下列算法最合适的是（）

A．查找法

B．解析法

C．排序法

D．穷举法

在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

（1）由图可知，窗体中的对象共有___________类；
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private Sub Command1_Click()

Dim I,k As Integer

Dim x1,y1,x2,y2 As Single

Dim v As Singie,maxd As Single

Dim s As String,pos zb As String

List1.Clear

s=Text1.Text

x1=1:y1=1

t="":k=1:j=1

List1.AddItem"坐标点"&"距离"

For i=1 To Len(s)

If Mid(s,i,1)="," Then
v=Val(Mid(s,j,i-j))
j=__________
If k Mod 2=1 Then
x2=v
Else
y2=v
d=Sqr((x2-x1)^2+(y2-y1)^2)
If __________ Then
maxd=d
pos="(" & Str(x2)& "," & Str(y2)& ")"
End If
List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)
End If
k=k+1
End If
Next i
Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)
End Sub
（3）若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是_____________。

某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（   ）

A．36

B．53

C．41

D．22