Public Class Arithmetic
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Double = TextBox1.Text
Dim B As Double = TextBox2.Text
MsgBox(A + B)
MsgBox(A - B)
MsgBox(A * B)
MsgBox(A / B)
End Sub
End Class
***********************************
- As duas primeiras linhas declaram as variáveis A e B. A e B irá manter os valores numéricos usados nesse programa e atribuir os valores dos dois TextBox controles (seu texto) para as variáveis A e B.
As últimas quatro linhas criam expressões com as duas variáveis e com cada um dos operadores aritméticos básicos, e exibe os resultados dessas expressões em uma caixa de mensagem. - Pressione F5 para executar o aplicativo.
Nenhum comentário:
Postar um comentário
Surpreenda com o seu conhecimento...