Imports System
Public Class Test
Public Shared Sub Main( )
' your code goes here
Dim i1 as integer
Dim i2 as integer
Dim i3 as integer
Dim i4 as integer
Dim i5 as integer
Dim i6 as integer
Dim i7 as integer
Dim i8 as integer
Dim ss as string
Dim x as integer
Dim v as integer
Dim c as string
Dim vl(7) as integer
For i1 = 0 To 1
For i2 = 0 To 1
For i3 = 0 To 1
For i4 = 0 To 1
For i5 = 0 To 1
For i6 = 0 To 1
For i7 = 0 To 1
For i8 = 0 To 1
ss = Chr$(48 + i1) _
& Chr$(48 + i2) _
& Chr$(48 + i3) _
& Chr$(48 + i4) _
& Chr$(48 + i5) _
& Chr$(48 + i6) _
& Chr$(48 + i7) _
& Chr$(48 + i8)
'
vl( 0 ) = 1
vl( 1 ) = 2
vl( 2 ) = 4
vl( 3 ) = 8
vl( 4 ) = 16
vl( 5 ) = 32
vl( 6 ) = 64
vl( 7 ) = 128
For x = 0 to 7
c = sv.substring ( x, 1 )
If c = "1" then
v = v
End if
Next
'
Console.WriteLine(v.tostring & " - " & ss)
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQknIHlvdXIgY29kZSBnb2VzIGhlcmUKCkRpbSBpMSBhcyBpbnRlZ2VyCkRpbSBpMiBhcyBpbnRlZ2VyCkRpbSBpMyBhcyBpbnRlZ2VyCkRpbSBpNCBhcyBpbnRlZ2VyCkRpbSBpNSBhcyBpbnRlZ2VyCkRpbSBpNiBhcyBpbnRlZ2VyCkRpbSBpNyBhcyBpbnRlZ2VyCkRpbSBpOCBhcyBpbnRlZ2VyCkRpbSBzcyBhcyBzdHJpbmcKICAgIERpbSB4IGFzIGludGVnZXIgCiAgICBEaW0gdiBhcyBpbnRlZ2VyCiAgICBEaW0gYyBhcyBzdHJpbmcgCiAgICBEaW0gdmwoNykgYXMgaW50ZWdlcgoKRm9yIGkxID0gMCBUbyAxCiAgICAgICAgRm9yIGkyID0gMCBUbyAxCiAgICAgICAgICAgIEZvciBpMyA9IDAgVG8gMQogICAgICAgICAgICAgICAgRm9yIGk0ID0gMCBUbyAxCiAgICAgICAgICAgICAgICAgICAgRm9yIGk1ID0gMCBUbyAxCiAgICAgICAgICAgICAgICAgICAgICAgIEZvciBpNiA9IDAgVG8gMQogICAgICAgICAgICAgICAgICAgICAgICAgICAgRm9yIGk3ID0gMCBUbyAxCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRm9yIGk4ID0gMCBUbyAxCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAoKc3MgPSBDaHIkKDQ4ICsgaTEpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTIpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTMpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTQpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTUpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTYpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTcpIF8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJiBDaHIkKDQ4ICsgaTgpCgonCiAgICB2bCgwKSAgPSAxCiAgICB2bCgxKSAgPSAyCiAgICB2bCgyKSAgPSA0CiAgICB2bCgzKSAgPSA4CiAgICB2bCg0KSAgPSAxNgogICAgdmwoNSkgID0gMzIKICAgIHZsKDYpICA9IDY0CiAgICB2bCg3KSAgPSAxMjgKCiAgIEZvciB4ID0gMCB0byA3CiAgICAgICBjID0gc3Yuc3Vic3RyaW5nKHgsIDEpCgogICAgICAgSWYgYyA9ICIxIiB0aGVuCiAgICAgICAgICAgdiA9IHYgCiAgICAgICBFbmQgaWYKICAgTmV4dCAKCicKQ29uc29sZS5Xcml0ZUxpbmUodi50b3N0cmluZyAmICIgLSAiICYgc3MpCgoKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBOZXh0IGk4CiAgICAgICAgICAgICAgICAgICAgICAgICAgICBOZXh0IGk3CiAgICAgICAgICAgICAgICAgICAgICAgIE5leHQgaTYKICAgICAgICAgICAgICAgICAgICBOZXh0IGk1CiAgICAgICAgICAgICAgICBOZXh0IGk0CiAgICAgICAgICAgIE5leHQgaTMKICAgICAgICBOZXh0IGkyCk5leHQgaTEKCglFbmQgU3ViCgoKRW5kIENsYXNz
compilation info
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/VgEnzA/prog.vb (51,14) : error VBNC30451: 'sv' is not declared. It may be inaccessible due to its protection level.
There were 1 errors and 0 warnings.
Compilation took 00:00:00.9863730
stdout