PowerBuilder数据库应用开发练习题.docVIP

- . - . . -可修编- ?PowerBuilder数据库应用开发?练习题 1、设计一个用户界面，如下列图所示，并编写相应脚本，从单行编辑框中输入圆的半径r，按“计算〞按钮后，计算圆的周长和面积并将其值输出。 在cb_1click事件中输入decimal R R=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事件输入decimal m,n m=dec(sle_1.text) n=dec(sle_2.text) sle_3.text=string(m*n) 在app_1中输入open(w_main) 3、编程实现求两个自然数的最大公约数，界面如下列图所示： 在cb_1中输入 long m,n,r m=dec(sle_1.text) n=dec(sle_2.text) r=mod(m,n) do while r0 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中输入 dec g,f g=dec(sle_1.text) choose case g case is =50 sle_2.text=string(g*0.25) case 50 to 100 sle_2.text=string((g - 50)*0.35+50*0.25) case else sle_2.text=string((g - 100)*0.45+50*0.35+50*0.25) end choose open(w_main ) 5、设计一个用户界面，如下列图所示，将1800年~2010年之间所有闰年输出，并统计个数，编写其相应脚本。 在cb_1的declare instance variables 中输入int c=0 integer li_year,s for s=1800 to 2010 if mod(s,4)=0 and mod(s,100)0 or mod(s,400)=0 then lb_1.additem(string(s)) c=c+1 end if next 在cb_2中输入 sle_1.text=string(c) 图2 6、设计个人所得税计算器，按如下公式进展收税： 在cb_1中输入integer i string tax i=integer(sle_1.text) choose case i case is =2000 tax=string(0) case 2000 to 2500 tax=string((i - 2000)*0.05) case 2500 to 4000 tax=string((i - 2000)*0.1 - 25) case 4000 to 9000 tax=string((i - 2000)*0.15 - 125) case else tax=string((i - 2000)*0.2 - 325) end choose sle_2.text=tax open(w_main) 7、设计一个界面并编写相应脚本，将100~500之间所有除3余1、除5余2且除7余2的所有数输出，并统计其个数。 dec a int i string str= for i=100 to 500 if mod(i,3)=1 and mod(i,5)=2 and mod(i,7)=2 then a=a+1 str=str+ +string(i) end if next sle_1.text=str sle_2.text=string(a) 8、设计一个界面并编写相应脚本，将1～1000之间的所有“完备数〞输出。所谓“完备数〞即其值等于其所有的因数〔不包括其自己本身〕的和的数。如6=1+2+3，28=1+2+4+7+