题型：综合题 题类：模拟题 难易度：困难
浙江省十校联盟2018年3月适应性考试信息技术试卷
1)若是运算符“+”或“-”保存该位置并结束查找。
2)若是第一次碰到“*”或“/”，保存该位置，若不是第一次碰到“*”或“/”，继续往左边查找。
3)若是“）”，调用函数找到和它对应的“（”位置，跳过该括号，继续往左查找。
4)若是非运算符，继续往左查找。
运行界面如下图：
实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Function find(y As String , x As Integer ) As Integer
’该函数的功能是：返回表达式 y 中和位于第 x 位置的“）”配对的“（”的位置，代码略
End Function
Private Sub Commandl _ Click ()
Dim s As String , t As Integer , temp As Integer , p As Integer
s = Text1. Text ‘输入表达式
t = Len (s):p = 0
Do While t>0
If Mid ( s, t , 1) =“*” Or Mid ( s, t , 1) =“-” Then ‘处理+、-
temp=t
Exit Do
End If
If 
① Then 处理 *、/
temp = t
P=1 ‘用来标记乘号或除号已经出现了
End If
If Mid(s, t, 1)= ")" Then ‘处理括号
②
End If
t=t -1
Loop
Text 2.Text = Str (temp)
End Sub
① ②
试题篮
