改错题

改错题

改错题（共4道）
1. 指出下列代码错误并说明原因：
Var
I:Integer;(超出范围)
L:Long;
Begin
L:=32768;
I:=L;
End.

2. 指出下列代码错误并说明原因：
if n>37.5 then
AmountEarned:=(n-37.5)*HourlyRate*1.5+37.5*HourlyRate; （没有定义n, AmountEarned, HourlyRate）
else
AmountEarned:= n*HourlyRate;

3. 指出下列代码错误并说明原因：
while (total<max) and (sum<=max) and (sum<total)
do statement1;

4. 指出下列代码错误并说明原因：
procedure Tform1.TestBtnClick(Sender:Tobject);
var z,y,x:integer;
begin
x:=100;
y:=0;
try
z:=x div y;
except
on EdivByZero
do begin
z:=-1;
MessageDlg(\'Z\'+IntToStr(z),mtInformation,[mbOK],0);
end
End;

【改错题】相关文章：

GMAT语法改错题难点攻略10-02

GMAT句子改错题解题技巧11-15

西语专八必备：助你改错题拿高分08-16

GMAT考试改错题九大关键点08-12

GMAT句子改错题的九大关键08-08

英语四六级考试改错题破解技巧06-17

养成SAT改错题高效解题八大习惯11-25

盘点最经典SAT语法改错题中的常见错误08-21

2017公共英语二级改错题常见错误08-15

GMAT语法改错题的四大侧重点08-10