找出所有三位数的幸运数对。vb程序
来源:百度知道 编辑:UC知道 时间:2024/06/04 14:57:35
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
幸运数对是什么意思?给个解释吧