《PowerBuilder数据库应用开发》练习题教学教材.docx
《《PowerBuilder数据库应用开发》练习题教学教材.docx》由会员分享，可在线阅读，更多相关《《PowerBuilder数据库应用开发》练习题教学教材.docx（14页珍藏版）》请在冰豆网上搜索。
《PowerBuilder数据库应用开发》练习题教学教材
《PowerBuilder数据库应用开发》练习题
1、设计一个用户界面，如下图所示，并编写相应脚本，从单行编辑框中输入圆的半径r，按“计算”按钮后，计算圆的周长和面积并将其值输出。
在cb_1click事件中输入decimalR
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事件输入decimalm,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中输入longm,n,r
m=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,f
g=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）
endchoose
open（w_main）
5、设计一个用户界面，如下图所示，将1800年~2010年之间所有闰年输出，并统计个数，编写其相应脚本。
在cb_1的declareinstancevariables中输入intc=0
integerli_year,s
fors=1800to2010
ifmod（s,4）=0andmod（s,100）<>0ormod（s,400）=0then
lb_1.additem（string（s））
c=c+1
endif
next
在cb_2中输入
sle_1.text=string（c）
图2
6、设计个人所得税计算器，按如下公式进行收税：
在cb_1中输入integeri
stringtax
i=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）
endchoose
sle_2.text=tax
open（w_main）
7、设计一个界面并编写相应脚本，将100~500之间所有除3余1、除5余2且除7余2的所有数输出，并统计其个数。
deca
inti
stringstr=""
fori=100to500
ifmod（i,3）=1andmod（i,5）=2andmod（i,7）=2then
a=a+1
str=str+""+string（i）
endif
next
sle_1.text=str
sle_2.text=string（a）
8、设计一个界面并编写相应脚本，将1～1000之间的所有“完备数”输出。
所谓“完备数”即其值等于其所有的因数（不包括其自己本身）的和的数。
如6=1+2+3，28=1+2+4+7+14。
inti,j,s,sum
fori=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）+""
endif
next
9、编写一个华氏温度与摄氏温度之间转换的程序，界面如下图所示。
要使用转换的公式是：
，摄氏温度转化为华氏温度，f为华氏温度
，华氏温度转化为摄氏温度，c为摄氏温度
10、在购买某物品时，若所标明的价钱x在下述范围内，所付钱y按对应折扣支付：
deca,b
a=integer（sle_1.text）
choosecasea
caseis<1000
b=a
case1000to2000
b=0.9*a
case2000to3000
b=0.8*a
caseis>3000
b=0.7*a
endchoose
st_3.text=string（b,'#.#'）+"元"
11、编写一个求任意梯形面积的程序，界面如下图所示。
要使用转换的公式是：
，a为上低，b为下底，h为高，s是要输出的面积。
deca,b,h,s
a=integer（sle_1.text）
b=integer（sle_2.text）
h=integer（sle_3.text）
s=h*（a+b）*0.5
sle_4.text=string（s）
12、新东方购物广场五一劳动节促销，方案如下：
消费1000元以上顾客，全部商品7.0折；消费800元以上的顾客，全部商品7.5折；消费500元以上的顾客，全部商品8.0折；消费300元以上的顾客，全部商品8.5折；消费低于300元的顾客，不享受打折优惠。
设计一个计算顾客应付金额的应用程序。
deca,b
a=integer（sle_1.text）
choosecasea
caseis<300
b=a
case300to500
b=0.85*a
case500to800
b=0.8*a
case800to1000
b=0.75*a
caseis>1000
b=0.7*a
endchoose
sle_2.text=string（b）
13、编程求1+3+5+…+n（n为奇数），界面如下图所示。
integers,i,n
n=integer（sle_1.text）
s=0
fori=1tonstep2
s=s+i
next
sle_2.text=string（s）
14、编一个程序输入上网的时间并计算上网费用，计算的方法如下：
费用=
deca,b
a=integer（sle_1.text）
choosecasea
caseis<10
b=10
case10to50
b=2.5*a
caseis>=50
b=2*a
endchoose
sle_2.text=string（b）
15、请编程输出所有的“水仙花数”，所谓“水仙花数”是指一个3位数，其各位数字的立方和等于数的本身。
例如，153是一个水仙花数，因为153=13+53+33。
界面如下图所示。
在cb_1中输入integeri,j,k,n
stringstr=""
forn=100to999
i=n/100//百位数字
j=n/10-i*10//十位数字
k=mod（n,10）//个位数字
if（i*100+j*10+k）=（i*i*i+j*j*j+k*k*k）then
lb_1.additem（string（n））
endif
next
16、编程求解如下二元一次方程组，从单行编辑框中输入m和n，按“求解”按钮后，求得x和y并将其值输出。
decm,n,x1,y1
m=integer（sle_1.text）
n=integer（sle_2.text）
x1=（2*n-m）/7
y1=（5*m-3*n）/14
sle_3.text=string（x1）
sle_4.text=string（y1）
17、编程将学生的百分制成绩转换为等级，要求输出成绩等级：
“A”，“B”，“C”。
85分及以上为“A”，60～84分为“B”，60分以下为“C”。
界面如下图所示：
在cb_1中输入integerscore
stringgrade
score=integer（sle_1.text）
ifscore>=90then
grade="A"
elseifscore<60then
grade="c"
else
grade="b"
endif
sle_2.text=grade
18设计奖学金评定应用程序，平均成绩90分以上为一等，85分以上为二等，80分以上为三等，60分以上为四等，其余为无奖学金。
（假定期末考试科目为数学和英语）有问题
intscore
stringgrade
score=integer（sle_1.text）
choosecasescore
caseis>=85
grade="A"
case60to84
grade="B"
caseis<60
grade="C"
endchoose
sle_2.text=grade
19、输入一个人的身高、体重，根据正常体重范围，男性“（身高－80）*0.7±10公斤”为适中，女性“（身高－70）*0.6±10公斤”为适中，判断此人身材“适中”、“偏瘦”或“偏胖”。
deca,b
a=dec（sle_2.text）
b=dec（sle_3.text）
ifsle_1.text="男"then
ifb>（a-80）*0.7+10then
st_7.text="偏重"
elseifb<（a-80）*0.7-10then
st_7.text="偏瘦"
else
st_7.text="适中"
endif
endif
ifsle_1.text="女"then
ifb>（a-70）*0.6+10then
st_7.text="偏重"
elseifb<（a-70）*0.6-10then
st_7.text="偏瘦"
else
st_7.text="适中"
endif
endif
五、连接数据库
把D盘中的PB数据库文件夹下xsgl数据库连接上，要求把连接过程及参数设置的对话框截取下来，放到下面空白处，一共是两个图。
要求：
把语句及运行结果截
升级会员 