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

就说，有5个数分别是  0，4，5，6，7
      抽取一个三位数的数字并能被4整除
     这样的数有几个？

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

本人第一次来这边提问，貌似提示发布不了有分的提问也，而且也没多少分，第一次嘛，谢谢了……

--------------------编程问答-------------------- 这是一个纯算法问题，理解起来简单，但写起来还真是有些麻烦。共有14种 --------------------编程问答-------------------- 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
        End If
    Next
    Print
    Print "共有"; N; "个符合条件的三位数"
End Sub

谢谢了，总算找到了个呵呵

补充：VB ,  基础类