Question

Delphi程序设计，谁帮我设计个小程序。

项目：求和
要求开发一个小程序，界面如图5所示。
10 分钟前 上传下载附件 (10.71 KB)

图5 程序界面
功能说明如下：
本界面设置了一个输入框和一个输出框。用户在输入框中输入一个正整数，点击“计算”按钮，会在输出框中显示，从1到这个正整数之间的所有奇数的和。

Answer 1

sum:=0;
for i:=1 to StrToInt(Edit1.Text) do
if not ((i mod 2)=0) then
sum:=sum+i;
Edit2.Text:=IntToStr(sum);