小李利用所学的VB知识,编写了一个简单计算器:在文本框 Text1 中输入一个加减算式(只包含数字和“ +”、“ -”符号,以“ =”结束),点击“计算”按钮 Command1,计算结果在标签 Label1 上显示。程序运行界面如下图所示:
(1)
要实现程序运行时,单击文本框 Text1 即可将文本框清空 , 则应在(A .
Command1_Click/B . Form_Load/C . Text1_Click)事件处理过程中添加语句Text1.text=“”)。
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码
Private Sub Command1_Click
Dim s As String, ch As String,
sum As Integer
Dim fh As Integer
s = Text1.Text: fh = 1: p = 0:
sum=0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0"
And ch <= "9" Then
p =
Else
sum =
p = 0
If ch = "-"
Then
fh = -1
ElseIf ch =
"+" Then
fh = 1
End If
End If
Next i
Label1.Caption = Str(sum)
End Sub
(3)
若文本框 Text1 中输入的内容为“ 12*10=”(不包括双引号),单击“计算”按钮后,标签Label1 上将显示:(A . 120 / B . 22 / C . 0 /D .程序出错无法显示)
答案: 【1】C
【1】P*10+val(ch)【2】sum+fh*p
【1】B