Imports System
Public Class Test
Dim RandomClass As New Random()
Dim RememberSet As New HashSet(Of Integer)
Dim RandomNumber As Integer
While RememberSet.Count < 5
RandomNumber = RandomClass.Next(0, 10)
If RememberSet.Add(RandomNumber) Then
MsgBox(RandomNumber)
End If
End While
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CkRpbSBSYW5kb21DbGFzcyBBcyBOZXcgUmFuZG9tKCkKRGltIFJlbWVtYmVyU2V0IEFzIE5ldyBIYXNoU2V0KE9mIEludGVnZXIpCgpEaW0gUmFuZG9tTnVtYmVyIEFzIEludGVnZXIKCldoaWxlIFJlbWVtYmVyU2V0LkNvdW50IDwgNQogICAgUmFuZG9tTnVtYmVyID0gUmFuZG9tQ2xhc3MuTmV4dCgwLCAxMCkKICAgIElmIFJlbWVtYmVyU2V0LkFkZChSYW5kb21OdW1iZXIpIFRoZW4KICAgICAgICBNc2dCb3goUmFuZG9tTnVtYmVyKQogICAgRW5kIElmCkVuZCBXaGlsZQpFbmQgQ2xhc3M=
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/othfTM/prog.vb (9,6) : error VBNC90019: Expected 'End'.
/home/othfTM/prog.vb (10,17) : error VBNC30203: Identifier expected.
/home/othfTM/prog.vb (11,7) : error VBNC30203: Identifier expected.
/home/othfTM/prog.vb (12,15) : error VBNC30203: Identifier expected.
/home/othfTM/prog.vb (13,11) : error VBNC30203: Identifier expected.
/home/othfTM/prog.vb (14,10) : error VBNC30203: Identifier expected.
/home/othfTM/prog.vb (15,10) : error VBNC30203: Identifier expected.
There were 7 errors and 0 warnings.
Compilation took 00:00:00.6483510