Composizione di numero decimale con numero variabile di 0

Devo "produrre" un numero decimale che sia composto da:
- 0,
- Tanti zeri quanti richiesti da una variabile ( nel nostro esempio la ho fissata a 4 )
- 1

quindi
se la mia variabile è 4 voglio ottenere 0,00001
se la mia variabile è 7 voglio ottenere 0,00000001


al momento non riesco a fare di meglio che cosi, ma penso che si puo migliorare di molto magari eliminando il ciclo

Public Function Decim() As Double

Dim StDec As String
StDec = "0,"

Dim x As Integer
    For x = 1 To 4   ' Questa sarà una variabile
        StDec = StDec & "0"
    Next

StDec = StDec & "1"

Decim = StDec

Debug.Print "StringDecimale " & StDec
Debug.Print "NumeroDecimale " & Decim

End Function

se ricordo bene c'è una funzione compatta con cui posso dire
Decim = "0," & ..... tanti zeri ....... & "1"


qualcosa che c'entra con la scrittura di file .txt con cui potevo dire per esempio
scrivi: "Nella citta di " & 20 volte il carattere "." & " c'è una fontana"


qualcuno ha idee ( nonso se mi sono spiegato bene )

Grazie

Prova un pò a scrivere la seguente formula :

10 ^ ((Variabile + 1) * -1)

Vedrai che con variabile = 4 otterrai 0.00001

Se non ti piace l' elevamento a potenza con un numero negativo puoi usare la formula equivalente :

1 / 10 ^ (Variabile + 1)

Ciao .....

Perfetto Max, molto meglio di quella che cercavo io



NB: comunque ho trovato anche la funzione a cui alludevo String(4, "0")

Grazie

Originariamente inviato da nman

Perfetto Max, molto meglio di quella che cercavo io



NB: comunque ho trovato anche la funzione a cui alludevo String(4, "0")

Grazie

La funzione String però ti costringe ad effettuare una successiva conversione di tipo da String a Decimal (Float / Real / Single / Double / etc ...) che se non è proprio necessaria tanto vale evitarla.