[Duda] Alguien entiende este código en Pseudocódigo?

[LeGNa29A]

Falso hazle seguimiento a mi código , funciona bien ...

Uix cierto, lo vi al revés...

Aunque fallaría en algunos casos... por ejemplo si introduce un único número.
Prefiero asignar mayor y menor a la variable numero.

[43H4FH44H45H4CH49H56H45H]

Ya lo entendí, en el programa principal donde muestra el resultado de la operación (Suma) llama a la subrutina o subprograma y le da los valores (A,B) que son los valores que ingresó el usuario a las variables del subprograma en este caso X e Y y efectúa la operación que contiene éste, la de sumar, y por eso pone el comando devolver

Ahora chicos, quise pasar esto a Visual basic y no me funciona me quedó así:

Programa principal:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
A = InputBox("Ingrese un valor para a:")
B = InputBox("Ingrese un valor para b:")
MsgBox "El resultado de la operación es:" & Suma(A, B)
End Sub

Subrutina o subprograma:

Código (vb) [Seleccionar] Expandir

Private Sub Suma(X As Integer, Y As Integer, Sumar As Integer)
Sumar = A + B
End Sub

No sé como tengo que hacer para igualar al comando devolver del pseudocódigo, trate de poner A+B sólo pero me saca el signo "+" y me deja A B, entonces le puse Sumar = A+B pero igual no funciona


Y después cuando trato de ejecutarlo me aparece esto y cuando le doy aceptar me marca en amarillo la línea


Private Sub Form_Load()



Gracias y espero que me puedan ayudar

PD: No sería mejor moverlo a VB ahora?

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim A As Integer
Dim B As Integer
A = Val(InputBox("Ingrese un valor para a:"))
B = Val(InputBox("Ingrese un valor para b:"))
MsgBox "El resultado de la operación es: " & Suma(A, B)
End
End Sub




Private Function Suma(X As Integer, Y As Integer) As Integer
Suma = X + Y
End Function

[IDarknightI]

Ya lo entendí, en el programa principal donde muestra el resultado de la operación (Suma) llama a la subrutina o subprograma y le da los valores (A,B) que son los valores que ingresó el usuario a las variables del subprograma en este caso X e Y y efectúa la operación que contiene éste, la de sumar, y por eso pone el comando devolver

Ahora chicos, quise pasar esto a Visual basic y no me funciona me quedó así:

Programa principal:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
A = InputBox("Ingrese un valor para a:")
B = InputBox("Ingrese un valor para b:")
MsgBox "El resultado de la operación es:" & Suma(A, B)
End Sub

Subrutina o subprograma:

Código (vb) [Seleccionar] Expandir

Private Sub Suma(X As Integer, Y As Integer, Sumar As Integer)
Sumar = A + B
End Sub

No sé como tengo que hacer para igualar al comando devolver del pseudocódigo, trate de poner A+B sólo pero me saca el signo "+" y me deja A B, entonces le puse Sumar = A+B pero igual no funciona


Y después cuando trato de ejecutarlo me aparece esto y cuando le doy aceptar me marca en amarillo la línea


Private Sub Form_Load()



Gracias y espero que me puedan ayudar

PD: No sería mejor moverlo a VB ahora?

* Primero tienes que declarar las variables que vas a utilizar:

Código [Seleccionar] Expandir


Dim A as Integer
Dim B as Integer


* Luego sustituir el nombre de las variables A y B por X e Y, no es necesario colocar el argumento Sumar, la funcion modificada t queda asi:

Código [Seleccionar] Expandir


Private Function Suma(X As Integer, Y As Integer) As Integer
Sumar = X + Y
End Function


* Lo demas esta bien, hay se deberia de ejecutar