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事件都指向此事件

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com