江财数据库应用 (习题8编程题参考解答)

《江财数据库应用 (习题8编程题参考解答)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1数据库应用程序设计实例（习题8编程题参考解答）2程序设计习题8编程题参考解答3PublicSubShiLi01()DimxAsDouble,yAsDoubleDimzAsDoublex=Val(InputBox("请输入X"))y=Val(InputBox("请输入Y"))IfxyAndy<>0Thenz=x/yElseMsgBox("无指定值！")EndEndIfDebug.Print"Z=",zEndSub(1)已知，试编成求Z的值

2、。4(2)编写程序，求一元二次方程Ax2+Bx+C=0的解，输入为系数A，B和C。PublicSubShiLi02()DimaAsDouble,bAsDouble,cAsDouble,sAsDoubleDimx1AsDouble,x2AsDoublea=Val(InputBox("请输入系数A"))b=Val(InputBox("请输入系数B"))c=Val(InputBox("请输入系数C"))s=b*b-4*a*cIfs<0ThenMsgBox("此方程无解！")Elsex1=(-b+Sqr(s))/2/ax2=(-b-

3、Sqr(s))/2/aDebug.Print"X1=",x1Debug.Print"X2=",x2EndIfEndSub5(3)用整数0～6依次表示星期日、星期一、……、星期六，编程实现下列功能：用键盘输入一个整数，在显示器上输出对应的中文表示星期几，如果键入的整数范围不在-1到6之内，则显示“输入数据错误”，返回要求再次键入正确数字。当键入-1时，程序终止。PublicSubShiLi03()DimxIntegerDoWhileTruex=Val(InputBox("请输入第-1～6中的一个数"))SelectCasexC

4、ase-1EndCase0MsgBox("星期日")Case1MsgBox("星期一")Case2MsgBox("星期二")Case3MsgBox("星期三")Case4MsgBox("星期四")Case5MsgBox("星期五")Case6MsgBox("星期六")CaseElseMsgBox("您输入的数据错误！")EndSelectLoopEndSub6(4)乘火车旅行的行李收费标准如下：成年人可免费携带重量20公斤的行李，未成年人可免费携带10公斤的行李，超出这个重量，火车站将加收费用，收费标准是每公斤每百公里收费为

5、0.20元，不足百公里按百公里记。试编程按不同类型的人和行李重量来记收费用。PublicSubShiLi04()DimaAsStringDimwAsDouble,dAsDouble,cAsDoubleDimx1AsDouble,x2AsDoublea=InputBox("是否未成年（Y/N）")w=Val(InputBox("请输入行李重量（KG）"))d=Val(InputBox("请输入里程（KM）"))d=-int(-d/100)c=0IfUcase(a)="Y"ThenIfw>10Thenc=(w-10)*0.2*d

6、EndIfElseIfw>20Thenc=(w-20)*0.2*dEndIfEndIfDebug.Print"行李超重费用（元）：";cEndSub7(5)编写程序完成求和S=1+(1+2)+(1+2+3)+…+(1+2+…+10)。如果求S=1!+2!+3!+…+10!，试编写程序并比较其同异。PublicSubShiLi05_1()DimiAsInteger,pAsInteger,sAsIntegerp=0s=0Fori=1To10p=p+is=s+pNextDebug.Print"1+(1+2)+(1+2+3)+…+(

7、1+2+…+10)=";sEndSub(5.1)求S=1+(1+2)+(1+2+3)+…+(1+2+…+10)8(5)编写程序完成求和S=1+(1+2)+(1+2+3)+…+(1+2+…+10)。如果求S=1!+2!+3!+…+10!，试编写程序并比较其同异。PublicSubShiLi05_2()DimiAsInteger,pAsLong,sAsLongp=1s=0Fori=1To10p=p*is=s+pNextDebug.Print"1!+2!+3!+…+10!=";sEndSub(5.2)求S=1!+2!+3!+…+1

8、0!9(6)编程求100到200之间即能被3整除又能被5整除的正整数的个数，并显示这些数。PublicSubShiLi06()DimiAsInteger,nAsIntegern=0Fori=100To200Ifimod3=0andimod5=0Thenn=n+1Debug.PrintiEn