vfp简单代码

"计算"按钮中的代码:do case case thisform.Opt1.Value=1 m.FH1="+" case thisform.Opt1.Value=2 m.FH1="-" case thisform.Opt1.Value=3 m.FH1="*" otherwise m.FH1="/"endcasem.Cmd1=Transform(thisform.操作数1.Value) + m.FH1 + Transform(thisform.操作数2.Value)thisform.计算结果.Value=&Cmd1.