Visual Basic - NO FUNCIONA CORRECTAMENTE, CENTROS NUMERICOS VB

Life is soft - evento anual de software empresarial
   
Vista:

NO FUNCIONA CORRECTAMENTE, CENTROS NUMERICOS VB

Publicado por Diana Gonzalez (1 intervención) el 29/03/2013 03:41:37
Hola, bueno vengo buscando ayuda para un programa que encontre en internet, de centros numericos.

La codificacion es:

Private Sub Command1_Click()
On Error GoTo salir
Dim sumaA As Integer
While 1 < TextBox1.Text
For i = 1 To numero - 1
sumaA = sumaA + i
Next
i = numero + 1
While sumaA > sumaB
sumaB = sumaB + i
i = i + 1
If sumaA = sumaB Then
MsgBox numero
End If
Wend

numero = numero + 1
sumaA = 0
sumaB = 0
Wend
Exit Sub
salir:
End
End Sub


otro

Private Sub Form_Load()
Dim N As Long, I As Long, S As Long
Dim K As Integer, Cad As String
N = 1: K = 0: Cad = ""
While True
S = 0
For I = 1 To (N - 1)
If N Mod I = 0 Then S = S + I
Next I
If N = S Then
Cad = Cad & N & vbCrLf
K = K + 1
End If
If K = 3 Then
TxtPerfecto = Cad
Exit Sub
End If
N = N + 1
Wend
End Sub


Mi problema es que, cuando lo corro, valla, no me muestra nada y sin mas se sale, no marca error ni nada, solo se sale, pero en una ocacion, lo corri y si, me mostro el mensaje pero le di al usuario la opcion de decidir hasta que numero ver que centros hay,
Ejemplo:
DEL 1 AL [ 8]
y me manda 3 centros, es decir.. ¿Que onda?
Ojala puedan ayudarme, estoy por arrancarme la cabeza xd :3
Gracias, Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Calendario
- Despertador
- Guia práctica

NO FUNCIONA CORRECTAMENTE, CENTROS NUMERICOS VB

Publicado por Pedro Luis (57 intervenciones) el 29/03/2013 14:28:01
Quita el On Error Goto, y podras ver el error que sale y obrar en consecuencia.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar