浙江大學(xué)遠(yuǎn)程教育數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)離線作業(yè)

姓：年：

浙江大學(xué)遠(yuǎn)程教育學(xué)院《數(shù)據(jù)應(yīng)程序設(shè)》程作業(yè)學(xué)：學(xué)中：作業(yè)第一章1.5如何保存Delphi的目嘗試自己動(dòng)手創(chuàng)一個(gè)項(xiàng)目，并保存。答：執(zhí)行File|SaveAll菜單命令或單擊工具欄中的SaveAll按便可保存，在保存時(shí)可以對(duì)工程文件和單元文件進(jìn)行改名綴名不能改文件之后擊工具中的按鈕或按F9鍵，系統(tǒng)將開(kāi)始編譯、連接、運(yùn)行該工程。1.7嘗試設(shè)計(jì)如圖－所示的窗體見(jiàn)材P15頁(yè)圖1－）圖1－

第二章2.8設(shè)如圖25所示的界面單擊按”或按鈕2”在標(biāo)簽上顯示用戶(hù)所執(zhí)行的操作。單擊開(kāi)停用按”可控制“按鈕1”和“按2”是可，單“退出系按鈕時(shí)，結(jié)束程序的運(yùn)行。2.9設(shè)計(jì)如圖26所的界面。當(dāng)單擊按鈕時(shí)，可控文本框中字體的顏色。圖2－

圖－

unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)showLabel:TLabel;btn1:TButton;//鈕1btn2:TButton;//鈕2ctlBtn:TButton;//啟停用按鈕exitBtn:TButton;//退出按鈕procedurebtn1Click(Sender:TObject);procedurebtn2Click(Sender:TObject);procedureexitBtnClick(Sender:TObject);procedurectlBtnClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;ctlStatus:integer0;控按鈕1和2的啟和關(guān)，0表示當(dāng)前為開(kāi)啟，1表示關(guān)閉implementation{$R*.dfm}procedureTForm1.btn1Click(Sender:TObject);beginform1.showLabel.Caption:=您擊了按鈕1';end;procedureTForm1.btn2Click(Sender:TObject);beginform1.showLabel.Caption:=您擊了按鈕2';end;procedureTForm1.exitBtnClick(Sender:TObject);beginform1.Close;end;procedureTForm1.ctlBtnClick(Sender:TObject);beginctlStatus=0beginform1.btn1.Enabledfalse;form1.btn2.Enabledfalse;

ctlStatus:=1;endelsebeginform1.btn1.Enabledtrue;form1.btn2.Enabledtrue;ctlStatus:=0;end;end;end.2.9:

unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;

Edit1:TEdit;btnRed:TButton;btnGreen:TButton;btnBlue:TButton;procedurebtnRedClick(Sender:TObject);procedurebtnGreenClick(Sender:TObject);procedurebtnBlueClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.btnRedClick(Sender:TObject);beginform1.Edit1.Font.Colorclred;end;procedureTForm1.btnGreenClick(Sender:TObject);beginform1.Edit1.Font.Colorclgreen;end;procedureTForm1.btnBlueClick(Sender:TObject);beginform1.Edit1.Font.Colorclblue;end;end.第三章3.8下列實(shí)數(shù)中哪些是合法的，哪些是不合法的？不合法的請(qǐng)說(shuō)明理由。（0.25E+02（）（）25E+2（）

（）（）-3E-4（）合法，即為25（）合法，小數(shù)點(diǎn)前必須有數(shù)字，如表示為0.25+2（）法即為2500（）法，即為34.5（）不合法，同（）（）合法，即為‐3.12數(shù)式子sin30。寫(xiě)成Delphi表式是下列哪個(gè)？（）Sin30（）（）（（）Sin(30*Pi/180)，要把角度轉(zhuǎn)化為弧度第四章4.7利用3個(gè)字編輯框分別輸入小時(shí)、分、秒，換算共有多少秒，然后使用標(biāo)簽輸出。

