Imports System

imports microsoft.visualbasic   

Public Module Module1

    function ciao(byval s() as string) as string

        randomize()

        ciao=s(rnd(ubound(s))*10)

        end function

    Public Sub Main()

        dim nome(5),v as string

        nome(0)="triches"

        nome(1)="miki"

        nome(2)="triki"

        nome(3)="eli"

        nome(4)="mimi"

        nome(5)="mamma"

        v=ciao(nome)

        console.writeline(v)

    End Sub

End Module