Arrays 如何仅显示可除以4的数字？

只有可除以4的数字，不带逗号（这意味着像5、6、7、9等数字不算在内）

这是我阵列工作的第二部分，我必须在周日晚上完成

基本上，在用户输入数组编号之后，我必须只显示可除以4的编号，而不显示逗号

这就是我现在拥有的：

    Public Sub Masiivs()

    Dim Arr(4, 4) As Integer
    Dim Arg, Ard As String
    Dim X, Y, Z, M, N As Integer
    Z = 1

    For X = LBound(Arr, 1) To UBound(Arr, 1) Step 1

    For Y = LBound(Arr, 2) To UBound(Arr, 2) Step 1

        Arr(X, Y) = InputBox("Ievadiet masiva skaitli Nr. " + CStr(Z), "Datu Ievade")
        Arg = Arg & " " & Arr(X, Y)
        Z = Z + 1
    Next Y
    Arg = Arg + vbNewLine

Next X

MsgBox Arg

MsgBox ("Meklējam tos, kas dalās ar 4 bez atlikuma.")

    If X = X / 4 Then
        X = M
        Else
    End If

    If Y = Y / 4 Then
        Y = N
        Else
    End If

    Ard = Ard & CStr(M) & CStr(N)

    MsgBox Ard

End Sub

抱歉，我还是不明白为什么它不把所有的都算作代码

谢谢你，也谢谢你以前帮助我实现这段代码的所有人。

可能就是你想要的：

If X mod 4 = 0 Then
    ' Do something
End If

可能就是你要找的：

If X mod 4 = 0 Then
    ' Do something
End If

---

你看了“mod”了吗？你看了“mod”了吗？我更想知道如何只显示可分割的数字。出于某种原因，VBA不喜欢这两种方法。。。编辑：没关系，我必须去掉“作为整数”的部分，因为不管出于什么原因，它们都不喜欢。我不得不把它们放在开头。我更多的是寻找如何只显示可分割的数字的解决方案。出于某种原因，VBA不喜欢这两种方法。。。编辑：没关系，我必须去掉“作为整数”的部分，因为不管出于什么原因，它们都不喜欢。我不得不把它们放在开头。我更想知道如何只显示可分割的数字。我更想知道如何只显示可分割的数字。