unittest;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Spin;type

TForm1=class(TForm)SpinEdit1:TSpinEdit;Label1:TLabel;Label2:TLabel;SpinEdit2:TSpinEdit;Label3:TLabel;SpinEdit3:TSpinEdit;Label4:TLabel;procedureSpinEdit1Change(Sender:TObject);procedureSpinEdit2Change(Sender:TObject);procedureSpinEdit3Change(Sender:TObject);private{Privatedeclarations}procedureCalculateTimeToSencond(timeKind:String;time:integer);public{Publicdeclarationsend;varForm1:TForm1;hour:integer=minute:integer=second:integer=tot:integer=0;implementation{$R*.dfm}procedureTForm1.CalculateTimeToSencond(timeKind:String;time:integer);begintimeKind='hh'thenhour:=timeelseiftimeKind='mi'minute:=timeelseiftimeKind='ss'second:=time;tothour*60+minute*60+second;form1.Label4.Caption:=總共為IntToStr(tot)秒;end;procedureTForm1.SpinEdit1Change(Sender:TObject);beginForm1.CalculateTimeToSencond('hh',StrToInt(Form1.SpinEdit1.Text));end;procedureTForm1.SpinEdit2Change(Sender:TObject);beginForm1.CalculateTimeToSencond('mi',StrToInt(Form1.SpinEdit2.Text));end;

procedureTForm1.SpinEdit3Change(Sender:TObject);beginForm1.CalculateTimeToSencond('ss',StrToInt(Form1.SpinEdit3.Text));end;end.4.8在編輯框中輸一個(gè)實(shí)數(shù)，利用備注框輸出該實(shí)數(shù)及其平方和平方根。

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Edit1:TEdit;Label1:TLabel;TMemo;Label2:TLabel;procedureEdit1Change(Sender:TObject);private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;:Real;//原數(shù)Real;實(shí)數(shù)平方:Real;//實(shí)平方根implementation{$R*.dfm}procedureTForm1.Edit1Change(Sender:TObject);beginform1.Edit1.Text<>''begin:=StrToFloat(form1.Edit1.Text);:=Sqr(num1);:=Sqrt(num1);form1.Memo1.Lines.Clear;form1.Memo1.Lines.Add('實(shí)為:FloatToStr(num1));form1.Memo1.Lines.Add('平為:FloatToStr(num2));form1.Memo1.Lines.Add('平根為FloatToStr(num3));end;end;end.第五章5.11任給定3個(gè)數(shù)，按照從大到小的順序次輸出這3個(gè)。

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)num1Edit:TEdit;Label1:TLabel;Label2:TLabel;resultLabel:TLabel;num2Edit:TEdit;num3Edit:TEdit;procedurenum1EditChange(Sender:TObject);procedurenum2EditChange(Sender:TObject);procedurenum3EditChange(Sender:TObject);private{Privatedeclarations}procedureCompareNumber();

public{Publicdeclarationsend;varForm1:TForm1;:Real;//數(shù):Real;//數(shù):Real;//數(shù):Real;比時(shí)轉(zhuǎn)換數(shù)outStr:String;輸結(jié)果;implementation{$R*.dfm}procedureTForm1.CompareNumber();begin(trim(form1.num1Edit.Text)<>And(trim(form1.num2Edit.Text)<>'')And(trim(form1.num3Edit.Text)<>'')thenbegin:=StrToFloat(form1.num1Edit.Text);:=StrToFloat(form1.num2Edit.Text);:=StrToFloat(form1.num3Edit.Text);>thenbegin:=num1;:=num2;:=compnum;end;>thenbegin:=num1;:=num3;:=compnum;end;>thenbegin:=num2;:=num3;:=compnum;end;outStrFloatToStr(num1)+','+FloatToStr(num2)+','+FloatToStr(num3);form1.resultLabel.CaptionoutStr;end;end;procedureTForm1.num1EditChange(Sender:TObject);

beginform1.CompareNumber;procedureTForm1.num2EditChange(Sender:TObject);beginform1.CompareNumber;procedureTForm1.num3EditChange(Sender:TObject);beginform1.CompareNumber;end.5.13假工資的增幅標(biāo)準(zhǔn)為：若基本工資大于等于1000元增加工資；小于1000元大于等于800元?jiǎng)t加工資；若小于800元?jiǎng)t增加資請(qǐng)據(jù)用戶(hù)在文本框中輸入的基本工資，計(jì)算出增加后的工資。

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;resultLabel:TLabel;procedureEdit1Change(Sender:TObject);private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;salary:Real;outSalary:Real;implementation{$R*.dfm}procedureTForm1.Edit1Change(Sender:TObject);

