发布时间 : 星期四 文章上海海事大学VB程序改错40题更新完毕开始阅读
End If
'**********FOUND********** If y = z Then Print y
'**********FOUND********** ElseIf x = z Then Print z Else Print x End If End Sub
Private Sub Form_Click() FindMidNum End Sub 答案：
=======(答案1)======= If x < y Then =========或========= If y > x Then
=======(答案2)======= If y >= z Then =========或========= If z <= y Then
=======(答案3)======= ElseIf x >= z Then =========或========= ElseIf z <= x Then
第70题 （1.0分） 题号:142
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：程序功能根据输入的学习成绩,分别显示优秀 ' (90分以上), 良好(75分以上),及格(60分以上) ' 不及格四个等级.
'------------------------------------------------
Option Explicit
Private Sub Form_Click() Cls
Dim i As Integer
i = InputBox(\请输入学习成绩\Select Case i
'**********FOUND********** Case 0 < i < 100
MsgBox \成绩应该在0--100之间\'**********FOUND********** Case 90
Print \优秀\ Case 75 To 89 Print \良好\ Case 60 To 74 Print \及格\
'**********FOUND********** Case
MsgBox \不及格\End Select End Sub 答案：
=======(答案1)======= Case is>100 ,is<0 =========或========= case is<0 ,is>100
=======(答案2)======= Case 90 to 100
=======(答案3)======= Case else
第71题 （1.0分） 题号:473
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目:下列程序进行-n阶乘运算，当阶乘的值超过-21147483648 溢出报错，并将结果输出为-1。
'------------------------------------------------ Option Explicit
'**********FOUND**********
Private Function jc(ByVal n As Integer) As Integer Dim I As Integer Dim result As Long result = 1 I = 1
Do While I <= n
If result < 2114748348 / I Then '**********FOUND********** result = result I = I + 1 Else
lblerr.Caption = \溢出\ '**********FOUND********** jc = -I Exit Function End If Loop
jc = -result End Function
Private Sub Form_Click() MsgBox jc(3) End Sub 答案：
=======(答案1)=======
Private Function jc(ByVal n As Integer) As Long
=======(答案2)======= result = result * I =========或========= result = I * result
=======(答案3)======= jc = -1
第72题 （1.0分） 题号:145
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：该程序的功能是求出100到200之间的全部素数， ' 并且按每行4个、每个数据之间有10个空格的格 ' 式输出。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim k As Integer, i As Integer, j As Integer k = 0
For i = 100 To 200 '**********FOUND********** For j = 1 To i - 1
If i Mod j = 0 Then Exit For Next j If j = i Then
'**********FOUND********** Print i; Tab(10); k = k + 1
'**********FOUND**********
If k Mod 5 = 0 Then Print ; End If Next i End Sub 答案：
=======(答案1)======= For j = 2 To i - 1 =========或========= For j = 2 To -1 + i
=======(答案2)======= Print i; Space(10); =========或========= Print i; Spc(10);
=======(答案3)======= If k Mod 4 = 0 Then Print =========或========= If 0 = k Mod 4 Then Print =========或========= if k/4 = k \\4 then Print =========或========= if k\\4 = k/4 then Print =========或=========