浙江大学远程教育数据库应用程序设计离线作业Word文档下载推荐.docx
《浙江大学远程教育数据库应用程序设计离线作业Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《浙江大学远程教育数据库应用程序设计离线作业Word文档下载推荐.docx（27页珍藏版）》请在冰豆网上搜索。
unit
test;
interface
uses
Windows,
Messages,
SysUtils,
Variants,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
StdCtrls;
type
TForm1
=
class（TForm）
showLabel:
TLabel;
btn1:
TButton;
//按钮1
btn2:
//按钮2
ctlBtn:
//开启停用按钮
exitBtn:
//退出按钮
procedure
btn1Click（Sender:
TObject）;
btn2Click（Sender:
exitBtnClick（Sender:
ctlBtnClick（Sender:
private
{
Private
declarations
}
public
Public
end;
var
Form1:
TForm1;
ctlStatus:
integer
0;
//控制按钮1和2的开启和关闭，0表示当前为开启，1表示关闭
implementation
{$R
*.dfm}
TForm1.btn1Click（Sender:
begin
form1.showLabel.Caption
:
'
您点击了按钮1'
;
TForm1.btn2Click（Sender:
您点击了按钮2'
TForm1.exitBtnClick（Sender:
form1.Close;
TForm1.ctlBtnClick（Sender:
if
ctlStatus
0
then
form1.btn1.Enabled
false;
form1.btn2.Enabled
1;
end
else
true;
ctlStatus
end.
2.9:
Label1:
Edit1:
TEdit;
btnRed:
btnGreen:
btnBlue:
btnRedClick（Sender:
btnGreenClick（Sender:
btnBlueClick（Sender:
TForm1.btnRedClick（Sender:
form1.Edit1.Font.Color
clred;
TForm1.btnGreenClick（Sender:
clgreen;
TForm1.btnBlueClick（Sender:
clblue;
end.
第三章
3.8下列实数中哪些是合法的，哪些是不合法的？
不合法的请说明理由。
（A）0.25E+02（B）.25+2（C）25E+2
（D）34.5（E）.123（F）-3E-4
（A）合法，即为25
（B）不合法，小数点前必须有数字，如表示为0.25+2
（C）合法，即为2500
（D）合法，即为34.5
（E）不合法，同
（2）
（F）合法，即为‐0.0003
3.12数学式子sin30。
写成Delphi表达式是下列哪个？
（A）Sin30（B）Sin（30）（C）SIN（30。
）（D）Sin（30*Pi/180）
D，需要把角度转化为弧度
第四章
4.7利用3个数字编辑框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。
StdCtrls,
Spin;
SpinEdit1:
TSpinEdit;
Label1:
Label2:
SpinEdit2:
Label3:
SpinEdit3:
Label4:
SpinEdit1Change（Sender:
SpinEdit2Change（Sender:
SpinEdit3Change（Sender:
CalculateTimeToSencond（timeKind:
String;
time:
integer）;
hour:
minute:
second:
tot:
TForm1.CalculateTimeToSencond（timeKind:
timeKind
hh'
hour
time
mi'
minute
ss'
second
time;
tot
*
60
+
second;
form1.Label4.Caption
总共为'
IntToStr（tot）
秒'
TForm1.SpinEdit1Change（Sender:
Form1.CalculateTimeToSencond（'
StrToInt（Form1.SpinEdit1.Text））;
TForm1.SpinEdit2Change（Sender:
StrToInt（Form1.SpinEdit2.Text））;
TForm1.SpinEdit3Change（Sender:
StrToInt（Form1.SpinEdit3.Text））;
4.8在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。
Unit1;
Memo1:
TMemo;
Edit1Change（Sender:
num1
Real;
//原实数
num2
//实数平方
num3
//实数平方根
TForm1.Edit1Change（Sender:
form1.Edit1.Text
<
>
StrToFloat（form1.Edit1.Text）;
num2
Sqr（num1）;
Sqrt（num1）;
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add（'
实数为
:
FloatToStr（num1））;
平方为
FloatToStr（num2））;
平方根为
FloatToStr（num3））;
第五章
5.11任意给定3个实数，按照从大到小的顺序依次输出这3个数。
num1Edit:
resultLabel:
num2Edit:
num3Edit:
num1EditChange（Sender:
num2EditChange（Sender:
num3EditChange（Sender:
CompareNumber（）;
//数字1
//数字2
//数字3
compnum
//比较时转换2数
outStr
//输出结果;
TForm1.CompareNumber（）;
（trim（form1.num1Edit.Text）
<
'
）
And
（trim（form1.num2Edit.Text）
（trim（form1.num3Edit.Text）
StrToFloat（form1.num1Edit.Text）;
StrToFloat（form1.num2Edit.Text）;
StrToFloat（form1.num3Edit.Text）;
num1;
num2;
compnum;
num3;
FloatToStr（num1）
'
FloatToStr（num2）
FloatToStr（num3）;
form1.resultLabel.Caption
outStr;
TForm1.num1EditChange（Sender:
form1.CompareNumber;
TForm1.num2EditChange（Sender:
TForm1.num3EditChange（Sender:
5.13假设工资的增幅标准为：
若基本工资大于等于1000元，增加工资20%；
若小于1000元大于等于800元，则增加工资15%；
若小于800元，则增加工资10%。
请根据用户在文本框中输入的基本工资，计算出增加后的工资。
salary:
outSalary:
salary
（salary
1000）
outSalary
（1
0.2）
And
800）
0.15）
0.1）;
FloatToStr（outSalary）;
第六章
6.5设s=1X2X3X…Xn，求s不大于20000时最大的n。
FormCreate（Sender:
Publi
升级会员 