fork download

copy

Imports System
 
Public Class Test
	Public Shared Sub Main()
 
 
        Dim texto As String
 
 
        Dim x As Integer
        Dim y As Integer
 
 
        Dim caracter As Char
 
 
        Dim CaracterRepetido As Integer
 
 
        texto = Me.txtCalcular.Text
 
 
        If Me.txtCalcular.Text.Length = 0 Then
            MessageBox.Show("Ingrese la cadena de caracteres", "Calcular", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
           CaracterRepetido = 0
            For x = 0 To texto.Length - 1
                caracter = texto.Chars(x)
                For y = 0 To texto.Length - 1
                    If y <> x Then
                        If caracter = texto.Chars(y) Then
                            CaracterRepetido = CaracterRepetido + 1
                        End If
                    End If
                Next
            Next
 
            If CaracterRepetido <> 0 Then
                MessageBox.Show("Se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("No se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
        CaracterRepetido = 0
 
End Class
 
 

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/OGgx5j/prog.vb (46,10) : Error VBNC90019: Expected 'Sub'.
Error recovery not implemented yet.
/home/OGgx5j/prog.vb (46,10) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
Error recovery not implemented yet.
/home/OGgx5j/prog.vb (48,2) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/OGgx5j/prog.vb (48,2) : Error VBNC99999: vbnc crashed nearby this location in the source code.
/home/OGgx5j/prog.vb (48,2) : Error VBNC99999: Unexpected error: Object reference not set to an instance of an object
  at vbnc.TypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, Int32 TypeArgumentCount) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/TypeDeclaration.vb:109 
  at vbnc.GenericTypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters) [0x0001f] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/GenericTypeDeclaration.vb:36 
  at vbnc.PartialTypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters, vbnc.TypeImplementsClauses Implements) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/PartialTypeDeclaration.vb:43 
  at vbnc.ClassDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.TypeDeclaration DeclaringType, vbnc.MemberDeclarations Members, vbnc.Identifier Name, vbnc.TypeParameters TypeParameters, vbnc.NonArrayTypeName Inherits, vbnc.TypeImplementsClauses TypeImplementsClauses) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/ClassDeclaration.vb:47 
  at vbnc.Parser.ParseClassDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x001aa] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:91 
  at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00010] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1436 
  at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent, vbnc.MemberDeclarations Members) [0x0005d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1349 
  at vbnc.Parser.ParseTypeMembers (vbnc.TypeDeclaration Parent) [0x0000c] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1322 
  at vbnc.Parser.ParseClassDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00147] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:84 
  at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x00010] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1436 
  at vbnc.Parser.ParseAssemblyMembers (vbnc.AssemblyDeclaration Parent, System.String RootNamespace, vbnc.MemberDeclarations declarations) [0x001a8] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1482 
  at vbnc.Parser.ParseAssemblyDeclaration (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00092] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:433 
  at vbnc.Parser.Parse (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00002] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:58 
  at vbnc.Compiler.Compile_Parse () [0x0006d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:363 
Compilation took 00:00:00.6363930

Standard output is empty