小李利用所学的VB知识,编写了一个简单计算器:在文本框Text1中输入一个加减算式(只包含数字和“+”“一”符号,以“=”结束),点击“计算”按钮 Command1,计算结果在标签 Label上显示,程序运行界面如图所示。
(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
Elself ch ="+" Then
fh=1
End If
End If
Next i
Labell. 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