あれ＞＜

yの値が0になってしまう。。。
なんでだ

Module sort_test
    Sub main() '表示

        Dim x, y As Integer
        test(x, y)
        Console.WriteLine("Xの値表示：" & x)

        Console.WriteLine("Yの値表示: " & y)

    End Sub
   

    Sub test(ByRef x As Integer, ByVal y As Integer)

        x = 70

        y = 10

    End Sub

End Module

Module sort_test
    Sub main() '表示

        Dim x As Integer

        Dim y As Integer


        test(x, y)
        Console.WriteLine("Xの値表示：" & x)

        Console.WriteLine("Yの値表示: " & y)

    End Sub
    Sub test(ByRef x As Integer, ByRef y As Integer)

        x = 50

        y = 40
    End Sub

End Module

これで大ジョブ♪