Info visual basic
Module Laura
Sub Main()
Const n1 As Byte = 1
Const n2 As Byte = 2
Const n3 As Byte = 3
Const n4 As Byte = 4
Const n5 AsByte = 5
Const n6 As Byte = 6
Const n7 As Byte = 7
Const n8 As Byte = 8
Const n9 As Byte = 9
Const n10 As Byte = 10
Dim num2, resultado, opc AsByte
WriteLine("Tablas de Multiplicar")
WriteLine("1.Tabla del 1")
WriteLine("2.Tabla del 2")
WriteLine("3.Tabla del 3")
WriteLine("4.Tabla del 4")WriteLine("5.Tabla del 5")
WriteLine("6.Tabla del 6")
WriteLine("7.Tabla del 7")
WriteLine("8.Tabla del 8")
WriteLine("9.Tabla del 9")WriteLine("10.Tabla del 10")
Write("Elige la tabla que deseas saber:")
opc = ReadLine()
Clear()
Select Case (opc)
Case 1
WriteLine("Tabla del 1")While (num2 < 10)
num2 = num2 + 1
resultado = n1 * num2
WriteLine(n1 & "X" & num2 & "=" & resultado)
EndWhile
End Select
Select Case (opc)
Case 2
WriteLine("Tabla del 2")
While (num2 < 10)
num2 = num2 + 1resultado = n2 * num2
WriteLine(n2 & "X" & num2 & "=" & resultado)
End While
End Select
Select Case (opc)
Case 3WriteLine("Tabla del 3")
While (num2 < 10)
num2 = num2 + 1
resultado = n3 * num2
WriteLine(n3 & "X" & num2 &"=" & resultado)
End While
End Select
Select Case (opc)
Case 4
WriteLine("Tabla del 4")
While (num2 < 10)...
Regístrate para leer el documento completo.