某简单计算器功能如下：在文本框Text1中输入一个加减算式，点击“计算”按钮Command1，计算结果在标签Label3上显示，同时在列表框List1中记录每次算式及结果。已知文本框Text1只包含正整数和“+”、“-”符号，同时以“=”结束。程序运行界面如图a所示，请回答下列问题。

（1）设计应用程序界面时，为添加“计算”按钮，应使用图b所示“控件工具箱”中的

4

4

（填写相应编号）控件，并在图c所示的“属性窗口”中，将

Caption

Caption

属性的值设置为“计算”。
（2）要实现程序运行时，单击文本框Text1即可将文本框清空，则应在

B

B

（选填字母：A．Command1_Click （　　）/B．Text1_Click （　　）/C．Form_Load （　　））过程中添加语句Text1．Text=““。
（3）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1_Click

（　　）

（　　）

Dim s As String,ch As String
Dim fh As Integer,p As Integer,sum As Integer
s=Text1．Text：fh=1：p=0：sum=0
For i=1To Len（s）
ch=Mid（s,i,1）
If ①

ch＞=“0“Andch＜=“9“

ch＞=“0“Andch＜=“9“

 Then'判断取出的字符是否为数字
p=p*10+Val（ch）
Else
sum=sum+p*fh
p=0
If ch=“-“Then
②

fh=-1

fh=-1

ElseIf ch=“+“Then
fh=1
End If
End If
Next i
Label3．Caption=Str（sum）
List1．AddItem ③

s&“=“&Str（sum）

s&“=“&Str（sum）

End Sub
（4）运行程序，在文本框Text1中输入“5+5-2”，单击“计算“按钮后，标签Label3上将显示：

A

A

。（选填字母：A．10/B．8/C．程序出错无法显示）。