一个Command,一个List,不改名,加入下面的代码:Option ExplicitPrivate Function CannotMod(ByVal Num As Long) As Boolean
Dim i As Long
If Num <= 1 Then
CannotMod = False
Exit Function
End If
If Num = 2 Or Num = 3 Or Num = 5 Or Num = 7 Then
CannotMod = True
Exit Function
End If