Public Class Comparação
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Double = CDbl(TextBox1.Text)
Dim B As Double = CDbl(TextBox2.Text)
MsgBox(A > B)
MsgBox(A < B)
MsgBox(A = B)
End Sub
End Class
********************************************
- As duas primeiras linhas declaram as variáveis A e B, que armazenarão os valores numéricos usados no programa. Elas usam a instrução CDbl para converter o texto de Textbox1 e Textbox2 para valores numéricos.Finalmente, as três últimas linhas criam expressões para comparar as duas variáveis usando três operadores de comparação básicos e exibem os resultados dessas expressões nas três caixas de mensagem.
- Pressione F5 para executar o aplicativo.
- Digite um número em cada uma das caixas de texto e clique em Button1.
A primeira caixa de mensagem exibirá True se A (o número que você inseriu na primeira caixa de texto) for maior do que B (o número que você inseriu na segunda caixa de texto); caso contrário, ela exibirá False.A segunda caixa de mensagem exibirá True seA for menor que B, e a terceira caixa de mensagem exibirá True se os dois números forem iguais.
Tente digitar números diferentes para as caixas de texto para ver como os resultados são alterados.
Nenhum comentário:
Postar um comentário
Surpreenda com o seu conhecimento...