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

编写VB程序，实现如下功能：在文本框Text1中输入十六进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十进制数，运行界面如图所示，程序代码如下。

（1）要调整Label1中的字体大小，可选择在属性面板中设置Label1的    。（单选，填字母：A.Caption / B.Font /

A．Height）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, c As String, t As String
Dim i As Integer, b As Integer, ans As Long
Dim flag As Boolean
s =    ①
b = Len(s)
flag = True
ans = 0
For i =" 1" To b
c =" Mid(s," i, 1)
If c >= "0" And c <= "9" Then
ans =" ans" * 16 + Asc(c) - Asc("0")
ElseIf c >= "A" And c <= "F" Then
ans =" ans" * 16 +  ②
Else
③   '输入情况有误
Exit For
End If
Next i
If flag Then t =" Str(ans)" Else t ="输入有误!"
List1.AddItem s + "-->" + t
End Sub
（3）由上述算法可知，运行时在Text1框中输入“d8”，列表框List1中添加的条目为 。（单选，填字母：A. d8-->216/ B. d8-->输入有误!）

一个漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（）

A．对象，属性，事件，方法	B．对象，属性，方法，事件
C．属性，对象，方法，事件	D．属性，对象，事件，方法

下列不属于高级程序设计语言的是（    ）

A．Frontpage

B．C语言

C．Visual Basic

D．Pascal

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