小明的支付宝帐号密码忘记了，但他还零星记得有关于密码的一些信息：
①密码是八位数字，前两位为19
②最后两位数字是91
③能被77和133整除
程序界面如图所示，单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应的程序如下：
Private Sub Command1_Click()
Dim i As Long, s As Long
For i = 0 To 9999
s = _____①______ 's表示该八位数密码
If  ② Then   '符合密码的条件，s能被77和133整除
List1.AddItem Str(s)
End If
Next i
End Sub
（1）在应用程序界面设计时，添加“List1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的【小题1】（填写相应的编号）。
（2）将窗体Form1上显示的文本“Form1”改为“寻找密码”，可在其属性窗口中将属性【小题2】的属性值修改为“寻找密码”。
（3）解决此问题的算法是【小题3】。（填：枚举算法/解析算法/查找算法）
（4）在程序①和②下划线处，填入适当的语句或表达式，把程序补充完整：
程序中①下划线处应填入【小题4】
程序中②下划线处应填入【小题5】

有如下VB程序段：

执行该程序段后，文本框Text1显示的内容是（ ）

A．okaus

B．suako

C．okus

D．suko

有如下VB程序段:
Dim a(1 to 5) as Integer, i as Integer, c as Integer
a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5
c = 0
For I = 3 to 5
If a(i - 2) + a(i - 1) = a(i) Then c = c + 1
Next i
Text1.Text = Str(c)
该程序运行后,文本框text1中显示的内容是（　　）

A．1

B．2

C．3

D．4

对称字符串的特征是从左到右读和从右到左读是完全一样的。如“abba”是对称的，“abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n=Len(s) 's是待判断的字符串
k=0:j=n
For i=1 to n/2
 
Next i
If  k=0  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"
方框中的代码由以下三部分组成：
①j=j-1
②If c1 <> c2 Then k = k+1
③c1=Mid(s,i,1) : c2=Mid(s,j,1)
代码顺序正确的选项是（　　）

A．①②③

B．②③①

C．③②①

D．②①③

用 VB 编写统计某字母开头的单词个数的程序。程序功能：在文本框 Text1 中输入待统计的句子，在文本框 Text2 中输入某字母，单击“统计”按钮Command1后，将结果显示在Label3中。输入要求：句子以“.”结束；单词之间用空格分隔，单词没有缩写或其他特殊形式。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, n As Integer,b As Integer
Dim c As String, t As String, s As String, f As Boolean
s = Text1.Text
t = Text2.Text
b = Len(s)
f = True
For i = 1 To b
c = Mid(s, i, 1)
If  ① Then
n = n + 1
② 
ElseIf c = " " Or c = "." Then
③          
Else
f = False
End If
Next i
Label3.Caption = "以" + t + "为开头的单词个数：" + Str(n)
End Sub
为实现上述程序，空格处应填入的代码是（   ）

A．① f And c = t ② f = False     ③ f = True

B．① f = False And c = t   ② f = False     ③ f = True

C．① c = t     ② f = True   ③ f = False

D．① f = True And c = t   ② f = True ③ f = False

用 VB 程序编写了一个找最大值的程序，程序功能：在文本框中输入数字串（数据间用逗号分隔，以数字开头，逗号结尾），单击“寻找”按钮 Command1 后，在 Label3中输出最大的数值。程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, max As Integer, j As Integer
Dim s As String, c As String, t As String
s = Text1.Text
i = 1 : j = 1
max = 0 : t = ""
Do While j <= Len(s)
c = Mid(s, j, 1)

If c = "," Then

t = Mid(s, i, j - i)
If Val(t) > max Then max = Val(t)
①
End If
②     
Loop
Label3.Caption = Str(max)
End Sub
将划线处代码补充完成，正确的是（ ）

