Funzione simile a String()

Volendo utilizzare una funzione interna esplicita, da noi scritta, avente risultato identico alla funzione String( ) ^{[nota 1]} di Gambas, è possibile adottare il seguente codice:

Private Function Ripete(volte As Integer, car As String) As String
 
 Dim rit As String
 
  Do
    rit &= car
    Dec volte
  Loop Until volte = 0
  
  Return rit
 
End

Note

[1] La Funzione String( ) restituisce una stringa contenente tante volte il contenuto di tipo Stringa del suo 2° parametro quante volte specificato nel suo primo parametro di tipo Intero.