delphi复习题

工业大学2011/2012学年
复习题
begin
x:=0;
y:=0;
while True do
begin
x:=x+1;
if x mod 2=0 then
continue
else if x>=20 then
break
else
y:=y+x;
end;
edit1.Text:=inttostr(y);
end;
（3）100
第四题：编程题（8分）
计算个人所得税。

用户输入税前月总收入和起征点（默认为1600元），点击计算后算出应交税款和税后月总收入。

个人所得税九级超额累进税率表(工资薪金所得适用)
级数
全月应纳税所得额
(含税所得额) 即税前月总收入
税率%
速算
扣除数
1 不超过500元的 5 0
2 超过500元至2000元的部分10 25
3 超过2000元至5000元的部分15 125
4 超过5000元至20000元的部分20 375
5 超过20000元至40000元的部分25 1375
6 超过40000元至60000元的部分30 3375
7 超过60000元至80000元的部分35 6375
8 超过80000元至100000元的部分40 10375
9 超过100000元的部分45 15375
(注)：应交个人所得税 = 税前月总收入×适用税率—速算扣除数
第五题：编程题（8分）
利用二维数组建立一个矩阵，结果显示在列表组件ListBox1中.
第六题：编程题（8分）
设计一个抽奖程序，具有如下功能：
1）提供可输入参加抽奖的所有的输入界面。

2）单击“开始”按钮，界面上快速跳出参加抽奖的。

3）按任意键，抽奖停止跳动，当前显示的即为选中的中奖。

4）如果继续抽奖，已中奖被排除后重复2）、3）步的过程。

（提示：使用TTimer组件。

）要求写出界面设计过程，各组件的属性，编写程序代码。

第七题：编程题（8分）
设计一个如图所示的快捷菜单，并具有剪切等四项功能。

（提示：采用一个TMemo组件和一个TPopupMenu组件）。

要求写出使用菜单编辑器设计过程，各组件的属性，编写程序代码。

第八题：编程题（8分）
从文件stu.dat中读入全部学生成绩数据，将其中获得奖学金的学生数据存入一个新文件（stui.dat）中.评奖学金的条件是：每门课程均在80分以上或三门课程总分在255分以上。

Type
Studentrecord=record
Xh,xm:string[6];
Yy,sx,dz:integer;
End;。