VB题库—改错.docVIP

改错 〖第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 闰年 Else flag = 0 MsgBox 非闰年 End If **********FOUND********** Select Case flag Case 1 MsgBox 该月有31天，春季 Case 2 If flag = 1 Then MsgBox 该月有29天，春季 Else MsgBox 该月有28天，春季 Case 3 MsgBox 该月有31天，春季 Case 4 MsgBox 该月有30天，夏季 Case 5 MsgBox 该月有31天，夏季 Case 6 MsgBox 该月有30天，夏季 Case 7