某 VB 程序代码如下：
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b = 3.14 * a ^ 2
Text2.Text = "圆面积为：" + b
End Sub
在 Text1 中输入 3，单击命令按钮 Command1 后，将会出现的提示信息是：（   ）

A．类型不匹配	B．溢出
C．无效的过程调用或参数	D．未找到方法或数据成员

在保存“VB五子棋”应用程序时，下列文件中属于工程文件的是（ ）

A．

B．

C．

D．

小明在VB可视化开发环境中，做出了如图所示的窗口界面，由图中我们知道他在该窗口中没有使用到的控件对象是（   

A．

B．

C．

D．

有关下列语句说法不正确的是（   ）
① If a="b=c" Then  Msgbox(“这三个数相等”)  Else  Msgbox(“这三个数不相等”) 
②赋值语句 a=b>c
③赋值语句 a+b=c
④ Msgbox  (a+b=c)

A．语句①能运行，但逻辑上有错误

B．语句②能运行，且无任何逻辑错误

C．语句③不能运行

D．语句④不能运行

编写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 10
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年对应的“天干地支”为 ，“生肖”是 。