本程序设计界面如下图所示： procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮 var i , n, sum : integer ; begin sum := 0 ; i := 1 ; n := StrToInt(edit1.Text); //读入正整数n while i <=n do //循环语句 begin if odd( i ) then sum :=sum+i; i := i +1 ; end; edit2.Text :=IntToStr( sum ); //将结果在编辑框中显示 end; 用户在edit1中输入一个正整数7，则在edit2中显示计算结果为： A、7 B、14 C、16 D、21
