【word版】上海海事大学VB题库——改错.doc

《【word版】上海海事大学VB题库——改错.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、改错〖第1题〗『程序改错』(5分)(题号:132)'------------------------------------------------'【程序改错】'------------------------------------------------'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程'fact实现'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'-------------

2、-----------------------------------PrivateSubForm_Click()dimiasinteger,sasLong'**********FOUND**********Fori=2To8s=s+fact(i)NextiPrintsEndSub'**********FOUND**********PublicFunctionfact()dimtasLongdimiasintegert=1Fori=1Tont=t*iNextI'**********FOUND**********fa

3、ct=iEndFunction答案：1).Fori=2To8Step22).PublicFunctionfact(ByValnAsInteger)或PublicFunctionfact(nAsInteger)或PublicFunctionfact(n%)或PublicFunctionfact(n)或PublicFunctionfact(ByValn%)或PublicFunctionfact(ByValn)3).fact=t〖第1题〗『程序改错』(5分)(题号:132)'-----------------------

4、-------------------------'【程序改错】'------------------------------------------------'题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程'fact实现'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateSubForm

5、_Click()dimiasinteger,sasLong'**********FOUND**********Fori=2To8s=s+fact(i)NextiPrintsEndSub'**********FOUND**********PublicFunctionfact()dimtasLongdimiasintegert=1Fori=1Tont=t*iNextI'**********FOUND**********fact=iEndFunction答案：1).Fori=2To8Step22).PublicFunct

6、ionfact(ByValnAsInteger)或PublicFunctionfact(nAsInteger)或PublicFunctionfact(n%)或PublicFunctionfact(n)或PublicFunctionfact(ByValn%)或PublicFunctionfact(ByValn)3).fact=t〖第1题〗『程序改错』(5分)(题号:493)'------------------------------------------------'【程序改错】'----------------

7、--------------------------------'题目:给定年号与月份，判断该年是否闰年,并根据给出的'月份来判断是什么季节和该月有多少天？'（闰年的条件是：年号能被4整除但不能被100整除，'或者能被400整除。）'------------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构'------------------------------------------------PrivateSubForm_Click(

8、)DimYearAsInteger,MonthAsIntegerYear=InputBox("输入年号：")Month=InputBox("输入月份：")'**********FOUND**********IfYearMod4=0AndYearMod100<>0AndYearMod400<>0Then'**********FOUND**********fla