VB llama al procedimiento general de suma y al procedimiento general de diferencia para buscar información detallada para cada afirmación.
Private?Sub?Command1_Click() 'Haga clic en Comando1
Dim?x%,?y%?' ¿Definir xey como gráficos largos, es decir, números?
x?=?InputBox("Ingrese datos") 'Aparece una ventana para ingresar datos y asígnelos a x
y?=?InputBox("Ingrese datos data" ) 'Aparece una ventana para ingresar datos y asignar los datos a y
add?x,?y 'Ejecutar el proceso sub.add
Llamar?subst(x , ?y)? y) 'Ejecute el procedimiento almacenado sub.subst, que es el mismo que add.x,.y anterior, y también se puede escribir como subst.x,.y
End. Sub
Sub.add(a,?b) 'Ejecutar sub.add procedimiento almacenado
Dim.c.As?Integer 'Definir c
c? =?a?+?b?'c El valor es igual a a+b
Imprimir?c?'Salidas c
End?Sub
Sub ?subst(a,?b)'Sub?subst ?procedure
Dim?c%'Define c
c?=?a?b'c El valor es igual a a-b
Imprimir?c?'Salida c
Fin?Sub