Info visual basic

Solo disponible en BuenasTareas
  • Páginas : 2 (402 palabras )
  • Descarga(s) : 0
  • Publicado : 12 de diciembre de 2011
Leer documento completo
Vista previa del texto
Imports System.console
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)...
tracking img