上海海事大学VB题库 改错
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Case 3 MsgBox "该月有31天，春季"Fra Baidu bibliotek
Case 4 MsgBox "该月有30天，夏季"
Case 5
MsgBox "该月有31天，夏季"
Case 6
'
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)
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
答案： 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)
'**********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天，春季"
3). fact = t
〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程
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
3). fact = t
〖第1题〗『程序改错』(5分)(题号:493)
'-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:给定年号与月份，判断该年是否闰年,并根据给出的 ' 月份来判断是什么季节和该月有多少天？ ' （闰年的条件是：年号能被4整除但不能被100整除， ' 或者能被400整除。） '-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click()
'
fact 实现
'-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Form_Click() dim i as integer,s as Long '**********FOUND********** For i = 2 To 8
改错 〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程
Case 4 MsgBox "该月有30天，夏季"
Case 5
MsgBox "该月有31天，夏季"
Case 6
'
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)
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
答案： 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)
'**********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天，春季"
3). fact = t
〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程
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
3). fact = t
〖第1题〗『程序改错』(5分)(题号:493)
'-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:给定年号与月份，判断该年是否闰年,并根据给出的 ' 月份来判断是什么季节和该月有多少天？ ' （闰年的条件是：年号能被4整除但不能被100整除， ' 或者能被400整除。） '-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click()
'
fact 实现
'-----------------------------------------------'注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------
Private Sub Form_Click() dim i as integer,s as Long '**********FOUND********** For i = 2 To 8
改错 〖第 1 题〗『程序改错』(5 分)(题号:132)
'-----------------------------------------------'【程序改错】 '------------------------------------------------
'题目：求 s=2!+4!+6!+8!，阶乘的计算用 Function 过程