在程序中，在表单form1上建立2个编辑框对象edit1、edit2和一个按钮对象。对form1的button1编写的代码如下： procedure TForm1.Button1Click(Sender: TObject); var g:integer; begin g := strtoint(edit1.text); if (g >=85) and (g <= 100) then edit2.text :=”优秀” else if (g >=55) and (g < 85) then edit2.text :=”通过” else if (g >0) and (g <55) then edit2.text :=”重考” else edit2.text :=”输入有误”; end; 阅读上面代码，当在edit1中输入 0 时， edit2的显示结果为 。
