在Visual Basic中，语句TName.Caption = "2012伦敦"中的TName是

A．对象名

B．属性名

C．属性值

D．事件名

编写“字母出现频率测试”程序，实现如下功能：在文本框 Text1 中输入英文句子，单击“统计”按钮，在列表框 List1 中显示小写字母出现的次数，同时显示字母出现频率最高的次数。程序运行界面如下图所示。

(1)在设计程序界面时，使应使用题16图所示“控件工具箱”中的______（填写相应编号）添加“统计”按钮。
(2)实现“统计”功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
______（1）   
n = Asc（ch2）-Asc(“a”)
If  n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If _____（2） Then  m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub

有如下 VB 程序段：
Dim p As Integer, q As Integer, s As Integer, t As Integer
p = Val(Text1.Text)
t = 0
For q = p+ 1 To 2 * p
s = (p * q) Mod (q - p)
If s = 0 Then
t = t+ 1
End If
Next q
Label1.Caption = Str(t)
该程序段运行时，在文本框T extl中输入8 , 则在标签Labell中显示的内容是（）

A．3

B．4

C．5

D．6

编写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中运行程序，出现“要求对象”的错误，原因是：_______________________。

编写VB程序，实现如下功能：有一个四位数，此数十位上的数字是7，且这个四位数是一个完全平方数，现要找出符合以上要求的所有四位数，并统计共有几个数。单击Command1按钮，将符合要求的四位数显示在列表框List1中，统计个数显示在标签Label2中，界面如第15题图所示。

（1）若要修改窗体背景颜色，可在其属性窗口中______属性的属性值进行修改。
（2）解决这个问题采用的算法是________（填字母：
A.解析算法 
B.枚举算法）
实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, x As Integer, c As Integer
c = 0
For i = 1000 To 9999
x = ①___________
If  ②________ And x = 7 Then
③_____________   '将符合条件的四位数显示在列表框中
num = num + 1
End If
Next i
Label2.Caption = "共有："+ ④______ +"个"
End Sub

在VB中设计了如图1所示的界面，图2为所选对象的属性面板，图3为工程资源管理窗口，以下说法正确的是()

图1    图2 图3
①所选对象名称是Circle，属于Shape类；②该窗体所存储的文件名是“草图．frm”；③该VB工程名是工程1；④所选对象运行时不可见。

A．①②

B．①②③

C．①③④

D．①③

编写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码。

下列能计算Sum =" 1+2/3" +3/5 + …… + 50/99的Visual Basic程序段是

A．Sum = 1 For i =" 1" To 49 Sum =" Sum" + i / (2 * i - 1) Next i

B．Sum = 0 For i =" 1" To 99 Sum =" i" / (2 * i - 1) Next i

C．Sum= 0 i = 1 Do While i <= 50 Sum =" Sum" + i / (2 * i - 1) i =" i" + 1 Loop

D．Sum= 0

i = 1
Do While i <= 50
Sum =" Sum" + i / (2 * i - 1)
Loop

VB程序设计。某微群采用问题验证的加入方式，如下图所示：

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如下图所示，

程序界面和代码编辑窗口如下图所示。

（1）上图所示流程图中采用的算法为____________（填：解析算法 / 枚举算法）。
（2）在上图程序界面所示窗体中，创建label2对象的方法正确的是___________（填字母）。
A．双击工具箱中的“”控件
B．单击工具箱中的“”控件，然后在窗体中按住鼠标左键拖曳
（3）在上图程序界面窗体的标题中显示 “寻找验证问题的答案” 字样，是通过修改该窗体对象的 _________（填：Font / Caption / Top）属性的值实现的。 
（4）上图代码编辑窗口中的VB程序代码在___________（填：加载窗体 / 单击Label2 / 单击Command1）对象时被驱动执行。
（5）徐明在代码编辑窗口中，输入“Label2.”后出现如下图所示的信息, 其中的“BackColor”是Label2的_________（填：事件名 / 对象名 / 属性名）。

（6）下图中VB程序划线处应填写的代码为_____________。

（7） 运行上图中VB程序后，弹出下图所示的出错信息提示，此时程序正执行的语句是 ___________（填字母），改正该错误应修改的语句是____________（填字母）。

A．Dim k As Integer
B．For k = 211000 To 211999
C．Label2.Caption = Str(k)
（8）保存工程后，徐明发现结果文件夹中产生了yzwt.frm、yzwt.vbp、yzwt.vbw三个文件，其中窗体文件是__________。

在VB中，有如下事件处理过程代码：
Private Sub Command1_Click()
Dim s As Double
s = 0
Do While s <> 5
s = s + 2
Loop
Label1.Caption = Str(s)
End Sub
该事件处理过程代码违背了算法特征中的（ ）

A．确定性

B．有穷性

C．有输出

D．有0个或多个输入