CALCULO

IRENKO 07/11/2012 11:46:56
#413711
Pessoal, tenho Chr(61) e gostaria de coloca-lo 100 vezes na tela, como vazer esse calculo?

Tentei Chr(61) * 100, mas não é isso.
FILMAN 07/11/2012 12:03:03
#413714 Resposta escolhida
você ira precisar fazer um LOOP pode ser assim

private Function Print_Char61() as string
    Dim sStr as String
    Dim i as Integer
    sStr = [Ô][Ô]

    For i = 1 to 100
        sStr = sStr & Chr$(61)
    Next

    Print_Char61 = sStr
End Function

[ô]Para Chamar a funcção faça o seguinte

msgbox Print_Char61()
[ô]ou
txtChr61.Text = Print_Char61()



Espero ter ajudado
PDIAS 07/11/2012 12:18:24
#413716

assim é melhor

Private Function Print_Char61() As String
Dim sStr As String
sStr = [Ô][Ô]
sStr = String(100, Chr$(61))
Print_Char61 = sStr
End Function
IRENKO 07/11/2012 13:45:16
#413721
Isso mesmo amigos!

Grato pela dica.
Tópico encerrado , respostas não são mais permitidas
Voltar