编写VB程序，实现如下功能：在文本框Text1中输入包含数字、字母、符号等的字符串，单击“统计”按钮Cmd_1，统计该字符串中数字字符的个数，并在标签Label1中输出结果。界面如图所示。
（1）在设计界面时，应使用右图所示“控件工具箱”中的_____（填写相应编号）添加“统计”按钮。

（2）为实现上述功能，请在处填入合适代码。
Private Sub Command1_Click()
Dim s As String, c As String
Dim i As Integer, n As Integer, num As Integer
s = Text1.Text: num = 0
n =  ①___________
i = 1
Do While i <= n
c = Mid(s, i, 1)
If ②_____________ Then
num = num + 1
End If
i = i + 1
③_______
Label1.Caption = Str(num)
End Sub
（3）在VB中运行程序，出现“要求对象”的错误，原因是：_______________________。

下列关于对象的描述中，错误的是(    )

A．对象的属性用于描述对象的状态

B．对象的属性与方法可以有多个

C．对象事件的发生会驱动该对象相应事件处理过程的执行

D．对象的属性值只能在属性窗口中设置

编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文（每个明文字母对应1个不重复的密文字母）。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文,并在文本框Text2中显示对应密文（运行效果如图所示）。实现上述功能的VB代码如下：

Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer,t As Integer
Randomize
num = 1
Text3.Text = " "
For i =" 1" To 26
flag(i) = False
Next i
Do While num <= 26
x =" Int(Rnd" * 26) + 97
  ①
If  flag(t) =" False" Then
m2 =" m2" + Chr(x)
num =" num" + 1
② 
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String， m As String， result As String
Dim k As String， c As Integer
s = Text1.Text
m = "abcdefghijklmnopqrstuvwxyz"
For i =" 1" To Len(s)
k =" Mid(s," i, 1)
If  k >= "A" And k <= "Z"  Then
k =" Chr(Asc(k)" + 32)
End If
c =" 1:" continue = True
Do While③  
If k =" Mid(m," c, 1) Then
continue = False
End If
c =" c" + 1
Loop
④ 
Next i
Text2.Text = result
End Sub
程序①处的代码是
程序②处的代码是
程序③处的代码是
程序④处的代码是   

VB中窗体文件的扩展名为(   )

A．.vbp

B．.frm

C．.bas

D．.ds

编写VB程序，实现如下功能：程序运行时，在文本框Text1中输入任意字符串，单击按钮Command1，删除字符串中的非字母后，新字符串显示在Text2中，并找出ASCII码最小的字母，将其ASCII码显示在Text3中。程序运行界面如下图所示。

(1)将命令按钮Command1中显示的文本“Command1”修改为“查找”，可在其属性窗口中将___________属性的属性值改为“查找”。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim result As String, s As String, c As String
Dim n As Integer, i As Integer, j As Integer
s = Text1.Text
Text2.Text = ""
For i = 1 To Len(s)
①___________
If n >= 65 And n <= 90 Or n >= 97 And n <= 122 Then
②________
End If
Next i
Text2.Text = result
j = 2
c = Mid(result, 1, 1)
Do While j <= Len(result)
If Mid(result, j, 1) < c Then c = Mid(result, j, 1)
③________
Loop
Text3.Text = ④______
（3）如图所示，在文本框Text3中的ASCII码是Text2中第____个字符的ASCII码。