VB算法问题，五个数抽取无重复三位数并能被4整除的

来源：百度知道 编辑：UC知道 时间：2024/06/17 15:56:19
就说，有5个数分别是 0，4，5，6，7
抽取一个三位数的数字并能被4整除
这样的数有几个？

要求能运行通过，给出具体算法哦~
一个按钮点击即输出，输出具体的三位数和这样数字的个数！！！

谢谢了……

Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
Dim M As Integer, N As Integer
Form1.AutoRedraw = True
For A = 0 To 7
If A = 0 Or A > 3 Then
For B = 0 To 7
If (B = 0 Or B > 3) And B <> A Then
For C = 0 To 7
If (C = 0 Or C > 3) And C <> A And C <> B Then
M = 100 * A + 10 * B + C
If M > 100 Then
If M Mod 4 = 0 Then
N = N + 1
Print N; M,
If N Mod 6 = 0 Then Print
End If
End If
End If
Next
End If
Next