Imports System
Public Class Test
Public Shared Sub Main()
Dim ANOTA As Boolean
Dim COMIENZO, FINAL As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
ListBox1.Items.Add(1) ' el numero uno debes aƱadirselo porque es primo y no hay otra forma que yo sepa
COMIENZO = TextBox1.Text
FINAL = TextBox2.Text
While COMIENZO <= FINAL
For DIVIDE = 2 To COMIENZO - 1
If COMIENZO Mod DIVIDE = 0 Then
ANOTA = False
Exit For
Else
ANOTA = True
End If
Next
If ANOTA = True Then
ListBox1.Items.Add(COMIENZO)
End If
COMIENZO = COMIENZO + 1
End While
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQoJCgkKCQoJRGltIEFOT1RBIEFzIEJvb2xlYW4KRGltIENPTUlFTlpPLCBGSU5BTCBBcyBJbnRlZ2VyClByaXZhdGUgU3ViIEJ1dHRvbjFfQ2xpY2soQnlWYWwgc2VuZGVyIEFzIFN5c3RlbS5PYmplY3QsIEJ5VmFsIGUgQXMgU3lzdGVtLkV2ZW50QXJncykgSGFuZGxlcyBCdXR0b24xLkNsaWNrCkxpc3RCb3gxLkl0ZW1zLkNsZWFyKCkKCkxpc3RCb3gxLkl0ZW1zLkFkZCgxKSAnIGVsIG51bWVybyB1bm8gZGViZXMgYcOxYWRpcnNlbG8gcG9ycXVlIGVzIHByaW1vIHkgbm8gaGF5IG90cmEgZm9ybWEgcXVlIHlvIHNlcGEKQ09NSUVOWk8gPSBUZXh0Qm94MS5UZXh0CkZJTkFMID0gVGV4dEJveDIuVGV4dApXaGlsZSBDT01JRU5aTyA8PSBGSU5BTApGb3IgRElWSURFID0gMiBUbyBDT01JRU5aTyAtIDEKCgpJZiBDT01JRU5aTyBNb2QgRElWSURFID0gMCBUaGVuCkFOT1RBID0gRmFsc2UKRXhpdCBGb3IKCkVsc2UKQU5PVEEgPSBUcnVlCgpFbmQgSWYKTmV4dAoKSWYgQU5PVEEgPSBUcnVlIFRoZW4KCkxpc3RCb3gxLkl0ZW1zLkFkZChDT01JRU5aTykKCkVuZCBJZgoKQ09NSUVOWk8gPSBDT01JRU5aTyArIDEKRW5kIFdoaWxlIAoJRW5kIFN1YgpFbmQgQ2xhc3M=
Visual Basic.Net Compiler version 0.0.0.5943 (Mono 3.8 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.
/home/wKOMf9/prog.vb (11,12) : error VBNC90019: Expected 'End'.
/home/wKOMf9/prog.vb (12,9) : error VBNC90019: Expected 'End'.
/home/wKOMf9/prog.vb (14,9) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (15,9) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (16,6) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (17,6) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (18,4) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (21,3) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (22,6) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (23,5) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (25,5) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (26,6) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (28,7) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (29,5) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (31,3) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (33,9) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (35,7) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (37,9) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (38,10) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (39,9) : error VBNC30203: Identifier expected.
/home/wKOMf9/prog.vb (40,10) : error VBNC30203: Identifier expected.
There were 21 errors and 0 warnings.
Compilation took 00:00:00.6502110