小李有一被污损的保修卡(如图)，客服热线中有一个数字被污损掉了，找出这个数字的适合算法是（   ）

A．枚举算法	B．解析算法
C．对分查找算法	D．递归算法

按下列公式计算银行贷款等额还款的月偿还金额S：

现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框架中输入贷款本金、贷款期限、年利率，单击计算机按钮，在每月偿还本息额文本框中显示S的值。按此要求编写的程序如下，请把带下划线部分所缺的程序段补齐

Private Sub Command1_Click()
Dim x As Long
Dim y As Single
Dim n As Integer
Dim s As Single
x =" Val(Text1.Text)" *     
n =" 12" * Val(Text2.Text)
y =" Val(Combo1.Text)" / 12 / 100 ′月利率为年利率除12
s = 1
For i =" 1" To n
s =" (1" + y) * s
Next
s =
Text4.Text = Str(s)
End Sub
其中，“等额还款”是 (Form/Text/Combo/Command)控件的Caption属性。

有7个人坐在一起，问第七个人多少岁？他说是第6个人年龄2倍小4岁 。问第6个人岁数，他说是第5个人年龄也是2倍小4岁。问第5个人，还说是第4个人年龄2倍小4岁。问第4个人，又说是第3个人年龄2倍小4岁，以此类推。最后问第一个人，他说是5岁。请问第7个人多大？以下是小王同学编写的解决该问题的VB，请把程序补充完整。

Private Sub Command1_Click()
Dim i, year As Integer
Dim a(1 To 8) As Integer
a(1) = 5
For i =  To 7

List1.AddItem"第"+ Str(i)+"个人的年龄为"+Str(a(i))
Next i
End Sub

下列VB程序运行时，单击命令按钮Command1后，文本框显示的内容是
Private Sub Command1_Click()
a = 2
b = 2
Do While a <= 4
a =" a" * b
b =" a" * b
Loop
Text1.Text = Str(a)
Text2.Text = Str(b)
End Sub
Text1中显示 , Text2中显示 。

PM2.5能较长时间悬浮于空气中，其在空气中含量浓度越高，就代表空气污染越严重.当PM2.5值达到178时，输出的P的值为（    ）

A．优良

B．轻度污染

C．中度污染

D．严重污染

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =   （1） To n
If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是    。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

小伟假期同爸爸一起去书店，他选中了七本书，书的总价为175元。小伟爸爸的钱包里有5元8张，10元10张，20元6张，还有一元硬币20个，现在小伟怎么样才能搭配出175元钱买到这七本书,其中,每种货币必须至少要一张（个），请问有几种方法？

Private Sub Command1_click()
Dim x, y, z, m As Integer
Dim c As Integer
c = 0
For x =" 1" To 20
For y =" 1" To 8
For z =" 1" To 10
For m =" 1" To 6
If Then
  
List1.AddItem "第" + Str(c) + "方法:" + Str(x) + Str(y) + Str(z) + Str(m)
End If
Next m
Next z
Next y
Next x
End Sub

打开并修改考生文件夹下“VB”文件夹中的工程文件“paixu.vbp”，使其具有下列功能：点击命令按钮Command1，清除列表框List1和列表框List2的内容，并自动产生三个100~999之间的随机数显示在列表框1中。点击命令按钮Command2，清除列表框List2的原有内容，对产生的随机数进行从大到小排序并显示在列表框List2中，点击命令按钮Command3，清除列表框List2的原有内容，对产生的随机数进行从小到大排序并显示在列表框List2中。程序运行界面如下图所示：

完成下列操作：
1．对照效果图，在窗体的适当位置创建命令按钮Command2，适当修改其大小,设置其Caption属性值为“从大到小排序”。
2．给命令按钮Command2添加合适的事件编码，使之实现上述功能。该事件过程代码从“VB”文件夹下“code.txt”文件中得到。
3．在注释①和②所在行中找出惟一的错误并改正，测试程序，使其实现上述功能。程序调试正确后，生成“paixu.exe”，保存在“VB”文件夹中。
保存窗体文件和工程文件。

萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧明不小心输入密码错误了2次，第3次才正确，那么他的操作流程应该是（   ）

A．①→②→③→①→②→③→①→②→③→④→⑤

B．①→②→③→①→②→③→④→⑤

C．①→②→③→④→⑤

D．①→②→③→④→⑤→⑥

打开并修改考生文件夹下“VB”文件夹中的工程文件“hktest.vbp”，使其具有下列功能：在文本框Text1中输入会考证号，在文本框Text2中输入会考模拟测试成绩；点击“等第判定”按钮，程序根据以下的范围判定该成绩的等第，并给出评价语句；点击“退出”按钮，关闭程序。

成绩	0-59	60-79	80-94	95-100
等第	E	C	B	A

程序运行界面如下图所示：

完成下列操作：
（1）对照效果图，修改窗体相关属性，使标题栏显示的文字为“会考等第判定”。修改窗体BorderStyle属性值，使之与效果图相同。
（2）打开代码窗体，查看注释①和②所在行的语句，修改其中错误的一行，使程序在运行过程中，输入小于0或大于100的数值，能在标签Label3上显示“成绩输入无效，请重新输入！”的提示。
（3）运行程序，发现在文本框Text1输入会考证号与在文本框Text2输入测试成绩并单击命令按钮Command1后，在标签Label3上未能显示判定结果。请在注释③所在的行添加正确的事件代码，实现上述功能。程序调试正确后，删除所有的注释语句，并生成“hktest.exe”，保存在“VB”文件夹中。 保存窗体文件和工程文件。