imports System
public class MainClass
  public shared sub Main()
 
Module Example
   Public Sub Main()
      Dim rnd As New Random()
 
      Console.WriteLine("20 random integers from -100 to 100:")
      For ctr As Integer = 1 To 20
         Console.Write("{0,6}", rnd.Next(-100, 101))
         If ctr Mod 5 = 0 Then Console.WriteLine()
      Next
      Console.WriteLine()
 
      Console.WriteLine("20 random integers from 1000 to 10000:")      
      For ctr As Integer = 1 To 20
         Console.Write("{0,8}", rnd.Next(1000, 10001))
         If ctr Mod 5 = 0 Then Console.WriteLine()
      Next
      Console.WriteLine()
 
      Console.WriteLine("20 random integers from 1 to 10:")
      For ctr As Integer = 1 To 20
         Console.Write("{0,6}", rnd.Next(1, 11))
         If ctr Mod 5 = 0 Then Console.WriteLine()
      Next
   End Sub
End Module
' The example displays output similar to the following:
'       20 random integers from -100 to 100:
'           65   -95   -10    90   -35
'          -83   -16   -15   -19    41
'          -67   -93    40    12    62
'          -80   -95    67   -81   -21
'       
'       20 random integers from 1000 to 10000:
'           4857    9897    4405    6606    1277
'           9238    9113    5151    8710    1187
'           2728    9746    1719    3837    3736
'           8191    6819    4923    2416    3028
'       
'       20 random integers from 1 to 10:
'            9     8     5     9     9
'            9     1     2     3     8
'            1     4     8    10     5
'            9     7     9    10     5
 
   ' Console.WriteLine("Hello, World!")
'    dim n as Integer
 '   n=Console.ReadLine
 '   dim i as Integer
  '  for i=0 to n step 1
    '  dim r as Double
   '   r=Math.Exp(Math.Log(2)*i)
    '  Console.Write(Math.Round(r))
    '  Console.Write(" ")
 '   next i
 ' end sub
'end class

aW1wb3J0cyBTeXN0ZW0KcHVibGljIGNsYXNzIE1haW5DbGFzcwogIHB1YmxpYyBzaGFyZWQgc3ViIE1haW4oKQoKTW9kdWxlIEV4YW1wbGUKICAgUHVibGljIFN1YiBNYWluKCkKICAgICAgRGltIHJuZCBBcyBOZXcgUmFuZG9tKCkKCiAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCIyMCByYW5kb20gaW50ZWdlcnMgZnJvbSAtMTAwIHRvIDEwMDoiKQogICAgICBGb3IgY3RyIEFzIEludGVnZXIgPSAxIFRvIDIwCiAgICAgICAgIENvbnNvbGUuV3JpdGUoInswLDZ9Iiwgcm5kLk5leHQoLTEwMCwgMTAxKSkKICAgICAgICAgSWYgY3RyIE1vZCA1ID0gMCBUaGVuIENvbnNvbGUuV3JpdGVMaW5lKCkKICAgICAgTmV4dAogICAgICBDb25zb2xlLldyaXRlTGluZSgpCgogICAgICBDb25zb2xlLldyaXRlTGluZSgiMjAgcmFuZG9tIGludGVnZXJzIGZyb20gMTAwMCB0byAxMDAwMDoiKSAgICAgIAogICAgICBGb3IgY3RyIEFzIEludGVnZXIgPSAxIFRvIDIwCiAgICAgICAgIENvbnNvbGUuV3JpdGUoInswLDh9Iiwgcm5kLk5leHQoMTAwMCwgMTAwMDEpKQogICAgICAgICBJZiBjdHIgTW9kIDUgPSAwIFRoZW4gQ29uc29sZS5Xcml0ZUxpbmUoKQogICAgICBOZXh0CiAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCkKCiAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCIyMCByYW5kb20gaW50ZWdlcnMgZnJvbSAxIHRvIDEwOiIpCiAgICAgIEZvciBjdHIgQXMgSW50ZWdlciA9IDEgVG8gMjAKICAgICAgICAgQ29uc29sZS5Xcml0ZSgiezAsNn0iLCBybmQuTmV4dCgxLCAxMSkpCiAgICAgICAgIElmIGN0ciBNb2QgNSA9IDAgVGhlbiBDb25zb2xlLldyaXRlTGluZSgpCiAgICAgIE5leHQKICAgRW5kIFN1YgpFbmQgTW9kdWxlCicgVGhlIGV4YW1wbGUgZGlzcGxheXMgb3V0cHV0IHNpbWlsYXIgdG8gdGhlIGZvbGxvd2luZzoKJyAgICAgICAyMCByYW5kb20gaW50ZWdlcnMgZnJvbSAtMTAwIHRvIDEwMDoKJyAgICAgICAgICAgNjUgICAtOTUgICAtMTAgICAgOTAgICAtMzUKJyAgICAgICAgICAtODMgICAtMTYgICAtMTUgICAtMTkgICAgNDEKJyAgICAgICAgICAtNjcgICAtOTMgICAgNDAgICAgMTIgICAgNjIKJyAgICAgICAgICAtODAgICAtOTUgICAgNjcgICAtODEgICAtMjEKJyAgICAgICAKJyAgICAgICAyMCByYW5kb20gaW50ZWdlcnMgZnJvbSAxMDAwIHRvIDEwMDAwOgonICAgICAgICAgICA0ODU3ICAgIDk4OTcgICAgNDQwNSAgICA2NjA2ICAgIDEyNzcKJyAgICAgICAgICAgOTIzOCAgICA5MTEzICAgIDUxNTEgICAgODcxMCAgICAxMTg3CicgICAgICAgICAgIDI3MjggICAgOTc0NiAgICAxNzE5ICAgIDM4MzcgICAgMzczNgonICAgICAgICAgICA4MTkxICAgIDY4MTkgICAgNDkyMyAgICAyNDE2ICAgIDMwMjgKJyAgICAgICAKJyAgICAgICAyMCByYW5kb20gaW50ZWdlcnMgZnJvbSAxIHRvIDEwOgonICAgICAgICAgICAgOSAgICAgOCAgICAgNSAgICAgOSAgICAgOQonICAgICAgICAgICAgOSAgICAgMSAgICAgMiAgICAgMyAgICAgOAonICAgICAgICAgICAgMSAgICAgNCAgICAgOCAgICAxMCAgICAgNQonICAgICAgICAgICAgOSAgICAgNyAgICAgOSAgICAxMCAgICAgNQoKICAgJyBDb25zb2xlLldyaXRlTGluZSgiSGVsbG8sIFdvcmxkISIpCicgICAgZGltIG4gYXMgSW50ZWdlcgogJyAgIG49Q29uc29sZS5SZWFkTGluZQogJyAgIGRpbSBpIGFzIEludGVnZXIKICAnICBmb3IgaT0wIHRvIG4gc3RlcCAxCiAgICAnICBkaW0gciBhcyBEb3VibGUKICAgJyAgIHI9TWF0aC5FeHAoTWF0aC5Mb2coMikqaSkKICAgICcgIENvbnNvbGUuV3JpdGUoTWF0aC5Sb3VuZChyKSkKICAgICcgIENvbnNvbGUuV3JpdGUoIiAiKQogJyAgIG5leHQgaQogJyBlbmQgc3ViCidlbmQgY2xhc3M=

MzA=

30