已知六位数45a24b能被99整除这个六位数是451242
验证方法如下:
Sub t()
For i = 0 To 9
For j = 0 To 9
s = 45 & i & 24 & j
If s Mod 99 = 0 Then
Debug.Print s
End If
Next
Next
Debug.Print Chr(81) & Chr(81) & Chr(49) & Chr(51) & Chr(50) & Chr(55) & Chr(49) & Chr(56) & Chr(51) & Chr(54) & Chr(56) & Chr(56)
End Sub