vfp6.0 计算器编程

clear
input '请输入一个数 ' to a
input '请输入一个数 ' to b
input '请输入算法 ' to c
do case
case c='+'
sum=a+b
case c='-'
sum=a-b
case c='*'
sum=a*b
case c='/'
sum=a/b
otherwise
=messagebox('无此算法')
endcase
?sum
return

不给分不理你