Visual Basic

 

 Em Visual Basic não foram realizados tantos programas como em Pascal, uma vez que o 1º Perído foi maioritariamente para estudar este último. No entanto, criámos um programa para mostrar imagens de acordo com a opção escolhida, numa barra, pelo utilizador e outro que, ao serem inseridos dois valores, calcula a sua soma. Iremos mostrar este mesmo.

Eis o código:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
If Val(TextBox3.Text) < 100 Then
MessageBox.Show("A soma é menor que 100 e vale " & Val(TextBox3.Text) & " !")
End If
If Val(TextBox3.Text) >= 100 And Val(TextBox3.Text) < 1000 Then
MessageBox.Show("A soma é gigantesca pois vale " & Val(TextBox3.Text) & " !!")
End If
If Val(TextBox3.Text) >= 1000 Then
MessageBox.Show("A soma é ultramente mega-gigantesca, pois vale " & Val(TextBox3.Text) & " !!!")
End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
End Sub
End Class