1/11
0/100
您的浏览器不支持进度条
下载所得到的文件列表
《PowerBuilder数据库应用开发》练习题.doc
文档介绍:
《PowerBuilder数据库应用开发》练习题1、设计一个用户界面,如下图所示,并编写相应脚本,从单行编辑框中输入圆的半径r,按“计算”按钮后,计算圆的周长和面积并将其值输出。在cb_1click事件中输入decimalRR=dec(sle_1.text)sle_2.text=string(3.1415926*2*r)sle_3.text=string(3.1415926*r*r)在app_1中输入open(w_main)2、设计一个乘法器,要求输入两个数后,点击乘法按钮,显示计算结果。界面如下图所示:在cb_1click事件输入decimalm,nm=dec(sle_1.text)n=dec(sle_2.text)sle_3.text=string(m*n)在app_1中输入open(w_main)3、编程实现求两个自然数的最大公约数,界面如下图所示:在cb_1中输入longm,n,rm=dec(sle_1.text)n=dec(sle_2.text)r=mod(m,n)dowhiler<>0 m=n n=r r=mod(m,n)loop sle_3.text=string(n)在app_1中输入open(w_main)4、铁路托运行李,从甲地到乙地,规定每张客票托运费计算方法是:行李重量不超过50千克时,每千克0.25元;超过50千克而不超过100千克时,其超过部分每千克0.35元;超过100千克时,其超过部分每千克0.45元。编写程序,输入行李重量,计算并输出托运的费用,设计一个用户界面,界面如下图所示,并编写相应脚本。在cb_1中输入decg,fg=dec(sle_1.text)choosecaseg caseis<=50 sle_2.text=string(g*0.25) case50to100 sle_2.text=string((g-50)*0.35+50*0.25) caseelse sle_2.text=string((g-100)*0.45+50*0.35+50*0.25)endchooseopen(w_main)5、设计一个用户界面,如下图所示,将1800年~2010年之间所有闰年输出,并统计个数,编写其相应脚本。在cb_1的declareinstancevariables中输入intc=0integerli_year,sfors=1800to2010 ifmod(s,4)=0andmod(s,100)<>0ormod(s,400)=0then lb_1.additem(string(s)) c=c+1 endifnext在cb_2中输入sle_1.text=string(c)图26、设计个人所得税计算器,按如下公式进行收税:在cb_1中输入integeristringtaxi=integer(sle_1.text)choosecasei caseis<=2000 tax=string(0)case2000to2500 tax=string((i-2000)*0.05)case2500to4000 tax=string((i-2000)*0.1-25)case4000to9000 tax=string((i-2000)*0.15-125)caseelse tax=string((i-2000)*0.2-325)endchoosesle_2.text=taxopen(w_main)7、设计一个界面并编写相应脚本,将100~500之间所有除3余1、除5余2且除7余2的所有数输出,并统计其个数。decaintistringstr=""fori=100to500 ifmod(i,3)=1andmod(i,5)=2andmod(i,7)=2then a=a+1 str=str+""+string(i) endifnextsle_1.text=strsle_2.text=string(a) 8、设计一个界面并编写相应脚本,将1~1000之间的所有“完备数”输出。所谓“完备数”即其值等于其所有的因数(不包括其自己本身)的和的数。如6=1+2+3,28=1+2+4+7+14。inti,j,s,sumfori=1to1000 s=0 forj=1toi-1 ifmod(i,j)=0then s=s+j endif next ifi=sthen sle_1.text=sle_1.text+string(i)+"" endifnext9、编写一个华氏温度与摄氏温度之间转换的程序,界面如下图所示。要使用转换的公式是:,摄氏温度转化为华氏温度,f为华氏温度,华氏温度转化为摄氏温度,c为摄氏温度10、在购买某物品时,若所标明的价钱x在下述范围内,所付钱y按对应折扣支付:deca,ba=integer(sle_1.text)choo 内容来自淘豆网www.taodocs.com转载请标明出处.