usandoFuncionesExternas

Public Sub sumar()

  Dim valor As Float

  valor = UsoLibreriatest.sumar(5.3, 9.8)

  Print "suma devolviendo valor: ", valor

End

Public Sub vector()

  Dim Avector As New Float[]
  Dim Bvector As New Float[]
  Dim a As Integer

  Avector.Add(1)
  Avector.Add(2.5)
  Avector.Add(3.1)

  UsoLibreriatest.duplicaInicial(Avector, Bvector) 'uso funcion el vector Avector es multiplicado por 2

  Print "Resultado usando vectores...."
  For a = 0 To Bvector.count - 1
    Print Bvector[a],
  Next
  Print

End

Public Sub valorarTablero()

  Dim tab As New Float[400, 400]
  Dim sumatablero As Float

  tab[0, 0] = 1.3
  tab[0, 1] = -5.2
  tab[3, 2] = -10.1
  tab[3, 3] = -100.01
  tab[2, 2] = -1000.003
  tab[399, 399] = 90.0005

  sumatablero = UsoLibreriaTest.ValorarTablero(tab, 400)
  Print "Valor: ", sumatablero

End