萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过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”文件夹中。 保存窗体文件和工程文件。

下列Visual Basic程序的功能是输入身高（l/cm）和体重(k/kg)来测试你的身材是否符合标准。
Private Sub Command1_Click()
Dim l, k, BMI As Single
l =" Val(Text2.Text)" / 100
k =" Val(Text3.Text)" '
BMI =" k" / (l * l)
If BMI < 18.5 Then
Text1.Text = "太瘦了"
ElseIf BMI >=" 25" Then
Text1.Text = "偏胖"
Else
Text1.Text = "非常标准"
End If
End Sub
运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是（   ）

A．太瘦了

B．偏胖

C．非常标准

D．超出范围

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，程序中划线处的语句应更正为______   __________
X=0
For i="1" to 10 step 2
If i mod 2=0  then x=x+i
Next i

依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等0.3mg/ml 驾驶机动车的属酒后驾车；大于或等于1.0mg/ml 驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。
解决此问题的流程图如图所示，
 
（1）该算法属于  （填：顺序/选择/循环）结构
（2）要在窗体Form1的标题栏内显示字符串“酒精测试”，需要更改的是 属性（填：name/caption/text）

（3）根据流程图编写的VB程序如下：
Private Sub Command1_Click( )
Dim x As Single
x =  Val(Text1.Text)  
If    ①   Then
Label2.Caption = "你属于醉酒驾车!"
 ②  x >=" 0.3" Then
Label2.Caption = "你属于酒后驾车!"
Else 
  ③  
End If   
End Sub
则划线处填入的语句为①  ②     ③ 。

一个程序功能如下：单击开始按钮，每隔1秒产生一个[1,100]的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。

程序代码如下：
Dim m As Integer  'm 为模块级变量，用于记录随机数个数
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim n As Integer
①
If ②     Then  
List1.AddItem n
Else
List2.AddItem n  
End If
m =" m" + 1  
If m =" 20" Then ③  
End Sub
在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。
程序中③划线处应填入___________________。

已知有一组数据2, 3, 6, 9, 10, 17, 22, 25排列，若要对分查找数值22，需要查找3次，这3次查找中依次找到的数据是（    ）。

A．10 17 22

B．9 10 22

C．10 25 22

D．9 17 22

以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）

A．穷举法、公式法	B．循环法、递归法
C．查找法、函数法	D．枚举法、解析法

解决上问题所用的算法是:（    ）

A．枚举法

B．解析法

C．顺序查找

D．选择法

（一）顺序查找数据：我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据(这个数据称为查找键)已经存储在变量key中。
下面是顺序查找算法的输入输出说明。
输入：查找键(设在变量key中)。 被查找的数据(设在数组变量d中)。
输出：若找到，输出值为key的数据所在的数组元素的下标，记为i；
若未找到，输出结果为提示字符串："找不到"。
当在n=8个元素的数组里顺序查找数据的示意图如下：

找到情况   未找到情况
总结顺序查找数据结果判断条件：
(1)、 当找到时，肯定i<="8," n个数据时，肯定i<=n，i即为找到的数组元素下标，d(i)=key；
(2)、 当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。 
顺序查找的主程序段如下：
Private Sub 顺序查找_Click()
n个数据放入d(1)到d(n)中
Key =" Val(Text1.Text):" i =___1___‘变量Key从文本框Text1取的数要查找的数；
Do While    ① 
i =" i" + 1
Loop
If i <=" n" Then
Text2.Text = "在d(" + Str(i) + ")中"  ‘例如在文本框Text2显示：“在d(6)中”
Else
Text2.Text = "找不到"
End If
End Sub
上程序Do While的条件 ① 是（ ）

A．Key <> d（i）

B．i <= n

C．Key <> d(i) And i <= n

D．Key <> d(i) or i <= n