António Roberto Software

a.roberto@mail.telepac.pt

Aula de 2 de Dezembro de 2003

Funções e Subrotinas. Passagem de parâmetros: por valor e por referência.

• Alteração da estrutura do programa ParImpar 
  • Criação da função ePar

    

  •  Código da função:

    Private Function ePar(ByVal n As Integer) As Boolean
            If n Mod 2 = 0 Then
                    ePar = True
       Else
                    ePar = False
            End If
    End Function
    
    

  • Chamada da função:

    

     

• Alteração da estrutura do programa Troca
  • Criação da subrotina Troca

    

  • Código da subrotina

    Private Sub Troca(ByRef str1 As String, ByRef str2 As String)
            Dim Aux As String
       Aux = str1
       str1 = str2
       str2 = Aux
    End Sub
    
    

  • Chamada da subrotina:

    

 

Nome do Projecto	Tipo	Código Fonte
ParImparFunc	Standard EXE	ParImparFunc
TrocaSub	Standard EXE	TrocaSub