浙江大学远程教育数据库应用程序设计离线作业Word文档下载推荐.docx

1、unittest;interfaceuses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class（TForm）showLabel:TLabel;btn1:TButton; /按钮 1btn2: /按钮 2ctlBtn: /开启停用按钮exitBtn: /退出按钮procedurebtn1Click（Sender:TObject）;btn2Click（Sender:exitBtnClick（Sender:ctlBtnClick（Sender:pri

2、vatePrivatedeclarationspublicPublicend;varForm1:TForm1;ctlStatus:integer0; /控制按钮 1 和 2 的开启和关闭，0 表示当前为开启，1 表示关闭implementation$R*.dfmTForm1.btn1Click（Sender:beginform1.showLabel.Caption:您点击了按钮 1;TForm1.btn2Click（Sender:您点击了按钮 2TForm1.exitBtnClick（Sender:form1.Close;TForm1.ctlBtnClick（Sender:ifctlStatu

3、s0thenform1.btn1.Enabledfalse;form1.btn2.Enabled1;endelsetrue; ctlStatusend.2.9: Label1:Edit1:TEdit;btnRed:btnGreen:btnBlue:btnRedClick（Sender:btnGreenClick（Sender:btnBlueClick（Sender:TForm1.btnRedClick（Sender:form1.Edit1.Font.Colorclred;TForm1.btnGreenClick（Sender:clgreen;TForm1.btnBlueClick（Sender

4、: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.00033.12 数学式子sin30。写成Delphi表达式是下列哪个？（A）Sin30 （B）Sin（30） （C）SIN（30。） （D）Sin（30*Pi/180）D，需要把角度转化为弧度第四章4.7 利用3个数字编辑

5、框分别输入小时、分、秒，换算共有多少秒，然后使用标签输出。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:timeK

6、indhhhourtimemiminutesssecondtime;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.

7、8 在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。Unit1;Memo1:TMemo;Edit1Change（Sender:num1Real; /原实数 num2 /实数平方num3 /实数平方根TForm1.Edit1Change（Sender:form1.Edit1.TextStrToFloat（form1.Edit1.Text）;num2Sqr（num1）;Sqrt（num1）;form1.Memo1.Lines.Clear;form1.Memo1.Lines.Add（实数为 :FloatToStr（num1）;平方为FloatToStr（num2）;平方根为FloatT

8、oStr（num3）;第五章5.11 任意给定3个实数，按照从大到小的顺序依次输出这3个数。num1Edit:resultLabel:num2Edit:num3Edit:num1EditChange（Sender:num2EditChange（Sender:num3EditChange（Sender:CompareNumber（）; /数字 1 /数字 2 /数字 3compnum/比较时转换 2 数outStr/输出结果;TForm1.CompareNumber（）; （trim（form1.num1Edit.Text） ） And （trim（form1.num2Edit.Text）（tr

9、im（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.CaptionoutStr;TForm1.num1EditChange（Sender:form1.CompareNumber;TForm1.num2EditChange（Sender:TForm1.num3EditChange（Sender:5.13 假设工资的增幅标准为：若基本工资大于等于1000元，增加工资20%；若小于1000元大于等于800元，则增加工资15%；若小于800元，则增加工资10%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。salary:outSalary:salary（salary1000）outSalary（10.2）And800）0.15）0.1）;FloatToStr（outSalary）;第六章6.5 设s=1X2X3XXn，求s不大于20000时最大的n。FormCreate（Sender:Publi