ficha de trabalho numero 3 exercicio 1

Private Sub cmdsoma_Click()
resultado.Caption = Val(oper1.Text) + Val(oper2.Text) + Val(oper3.Text)
End Sub

Private Sub cmdmedia_Click()
resultado.Caption = resultado.Caption / 3
End Sub

Private Sub cmdsair_Click()
End
End Sub