Adição de números inteiros

Public Class parameterse

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim aNumber As Integer = CInt(TextBox1.Text)

Dim bNumber As Integer = CInt(TextBox2.Text)

MsgBox(AddTwoNumbers(aNumber, bNumber))

End Sub

Function AddTwoNumbers(ByVal N1 As Integer, ByVal N2 As Integer) _

As Integer

Return N1 + N2

End Function

End Class

**************************************************

1. Esse código declara dois inteiros e converte o texto nas duas caixas de texto para valores inteiros.Em seguida, passa os valores para a função AddTwoNumbers e exibe o valor retornado em uma caixa de mensagem.
2. Pressione F5 para executar a página.
3. Digite um valor de número em cada caixa de texto e clique no botão.Os dois números são adicionados e o resultado é exibido em uma caixa de mensagem.