下列属于程序设计语言的是（  ）。

A．ACDSee

B．VisualBasic

C．WinRAR

D．Premiere

小刚的支付宝账户密码忘记了，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；
②最后两位数字相同；
③能被12和38整除。
程序界面如图所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。


（1）应用程序界面设计时，添加“list1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的______________（填写相应编号）
（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )   
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ________①________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
_________②______     
End If
End If
Next i
End Sub

编写VB程序，实现如下功能：在文本框Text1中输入某一年份，单击“天干地支与生肖”按钮Command1，在列表框List1中输出该年份开始的12个年份及对应的“天干地支”与“生肖”，运行界面如图所示，程序代码如下。

（1）代码“Private Sub Command1_Click()”中的Click是 。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, n As Integer
Dim c1 As String, s1 As String
Dim c2 As String, s2 As String
Dim c3 As String, s3 As String
List1.Clear
s1 = "甲乙丙丁戊己庚辛壬癸"
s2 = "子丑寅卯辰巳午未申酉戌亥"
s3 = "鼠牛虎兔龙蛇马羊猴鸡狗猪"
n = Val(Text1.Text)
For i =" n" To ①  
a =" (i" + 6) Mod 10
b =" (i" + 8) Mod 12
c1 =" Mid(s1," a + 1, 1)
c2 =" Mid(s2," b + 1, 1)
c3 =" Mid(s3," b + 1, 1)
List1.AddItem     ②  + "年" + c1 + c2 + " " + c3
Next i
End Sub
（3）由上述算法可知，2024年对应的“天干地支”为 。

输入两个在 1 和 9 之间的正整数 a 和 n ，求 a+aa+aaa+aaaa+…+a…a（n 个 a）之和｡为解决该问题，小明设计了一个 VB程序，在文本框 Text1 中输入 a 的值，在文本框 Text2 中输入 n的值，单击“计算”按钮 Command1，在列表框 List1 中输出每次相加的等式和结果，界面如图所示｡

（1）要使程序运行时，文本框 Text1 的文字大小 FontSize 属性值设置为 12，可在 Form_Load 事件过程中添加语句__________________（单选，填字母：

A．FontSize = 12 /

B．Text1. FontSize =12 /

C．FontSize. Text1=12）｡

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码｡
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i =  ①__________ 
Do While i <= n
②__________ 
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub

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三个文件，其中窗体文件是__________。