A．① i=i+1   ② j=j+1	B．① i=j+1   ② j=j+1
C．① j=j+1   ② i=i+1	D．① j=i+1   ② i=i+1

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

 Dim i As Integer, m As Integer, n As Integer

    Label1.Caption = "1000以内的完全数如下："

    For i = 1 To 1000

n = 0

For m = 1 To i \ 2

   If i Mod m = 0 Then n = n + m

Next

If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

    Next

End Sub

该过程采用的算法是（   ）

A．枚举

B．查找

C．排序

D．解析

小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click  
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text 
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch =     ①   
If ch = c Then
n =     ②
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =    ③  
End Sub
（1）代码“Private Sub Command1_Click”中的Click是________ 。（单选：填字母：

A．对象名/

B．属性名/

C．事件名）

（2）以上程序段运行时，为了实现上述功能，划线处①②③应填入的代码分别为： 
①______________________；②______________；③____________________ 

用户注册某APP时，密码有如下要求：至少为8个字符，并且必须含有数字和字母。小林编写了一个VB程序，对用户设定的密码进行合法性验证，如图所示。在文本框Text1中输入密码字符串s，单击“验证”按钮，在标签Label1中显示验证结果“符合要求”或“不符合要求”。

(1)实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmdjudge_Click()   
Dim a1 As Integer, a2 As Integer, flag As Boolean
Dim s As String, c As String, i As Integer, n As Integer
a1=0：a2=0：flag=False
s = Text1.Text
i=1
___________
Do While i<= n And Not flag

c = Mid(s, i, l)

If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then

a1=1

ElseIf c >= "0" And c <= "9" Then

a2 = 1

End If

If _________ Then flag = True

i = i+1

Loop
If flag=True And n>=8 Then
Label1. Caption=“符合要求”
Else
Label1. Caption=“不符合要求”
End Sub
(2)代码“Private Sub Cmdjudge_Click()”中的“Cmdjudge”是__________．(单选，填字母：

A．过程名 /

B．属性名/

C．事件名/

D．对象名)

(3)运行该程序，在文本框Text1中输入“Wd6b$ksss”单击“统计”按钮后，语句c=Mid(s, i, 1)共执行了__________次。

为了安排寝室，需要将学生按性别分类。小陈设计了一个VB程序，运行该程序，单击“数据导入”按钮Command1后，左侧列表框List1中显示40位学生的编号和性别；然后单击“数据处理”按钮Command2，中间列表框List2中显示所有女生的信息，右侧列表框List3中显示所有男生的信息，并在相应的列表框下方显示人数。运行结果如下图所示。

实现上述功能的VB程序段如下，分析回答下列问题。
Dim a(1 To 40) As String  '数组a用于存储学生编号
Dim b(1 To 40) As String   '数组b用于存储学生性别
Private Sub Command1_Click
Dim i As Integer
List1.Clear
List2.Clear
List3.Clear
'在列表框List1中显示40位学生的编号和性别
For i＝1 To 40
.AddItem a(i)＋” ”＋b(i) ①
Next i
End Sub
Private Sub Command2_Click
Dim n As Integer   '用于存储女生人数
Dim m As Integer   '用于存储男生人数
Dim i As Integer
List2.Clear
List3.Clear
n＝0: m＝0
For i＝1 To 40
If  b(i)＝”女”  Then
List2.AddItem a(i)    '在列表框List2中显示女生信息
n＝n＋1
Else
List3.AddItem a(i)    '在列表框List3中显示男生信息

②
End If
Next i
Label1.Caption＝”女生人数：”＋Str(n)
Label2.Caption＝”男生人数：”＋Str(m)
End Sub
(1)小陈将学生的编号和性别分别存放在数组a和数组b中，这段代码书写在窗体的加载事件中，下列属于该事件的是（____）

A．Form_Click	B．Command1_Click
C．Form_Load	D．Form_Unload

(2)①和②加边框处分别有误，根据题意修改源代码，①处应修改为________，②处应修改为__________