某VB程序在调试中弹出如图所示的错误窗口，此时程序正执行的语句是（）

Private Sub Command1_Click ()
Dim a (1 To 5) As Integer
Dim i As Integer
For i =" 1" To 5
a(i) =" i" * i
Next i
List1.AddItem Str (a (i))
End Sub

A．For i =" 1" To 5	B．a (i) =" i" * i
C．Next I	D．List1.AddItem Str (a (i))

编写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-->输入有误!）

在文本框text1中输入一个8位数，单击统计按钮统计各数字出现的个数，并输出出现次数最多的那个。运行效果如图所示：

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的_______属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim n As Long, m As Integer
Dim a(0 To 9) As Integer
n = Val(Text1.Text)
List1.Clear
For i = 0 To 9
a(i) = 0
Next i
Do While n > 0
t = n Mod 10
a(t) = a(t) + 1
①_____________
Loop
m = a(0)
For i = 1 To 9
If a(i) > m Then m = a(i): k = i
List1.AddItem Str(i) & "：" & Str(a(i)) & "个"
Nextｉ
Label2.Caption = "出现最多的数字是：" + ②_______________
End Sub

小明根据如下流程图编写了VB程序，但运行时提示有错，请找出程序中的5个错误，并改正。

（1）错误语句的编号是_______。（2）修改为___________________________。
（2）错误语句的编号是_______。（2）修改为___________________________。
（3）错误语句的编号是_______。（2）修改为___________________________。
（4）错误语句的编号是_______。（2）修改为___________________________。
（5）错误语句的编号是_______。（2）修改为___________________________。

某Visual Basic程序在调试过程中弹出如图所示对话框，产生该错误的可能原因是（  ）

A．该程序代码中，某个过程名书写错误	B．该程序窗体界面中，缺少一个文本框
C．该程序代码中，某个变量或常量没有声明	D．Visual Basic软件没有正确安装