Programación En Visual Basic

Dim y As Integer, x As Integer Private Sub CommandButton1_Click() Dim k As Integer, i As Integer Dim r As Integer k = 2: y = 4 For i = 1 To 2 r = r + h(k) Call kubo k=k+1 Next i TextBox1 = x + y + rEnd Sub Function h(p As Integer) As Integer h=y+p y=y+1 End Function Sub kubo() If (y Mod 2 = 0) Then x = h(y) Else x=y+1 End If End Sub

General: Se definen como variables generales “y” y “x”, esdecir, se pueden utilizar y modificar tanto en el programa principal como en el subprograma y la función. Estas variables no se deben declarar en el programa principal ni en el subprograma, ni en lafunción." Los valores de “x” y “y” no necesitan enviarse entre los programas porque a medida que se va actualizando la variable, los 3(programa, subprog. Y función) ya “saben” el valor de “x” y “y”.Programa principal: Se definen k, i y r como enteros k=2 y=4 Se empieza el ciclo for i = 1 to 2 i=1 r = r + h(k)  r = r + h(2)  se envía a la función “h” el valor de 2 Ahora pasamos al la funcionFunction h(p As Integer) As Integer  la función “h” lo recibe y se lo asigna al valor de p = 2. h=y+p=4+2=6 y = y + 1 = 4 + 1 = 5  El valor antiguo de y es 4, porque y se declaró en general y porende se puede usar en cualquiera, ya sea en el programa principal, el subprograma o la función. El valor de “y” no necesita enviarse entre los programas porque a medida que se va actualizando lavariable, los 3(programa, subprog. Y función) ya “saben” el valor de “y”. End Function  La función le devuelve al programa principal el valor en el que quedó “h”, es decir, h = 6. El programa principal lorecibirá reemplazándolo como h(2) = 6 en la expresión que había hecho llamar la función: r = r + h(2) Se cierra la función.

Continúa el programa principal: r = r + h(2) = 0 + 6 = 6 call kubo  Seinvoca al subprograma “kubo”, pero en este caso no se le envía ningún dato. Ahora pasamos al subprograma

Sub kubo() If ((y = 5) Mod 2 = 0) No Cumple Se realiza el “else” x = y + 1 = 5 + 1 = 6  “x”...