找出所有三位数的幸运数对。vb程序

Question

如题所述

Answer 1

Private Sub Form_Click()
Dim i As Integer, num1 As Integer, num2 As Integer
For i = 100 To 996
num1 = i \ 100 + (i Mod 100) \ 10 + i Mod 10
num2 = (i + 3) \ 100 + ((i + 3) Mod 100) \ 10 + (i + 3) Mod 10
If num1 Mod 6 = 0 And num2 Mod 6 = 0 Then Print i; i + 3
Next
End Sub

Answer 2

幸运数对是什么意思？给个解释吧