Notifications
Clear all

Ajuda!!! com passagem de parâmetros

4 Posts
1 Usuários
0 Reactions
1,019 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Não to conseguindo rodar o codigo abaixo! Ajuda!!!!

ex simples;

Sub valores()

valor1= 7
valor2= 9

media valor1,valor2
End Sub

Sub media(nota1, nota2)

media = (nota1, nota2) / 2

MsgBox media

End Sub

 
Postado : 06/11/2011 8:51 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sub valores()

valor1= 7
valor2= 9

media valor1,valor2
End Sub

Sub media(nota1, nota2)

media = (nota1 + nota2) / 2

MsgBox media

End Sub

' Error de copilação o argumento não é opcional

 
Postado : 06/11/2011 8:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,

Segue abaixo com a correção.

Sub valores()

valor1 = 7
valor2 = 9

MsgBox media(valor1, valor2)
End Sub

Function media(nota1, nota2) As Double

media = (nota1 + nota2) / 2

End Function

 
Postado : 06/11/2011 9:42 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Waleu Cara Function Perferct!!

Abrç!

 
Postado : 06/11/2011 1:31 pm