Question

只有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

道歉，我仍然不明白为什么它不能将所有这些都算作代码......

谢谢，也感谢所有帮助我实现此代码的人。

Answer 1

Mod可能是您正在寻找的内容：

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

Answer 2

Sub Masiivs()
    Dim Arr(4, 4) As Integer
    Dim Arg, Ard As String
    Dim X, Y, Z As Integer
    Z = 1
    Arg = ""
    Ard = ""

    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.")

    For Xp As Integer = 1 To 4
        For Yp As Integer = 1 To 4
            Dim Zp
            Zp = Arr(Xp, Yp)
            If (Zp Mod 4) = 0 Then
                Ard = Ard & Zp & " "
            End If
        Next
    Next

    MsgBox(Ard)
End Sub

如何只显示4个可分割的数字？

2 个答案: