Imports System
Public Class Test
Public Shared Sub Main()
' your code goes here
Dim Options() As String = {"0", "0", "0", "0", "0", "0", "0", "0", "1","1","1","1","1","1","1","1"}
For x As Integer = 0 To 15
For y As Integer = 0 To 15
Console.WriteLine(Options(x) & " " & Options(y))
Next
Next
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIHlvdXIgY29kZSBnb2VzIGhlcmUKCiAgICAgICAgRGltIE9wdGlvbnMoKSBBcyBTdHJpbmcgPSB7IjAiLCAiMCIsICIwIiwgIjAiLCAiMCIsICIwIiwgIjAiLCAiMCIsICIxIiwiMSIsIjEiLCIxIiwiMSIsIjEiLCIxIiwiMSJ9CiAgICAgICAgRm9yIHggQXMgSW50ZWdlciA9IDAgVG8gMTUKICAgICAgICAgICAgRm9yIHkgQXMgSW50ZWdlciA9IDAgVG8gMTUKICAgICAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKE9wdGlvbnMoeCkgJiAiICIgJiBPcHRpb25zKHkpKQogICAgICAgICAgICBOZXh0CiAgICAgICAgTmV4dAoKCUVuZCBTdWIKRW5kIENsYXNz