题型：综合题 题类：常考题 难易度：普通
浙教版高中信息技术基础模块综合检测卷
（A .Command1_Click B .Form_load C .Text1_Click）事件处理过程中添加语句 Text1. Text=“”。
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
① ②
试题篮
