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