aplicações

APLICAÇÕES INFORMÁTICAS B

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