edit1和eidit2中输入正整数范围,edit3中输入另一个正整数,点击Button1...

发布网友 发布时间：2024-10-24 11:07

我来回答

共1个回答

热心网友 时间：2024-11-12 23:17

procedure TForm1.Button1Click(Sender: TObject);

var
i,j,k,m: integer;
begin
j:=strtoint(trim(edit2.Text));
k:=strtoint(trim(edit3.Text));
m:=0;
listbox1.Clear;
for i:=strtoint(trim(edit1.Text)) to j do
if (i mod k)<>0 then
begin
m:=m+i;
listbox1.Items.Append(inttostr(i));
end;
label1.Caption:='它们的和为: '+inttostr(m)+' ';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
listbox1.Clear;
label1.Caption:='它们的和为：';
end; //edit2 edit3 的change事件都指向此事件