beginsalaryStrToFloat(form1.Edit1.Text);(salary>=1000)outSalarysalary*(1+0.2)elseif(salary<1000)(salary>=800)thenoutSalarysalary*(1+0.15)elseif(salary<800)outSalarysalary*(1+0.1);form1.resultLabel.CaptionFloatToStr(outSalary);end;end.第六章6.5設(shè)Xn，求s不于20000時(shí)大的。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Edit1:TEdit;Label2:TLabel;

resultLabel:TLabel;procedureFormCreate(Sender:TObject);private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;number,n,tot:Integer;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);begintot1;n:=0;number:=StrToInt(form1.Edit1.Text);Whiletot<=numberdobeginn:=n+1;tottot*n;end;form1.resultLabel.Caption‐end;end.6.10在簽上輸出100~200之間的所有的奇，其中3的數(shù)除外。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)resultLabel:TLabel;procedureFormCreate(Sender:TObject);private{Privatedeclarations}

public{Publicdeclarationsend;varForm1:TForm1;number,Integer;outStr:String;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);beginfori:=100to200dobegin2<>03<>0outStroutStr'IntToStr(i);form1.resultLabel.CaptionoutStr;end;end;end.第七章7.4求這個(gè)的和，當(dāng)和大于10000時(shí)束計(jì)算求用轉(zhuǎn)向語(yǔ)句）unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;procedureFormCreate(Sender:TObject);

private{Privatedeclarations}public{Publicdeclarationsend;varForm1:TForm1;sum,n:integer;implementation{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);beginsum:=0;n:=repeatn:=n+1;sum:=sum+n;(sum>thenbreak;untiln200;form1.Label1.Caption:=總和為IntToStr(sum);end;end.第八章8.8編寫(xiě)函數(shù)，輸出100~500之所有能同時(shí)被和整的數(shù)。unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;procedureFormCreate(Sender:TObject);private{Privatedeclarations}FunctioncheckNum(num:integer):boolean;public{Publicdeclarationsend;varForm1:TForm1;implementation{$R*.dfm}FunctionTForm1.checkNum(num:integer):boolean;varn:boolean;begin(nummod3=0)And(nummod13=n:=trueelsen:=false;resultn;procedureTForm1.FormCreate(Sender:TObject);var:integer;varout:string;beginfor:=100dobegincheckNum(i)thenout:=out+''+IntToStr(i);end;form1.Label1.Caption:=out;end;end.第九章9.2打開(kāi)對(duì)話框組件和打開(kāi)圖片對(duì)話框組件有什么異同點(diǎn)？答：兩者都會(huì)打開(kāi)一個(gè)對(duì)話框用于選擇電腦本地上的文件不的是前者可以選擇全部類(lèi)型的文件，而后者只可以選擇圖片類(lèi)型的文件，并且可以預(yù)覽圖片第十章10.7菜命令項(xiàng)與工具欄按鈕的單擊事件中的代碼是否可以關(guān)聯(lián)？如何關(guān)聯(lián)？答：將工具欄按鈕ToolButton的Style屬設(shè)置為tbsDropDown,后在屬中選擇對(duì)應(yīng)的菜單項(xiàng)即可第十一章11.4調(diào)子