这是一个可以计算十六进制各位数之和的VB程序，功能如下：在文本框Text1中输入一个十六进制数n，将计算结果显示在Label1上。程序界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim n As String, m as string
Dim s As Integer, i As Integer
n=Text1.Text
n=ucase(n) ’n中的字母转为大写
   ①
m = Mid(n, i, 1)
If m >= "0" And m <= "9" Then
s = s + Val(m)
ElseIf  m>=”A” And m<=”F”  Then
s = s +   ②
Else
Msgbox(“输入数据有误，请输入一个十六进制数！”)
Exit Sub
End If
Next i
Label2.Caption = "各位数和为：" + Str(s)
End Sub
（1）代码“Private Sub Command1_Click()”中的Command1_Click()是________ （选填：

A．属性名

B．对象名

C．事件处理过程名 ）；

（2）请在划线处填入合适代码①____________________    ②____________________；
（3）程序运行，在Text1中无论输入“5A0D”，在label1中显示的内容为______________。

小明想利用VB设计一个投骰子的程序，骰子有六面，可以用数字1至6表示，则产生骰子某一面的表达式为（）

A．Rnd*6+1

B．Int(Rnd(6)+1)

C．Int(Rnd*6)+1

D．Int(Rnd()*6)

小王编写了一个进制转换程序，实现如下功能：在文本框 Text1 中输入一个二进制数，单击 “计算”按钮 Command1，在文本框 Text2 中将显示出其对应的十六进制数。程序运行界面如下图所示：

（1）要使程序启动时，自动清空文本框的 Text1 中的内容，则可以在______（单选，填字母：

A．Command1_click /

B．Text1_click /

C．Form_load）事件处理过程中添加语句 Text1.Text= ""

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Private Sub Command1_Click（）
Dim s As String, s1 As String, t As Integer, c As Integer Const code = "0123456789ABCDEF"
s = Text1.Text
t = 0: s1 = ""
For i = Len(s) To 1 Step -1
c = Val(Mid(s, i, 1))
t = t + c * 2 ^ ((Len(s) - i) Mod 4)
If (Len(s) - i + 1) Mod 4 = 0 Or ①_______________Then
______________②
t = 0
End If
Next i
Text2.Text = s1
End sub
（3）如果没有第①处划线部分的条件，当输入的二进制数为 1101011，则 Text2 中显示的内容为________。

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)