aplicações
Exercícios resolvidos em
Visual Basic
2014/2015
Escola Secundária de
Santa Maria Maior
Aplicações
Informáticas B
1. Exercícios resolvidos em Visual Basic 2010
Nesta sebenta são apresentadas possíveis soluções para problemas, recorrendo à linguagem de programação Visual Basic, fazendo uso de toda a informação estudada em
Introdução à Programação.
1.1.
Exercício 1
Considere um algoritmo que calcule o dobro de um número, caso este seja positivo e o seu triplo caso seja negativo. Após o cálculo escreva o resultado.
Utilize a interface sugerida.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If (Val(TextBox1.Text) < 0) Then
TextBox2.Text = Val(TextBox1.Text) * 3
ElseIf (Val(TextBox1.Text) > 0) Then
TextBox2.Text = Val(TextBox1.Text) * 2
Else
TextBox2.Text = "ZERO"
'MsgBox("Zero.", MsgBoxStyle.Information, "RESULTADO")
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
End
End Sub
Introdução à Programação
3 de 24
Aplicações
Informáticas B
Escola Secundária de
Santa Maria Maior
Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
If (Not IsNumeric(TextBox1.Text)) Then
MsgBox("Deve introduzir um valor numérico.", MsgBoxStyle.Information,
"ERRO")
TextBox1.ResetText()
TextBox2.ResetText()
TextBox1.Focus()
End If
End Sub
End Class
1.2.
Exercício 2
O utilizador insere idades de pessoas até que seja introduzida a idade zero. Deve ser contado o número de pessoas inseridas e calculada a média das suas idades. Utilize a interface sugerida. Public Class Form1