fork download
copy 
  1. Imports System
  2.  
  3. Public Class Test
  4. 	Public Shared Sub Main()
  5.     Private Sub btCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCalcular.Click
  6.  
  7.         Dim texto As String
  8.  
  9.  
  10.         Dim x As Integer
  11.         Dim y As Integer
  12.  
  13.  
  14.         Dim caracter As Char
  15.  
  16.  
  17.         Dim CaracterRepetido As Integer
  18.  
  19.  
  20.         texto = Me.txtCalcular.Text
  21.  
  22.  
  23.         If Me.txtCalcular.Text.Length = 0 Then
  24.             MessageBox.Show("Ingrese la cadena de caracteres", "Calcular", MessageBoxButtons.OK, MessageBoxIcon.Warning)
  25.         Else
  26.            CaracterRepetido = 0
  27.             For x = 0 To texto.Length - 1
  28.                 caracter = texto.Chars(x)
  29.                 For y = 0 To texto.Length - 1
  30.                     If y <> x Then
  31.                         If caracter = texto.Chars(y) Then
  32.                             CaracterRepetido = CaracterRepetido + 1
  33.                         End If
  34.                     End If
  35.                 Next
  36.             Next
  37.  
  38.             If CaracterRepetido <> 0 Then
  39.                 MessageBox.Show("Se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
  40.             Else
  41.                 MessageBox.Show("No se encontraron caracteres repetidos", "Control de caracteres", MessageBoxButtons.OK, MessageBoxIcon.Information)
  42.             End If
  43.         End If
  44.         CaracterRepetido = 0
  45.     End Sub
  46. End Class
  47.  
  48.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
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/QrBedN/prog.vb (5,16) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/QrBedN/prog.vb (5,16) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
There were 2 errors and 0 warnings.
Compilation took 00:00:00.6524100
stdout
copy 
Standard output is empty
https://ideone.com/xEkmK
language:
VB.NET (mono-3.10)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!