'判断是否是被7整除的奇数Private Function chk7(num As Long) As Boolean If num Mod 7 = 0 And num Mod 2 <> 0 Then chk7 = True Else chk7 = False End IfEnd Function
