FUNCAO-RETORNAR PARAMETRO

AUGUSTTO 15/07/2005 21:13:32
#94412
por exemplo eu tenho um text e comand button a duvida é o seguinte eu queria dentro do comand button chama-se um procedimento para calcula a soma

Private Sub Command1_Click()
dim numero as integer
numero = soma (val(text1.text))
End Sub

private sub soma(num as integer)
dim soma as integer
soma=num+num
end sub

se isto tiver certo,como eu retorno um vetor é da mesma maneira que um nuemro comum?
USUARIO.EXCLUIDOS 15/07/2005 21:51:33
#94414
Veja modelo abaixo:

private function soma(num as integer) as integer
soma=num+num
end function
JEAN.JEDSON 15/07/2005 21:51:43
#94415 Resposta escolhida
tente assim




dim num as integer

Private Sub Command1_Click()
dim numero as integer
numero = soma (val(text1.text))
End Sub

private sub soma(num as integer) as integer
soma=num+num
end sub
Tópico encerrado , respostas não são mais permitidas
Voltar