Programa de tabla de multiplicar
Module Module1
Sub Main ()
'la variable cadena es
de tipo entero'
Dim cadena As Integer
'la variable resultado es de tipo entero'
Dim resultado As Integer
'el console .writeline nos sirve para que nos imprima el número
de la tabla que deseamos multiplicar'
Console. WriteLine ("introduzca
número de tabla a multiplicar")
'console. readline nos sirve para que detenga la pantalla
cuando corramos el programa'
Cadena
= Console.ReadLine ()
'el for es un ciclo que multiplicara de uno en uno al número
que vamos a multiplicar'
For a As Integer = 1 To 10
'a es una variable’
Resultado
= a * cadena
'console.writeline nos imprimirá la tabla que deseemos
multiplicar del número que ingresemos’
Console.WriteLine(a & "
*" & cadena & " = "
& resultado)
Next
Console.ReadLine
()
End Sub
End
Module
Programa de tabla de suma
Module Module1
Sub Main ()
'la variable cadena es
de tipo entero'
Dim cadena As Integer
'la variable resultado es de tipo entero'
Dim resultado As Integer
'el console .writeline nos sirve para que nos imprima el número
de la tabla que deseamos sumar'
Console.
WriteLine ("introduzca número de tabla a sumar")
'console.readline nos sirve para que detenga la pantalla
cuando corramos el programa'
Cadena
= Console.ReadLine ()
'el for es un ciclo que sumara de uno en uno al numero que
vamos a sumar'
For a As Integer = 1 To 10
'a es una variable’
Resultado
= a + cadena
'console.writeline nos imprimirá la tabla que deseemos
sumar del número que ingresemos’
Console.WriteLine(a & "
+" & cadena & " = "
& resultado)
Next
Console.ReadLine
()
End Sub
End
Module
Programa de tabla de división
Module Module1
Sub Main ()
'la variable cadena es
de tipo entero'
Dim cadena As Integer
'la variable resultado es de tipo entero'
Dim resultado As Integer
'el console .writeline nos sirve para que nos imprima el número
de la tabla que deseamos dividir'
Console. WriteLine ("introduzca
número de tabla a dividir")
'console. Readline nos sirve para que detenga la pantalla
cuando corramos el programa'
cadena = Console. ReadLine ()
'el for es un ciclo que dividirá de uno en uno al número
que vamos a dividir'
For a As Integer = 1 To 10
'a es una variable’
Resultado
= a / cadena
'console.writeline nos imprimirá la tabla que deseemos
dividir del número que ingresemos’
Console. WriteLine(a & " /" & cadena & "
= " & resultado)
Next
Console.ReadLine
()
End Sub
End
Module
Programa de tabla de resta
Module Module1
Sub Main ()
'la variable cadena es
de tipo entero'
Dim cadena As Integer
'la variable resultado es de tipo entero'
Dim resultado As Integer
'el console .writeline nos sirve para que nos imprima el número
de la tabla que deseamos restar'
Console.WriteLine ("introduzca
número de tabla a restar")
'console.readline nos sirve para que detenga la pantalla cuando corramos el programa'
Cadena
= Console.ReadLine ()
'el for es un ciclo que restara de uno en uno al número que
vamos a restar'
For a As Integer = 1 To 10
'a es una variable '
Resultado
= a - cadena
'console.writeline nos imprimirá la tabla que deseemos
restar del número que ingresemos’
Console.WriteLine(a & "
-" & cadena & " = "
& resultado)
Next
Console.ReadLine
()
End Sub
End
Module
sugiero que en las aplicaciones se deberia de considerar el tipo de datos de tipo real por los resultados que se obsereva
ResponderEliminar