COMO MULTIPLICAR UM CARACTERE [�]-[�]

EDSON.PEREIRA 22/02/2023 15:35:18
#501044
Olá!...
Existe algum método que multiplique um caractere "X" quantas vezes eu quiser? exemplo:
tenho o caractere "-"

X 5 = "-----"

eu peguei um exemplo mas não e pra vb6
https://pt.stackoverflow.com/questions/115399/como-multiplicar-um-caractere-x-quantas-vezes-quiser
NILSONTRES 22/02/2023 15:51:22
#501045
Faz um laço e adiciona ele quantas vezes for preciso.
dim i as integer
dim vezes as integer=10
dim carac as string="-"
for i = 0 to vezes
carac=carac & "-"
next
MsgBox(carac)
EDSON.PEREIRA 22/02/2023 18:22:01
#501046
NILSONTRES, ...
Deus certo a sua dica
eu pessei que ir dar certo pra que eu queria.
eu queria mesmo e sortear numeros de 5 ate 50 caractere eu pequei um exempo + o seu

Public Function NumeroRandomico(NumerosCaractere As Integer)
Dim i As Integer
Dim Vezes As Double
Vezes = NumerosCaractere

Dim Carac As String
For i = 0 To Vezes
Carac = (Carac & "1")
Next

"Número randÃ'mico use a função RND, sendo que para cinco dígitos seria o máximo 99999.
Dim NumAleatorio As Double
Dim StrNumeroFormatado As String
"NumAleatorio = Int(Rnd * 999999999999999#) "original
NumAleatorio = Int(Rnd * Carac)

StrNumeroFormatado = LTrim(RTrim(Str(NumAleatorio)))
StrNumeroFormatado = String(Vezes - Len(StrNumeroFormatado), "0") & StrNumeroFormatado "original
NumeroRandomico = StrNumeroFormatado

End Function
KERPLUNK 22/02/2023 18:56:19
#501048 Resposta escolhida
Isso já existe gente! É a função String

Dim MyString
MyString = String(5, "*")
EPISCOPAL 22/02/2023 21:26:28
#501049
Citação:

:
Isso já existe gente! É a função String


Dim MyString
MyString = String(5, "*")




É o pessoal da ficando esquecido .... eu ja iria descrever .....
Tópico encerrado , respostas não são mais permitidas
Voltar