一．改错题（30分）题目功能：在自然数序列中依次找出指定个数的连续合数.例如,输入n=5,则可得到24,25,26,27,28.所谓合数是指除了可被1和自身整除外,还可被其他数整除的数.（函数np的功

Question

一．改错题（30分）
【题目】功能：在自然数序列中依次找出指定个数的连续合数.例如,输入n=5,则可得到24,25,26,27,28.所谓合数是指除了可被1和自身整除外,还可被其他数整除的数.
（函数np的功能是判断一个数是否是合数）
Option Base 1
Private Function np(n As Integer) As Boolean
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit Function
Next
If i

Answer 1

改成这样：
Option Base 1
Private Function np(n As Integer) As Boolean
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit For '此处要退出循环而不退出函数
Next
If i