Question

delphi7关于CASE语句的问题

可以帮我写下接下去的程式码吗？
或者直接给我做好的文件
534598634@qq.com
谢谢
有人会吗，做完给分

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
mark: integer;
begin
try
mark:= StrToInt(Edit1.Text);
except
ShowMessage('请输入数字!');
Edit1.Text:= '';
Exit;
end;
if (mark> 100) or (mark< 0) then
begin
ShowMessage('请输入有效范围(0-100)分数');
Edit1.Text:='';
Exit;
end;
case mark of
100: Edit2.Text:= '满分';
90..99: Edit2.Text:= '优秀';
80..89: Edit2.Text:= '良好';
60..79: Edit2.Text:= '及格';
0..59: Edit2.Text:= '不及格';
end;
end;

Answer 2

Case mark of
90..100 ：Edit2.Text := '优秀';
80..90 : Edit2.Text := '良好';
60..79 ：Edit2.Text := '...';
end;

Answer 3

case mark of
0..60: edit2.text:= '及格';
61..80: edit2.text:= '良好';
81..100: edit2.text:= '优秀';
else edit2.text:= '';
end;