【问题】 本程序设计界面如下,请阅读程序写出结果:“检测”(Button1)按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);var R: Real;begin R := StrToFloat(Edit1.Text); if R <0.5 then Edit2.Text := .输入有误. else if Abs(R - 10.0) <= 0.5 then Edit2.Text := .检测为合格品. else Edit2.Text := .检测为
本程序设计界面如下,请阅读程序写出结果:“检测”(Button1)按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);var R: Real;begin R := StrToFloat(Edit1.Text); if R <0.5 then Edit2.Text := .输入有误. else if Abs(R - 10.0) <= 0.5 then Edit2.Text := .检测为合格品. else Edit2.Text := .检测为废品.;end;当用户在edit1中输入一个数值10.39,然后按“检测”(Button1)按钮,在edit2中显示结果为 。A、10.3B、输入有误C、检测为合格品D、检测为废品
正确答案:C
题目解析:本题出自国家开放大学,国家开放大学Delphi程序设计,由丰阳塔题库搜集整理。