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

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

ID:43788050

大小:199.04 KB

页数:40页

时间:2019-10-14

江财数据库应用 (习题8编程题参考解答)_第1页
江财数据库应用 (习题8编程题参考解答)_第2页
江财数据库应用 (习题8编程题参考解答)_第3页
江财数据库应用 (习题8编程题参考解答)_第4页
江财数据库应用 (习题8编程题参考解答)_第5页
资源描述:

《江财数据库应用 (习题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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。