上海海事大学VB题库-改错.pdfVIP

改错 〖第1 题〗『程序改错』(5 分)(题号:132) 【程序改错】 题目：求s=2!+4!+6!+8!，阶乘的计算用Function 过程 fact 实现 注意：不可增加或删除程序行，也不可以更改程序结构 Private Sub Form_Click() dim i as integer,s as Long **********FOUND********** For i = 2 To 8 s = s + fact(i) Next i Print s End Sub **********FOUND********** Public Function fact( ) dim t as Long dim i as integer t = 1 For i = 1 To n t = t * i Next I **********FOUND********** fact=i End Function 答案： 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或 Public Function fact(n%) 或 Public Function fact(n) 或 Public Function fact(ByVal n%) 或 Public Function fact(ByVal n) 3). fact = t 〖第1 题〗『程序改错』(5 分)(题号:132) 【程序改错】 题目：求s=2!+4!+6!+8!，阶乘的计算用Function 过程 fact 实现 注意：不可增加或删除程序行，也不可以更改程序结构 Private Sub Form_Click() dim i as integer,s as Long **********FOUND********** For i = 2 To 8 s = s + fact(i) Next i Print s End Sub **********FOUND********** Public Function fact( ) dim t as Long dim i as integer t = 1 For i = 1 To n t = t * i Next I **********FOUND********** fact=i End Function 答案： 1). For i = 2 To 8 Step 2 2). Public Function fact(ByVal n As Integer) 或 Public Function fact(n As Integer) 或 Public Function fact(n%) 或 Public Function fact(n) 或 Public Function fact(ByVal n%) 或 Public Function fact(ByVal n) 3). fact = t 〖第1题〗『程序改错』(5分)(题号:493) 【程序改错】 题目:给定年号与月份，判断该年是否闰年,并根据给出的 月份来判断是什么季节和该月有多少天？ （闰年的条件是：年号能被4整除但不能被100整除， 或者能被400整除。） 注意：不可增加或删除程序行，也不可以更改程序结构 Private Sub Form_Click() Dim Year As Integer, Month As Integer Year = InputBox(输入年号：) Month = InputBox(输入月份：) **********FOUND********** If Year Mod 4 = 0 And Year Mod 100 0 And Year Mod 400 0 Then **********FOUND********** flag = 0 MsgBox 闰年 El