用3,4,5,6,7这5个数字组成一个能被22整除的五位数

题目

用3,4,5,6,7这5个数字组成一个能被22整除的五位数

答案

给你一个EXCEL VBA代码：
Sub 计算整除()
Dim Tex As String,Tex1 As String,P As Integer
P = 0
For i = 3 To 7
For J = 3 To 7
For K = 3 To 7
For l = 3 To 7
For M = 3 To 7
Tex = i & J & K & l & M
If (Val(Tex) Mod 22) = 0 And InStr(1,Tex,"3") > 0 And InStr(1,Tex,"4") > 0 _
And InStr(1,Tex,"5") > 0 And InStr(1,Tex,"6") > 0 _
And InStr(1,Tex,"7") > 0 Then
P = P + 1
Tex1 = Tex1 & Tex & Chr(10)
End If
Next
Next
Next
Next
Next
MsgBox "共有" & P & "个:" & Chr(10) & Tex1,,"计算结果"
End Sub
计算结果：
53746
54736
73546
74536