Visual Basic - Exercícios
João Manuel R. S. Tavares
CFAC – Concepção e Fabrico Assistidos
por Computador
Exercício 1
Escreva um programa em VB que quando se clica no botão Show
apareça uma caixa de mensagem com o titulo “Exercício 1”,
mensagem “Olá” e com o botão Yes.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
2
...Exercício 1
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
3
Exercício 2
Escreva um programa em VB que quando se clica no botão Show
apareça uma caixa de entrada para o nome do utilizador, com o
titulo “Exercício 1” e mensagem “Introduza o seu nome”, e
depois apresente uma caixa de mensagem com o titulo “Exercício
1”, mensagem “Olá (nome de entrada)!” e com o botão Yes.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
4
Exercício 3
Escreva um programa em VB que quando se clica no botão Soma
apareça uma caixa de mensagem com o titulo “Resultado”, mensagem
“(soma dos valores nas 2 caixas de texto)” e com o botão Yes.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
5
...Exercício 3
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
6
...Exercício 3
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
7
Exercício 4
Escreva um programa em VB que quando se clica no botão Run a
circunferência desloca-se de 50 para a direita em intervalos de
tempo iguais a 100 e quando se clica no botão Exit termina.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
8
...Exercício 4
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
9
Exercício 5 - Somador
Programa para somar dois operadores.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
10
...Exercício 5
Alterar o título do formulário.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
11
…Exercício 5
Desenhar uma label e
definir o seu título.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
12
…Exercício 5
Desenhar uma caixa de texto.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
13
…Exercício 5
Limpar o texto por
defeito da caixa.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
14
…Exercício 5
Desenhar um botão e
definir o seu título.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
15
…Exercício 5
Acrescentar o código associado ao botão.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
16
…Exercício 5
Escolher o objecto.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
17
…Exercício 5
Escolher o evento associado.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
18
…Exercício 5
Executar o programa.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
19
…Exercício 5
Programa em execução.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
20
…Exercício 5
Gravar o formulário.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
21
…Exercício 5
...Gravar o formulário.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
22
…Exercício 5
Gravar o projecto.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
23
…Exercício 5
...Gravar o projecto.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
24
…Exercício 5
Abrir um projecto existente.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
25
…Exercício 5
...Abrir um projecto existente.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
26
…Exercício 5
Criar um programa executável.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
27
…Exercício 5
...Criar um programa executável.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
28
Exercício 6
Escreva um programa em VB que quando se clica num dos botões
o texto da Label1 passa a ser igual ao da Caption do botão e com
o respectivo alinhamento.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
29
...Exercício 6
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
30
...Exercício 6
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
31
Exercício 7
Escreva um programa em VB que quando uma das caixa de texto
tem o focus a sua Caption passa a Bold, quando perde o focus
deixa de estar a Bold; quando clica-se no botão Big o texto
aumenta (Font.Size = 12) e quando se clica no botão Normal o
texto volta ao tamanho normal (Font.Size = 8.25).
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
32
… Exercício 7
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
33
Exercício 8
Escreva um programa em VB que quando a caixa de texto Life tem
o focus aparece na caixa comprida “I like life, it's something to
do.”, quando a caixa de texto Future tem o focus aparece “The
future isn't what it used to be.”, e quando a caixa de texto Life tem
o focus aparece “Tell the truth and run.”.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
34
...Exercício 8
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
35
Exercício 9
Escreva um programa em VB que quando a caixa de texto superior
tem o focus aparece na caixa do meio “Enter your full name.”, e
quando a caixa inferior tem o focus aparece “Enter your phone
number, including area code.”.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
36
Exercício 10
Escreva um programa em VB que a formatação dos caracteres da
caixa de texto altera conforme o botão pressionado.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
37
Exercício 11
Escreva um programa em VB que a fonte utilizada na caixa de
texto é definida conforme o botão pressionado.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
38
Exercício 12
Escreva um programa em VB que realize o cálculo das seguintes
expressões:
•7 x 8 + 5;
•5.5% de 20;
•17 (3 + 162);
•(1 + 2.9)3;
•15 - 3(2 + 34);
•4 1/2 - 3 5/8.
Nota: Utilize uma PictureBox para realizar o
output:
•para escrever: nomePictureBox.Print a; b
•para limpar a PictureBox: nomePictureBox.Cls
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
39
Exercício 13
Se n é o número de segundos entre o raio e o trovão, a trovoada
está a uma distância igual a n/5 milhas. Escreva um programa em
VB que realize o cálculo da distância a partir de n.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
40
Exercício 14
Escreva um programa em VB que realize a conversão da
temperatura de graus Celsius para graus Fahrenheit e vice-versa. O
programa deverá funcionar do seguinte modo: quando pressiona-se
o botão Convert to Celsius a temperatura é convertida de
Fahrenheit para Celsius, a Caption do formulário muda para
Celsius, o botão é escondido e torna-se visível o botão Convert to
Fahrenheit, pressionando-se este botão funciona de modo idêntico.
5
C = (F − 32 )
9
9
F = C + 32
5
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
41
...Exercício 14
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
42
Exercício 15
Escreva um programa em VB que
calcule a percentagem de jogos
ganhos por uma equipa de Baseball.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
43
Exercício 16
Escreva um programa em VB que permita ao
utilizador inserir números e, após a entrada de
cada um, visualizar o somatório e a quantidade
de números introduzidos. O programa deverá
permitir que o utilizador recomece a contagem.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
44
...Exercício 16
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
45
Exercício 17
Escreva um programa em VB
que permita ao utilizador
determinar o valor ANSI das
teclas que constituem o
teclado.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
46
Exercício 18
Escreva um programa
em VB que, após a
inserção do apelido e do
1º nome, apresente o
nome inserido após o
campo referente ao 1º
nome perder o focus.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
47
Exercício 19
Escreva um programa em VB que leia de um ficheiro de
texto os dados referentes a estados (estado, capital,
população e área), calcule a densidade população/área
e apresente os dados devidamente formatados numa
pictureBox.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
48
...Exercício 19
InputBox para o
nome do
ficheiro
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
49
...Exercício 19
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
50
...Exercício 19
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
51
Exercício 20
Escreva um programa em VB que estime a velocidade
de um carro a partir da distância de deslizamento
percorrida durante a sua travagem.
velocidade[milhas/hora ] = 24 * distância[pés]
InputBox
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
52
...Exercício 20
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
53
Exercício 21
PictureBox
Escreva um programa em VB
que simule a extracção dos 7
dígitos do número do Joker.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
54
Exercício 22
Escreva um programa em VB que troque numa dada
frase uma palavra por uma outra.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
55
...Exercício 22
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
56
Exercício 23
Escreva um programa em VB que peça ao utilizador
um número positivo com um ponto decimal e mostre
o número de dígitos à esquerda do ponto e à direita
do mesmo.
InputBox
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
57
...Exercício 23
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
58
Exercício 24
Escreva um programa em VB que apresente a soma
do número 3 com o número 4 utilizando um
subprograma para descrever a aplicação (a primeira
frase visível na InputBox apresentada).
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
59
...Exercício 24
Adicionar o subprograma:
1º seleccionar Add Procedure… no menu Tools;
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
60
...Exercício 24
...Adicionar o subprograma:
2º designar o nome do
subprograma, tipo e
acessibilidade;
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
61
...Exercício 24
...Adicionar o subprograma:
3º escrever o código do subprograma.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
62
...Exercício 24
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
63
Exercício 25
Escreva um programa em VB que apresente o
crescimento da ocupação. Os dados deverão ser lidos
a partir de um ficheiro, o programa deverá utilizar três
vezes um subprograma responsável pelo cálculo da
percentagem do crescimento e pela escrita na
PictureBox.
valor1991 − valor1982
=
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
valor1982
*100
64
...Exercício 25
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
65
Exercício 26
Escreva um programa em VB que processe a conta
de um cliente. O programa deverá utilizar um
subprograma para realizar o input de cada item
(designação e preço) e um outro para realizar o
output de cada item na PictureBox. Nota: Só após se
clicar no botão “Display...” é escrita na PictureBox a
soma, a taxa (soma*5% ) e o total.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
66
...Exercício 26
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
67
...Exercício 26
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
68
Exercício 27
Segundo Plato um homem deve casar com uma
mulher que tenha metade da sua idade mais 7 anos.
Escreva o programa em VB que a partir da idade de
um homem (inserido a partir de uma InputBox) calcule,
utilizando uma função, a idade ideal que a mulher
deverá ter. Nota: deverá realizar a entrada/saída de
dados através de subprogramas.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
69
...Exercício 27
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
70
Exercício 28
Algumas linguagens de programação têm uma função
designada por Ceil (que não existe em VB) que
arredonda um número decimal para o inteiro seguinte;
por exemplo, Ceil(3.2)=4, Ceil(-1.6)=-1. Escreva um
programa em VB que utilize uma função que
arredonde números decimais de forma equivalente à
função Ceil.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
71
...Exercício 28
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
72
Exercício 29
Sabendo que a tarifa do envio de um carta por via
aérea é de 5 cents até 1 ounce e mais 10 cents por
cada ounce adicional escreva um programa em VB
que a partir do peso de uma carta determine o custo
do selo. Nota: a entrada/saída de dados deve ser
realizada por subprogramas, a determinação do custo
deve ser realizada por uma função que, por sua vez,
utiliza a função Ceil do exercício anterior.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
73
...Exercício 29
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
74
Exercício 30
Sabendo que a taxa de juros de
uma conta poupança, de
depósitos constantes ao mês, é
de 0.5% ao mês escreva um
programa em VB que a partir do
montante do deposito escreva a
balanço no fim dos quatro
primeiros meses. Nota: utilize
uma função para calculo de
cada balanço e um subprograma
para o escrever na PictureBox.
Bal N = 1.005 * Bal A + Dep
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
75
...Exercício 30
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
76
Exercício 31
Escreva um programa em
VB que determine o maior
de dois números
definidos pelo utilizador.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
77
Exercício 32
Escreva um programa em VB
que determine o maior de três
números definidos pelo
utilizador.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
78
Exercício 33
Escreva um programa em VB
que determine o maior de dois
números definidos pelo
utilizador verificando se são
iguais.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
79
Exercício 34
Uma loja de computadores vende disquetes a 110
Esc. para encomendas inferiores a 100 unid. e a 100
Esc. para encomendas superiores ou iguais.
Escreva um programa em VB que determine o custo
de uma dada encomenda de disquetes.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
InputBox
80
...Exercício 34
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
81
Exercício 35
Escreva um programa em VB
que leia os resultados de um
jogo a partir de uma caixa de
texto e mostre os dois
resultados superiores
introduzidos.
Notas: Utilize duas variáveis de formulário para guardar
os resultados superiores (devem ser iguais a zero
quando o formulário for carregado “Form_Load”). Utilize
um subprograma para ler os resultados e um outro para
escrever os dois resultados superiores na PictureBox.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
82
...Exercício 35
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
83
...Exercício 35
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
84
Exercício 36
Escreva um programa em VB que transforme notas
de 0 a 100 em notas A, B, C, D e F: 90-100=A, 8089=B, 70-79=C, 60-69=D, 0-59=F.
PictureBox
InputBox
Nota: Utilize um subprograma para realizar o Input através
de uma InputBox e uma função para realizar a conversão.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
85
...Exercício 36
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
86
...Exercício 36
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
87
Exercício 37
Escreva um programa em VB que traduza o significado
das abreviações normalmente utilizadas pelos médicos:
ac - before meals, ad lib - freely as needed, bid - twice
daily, gtt - a drop, hs - at bedtime, qid - four times a day,
para abreviações não conhecidas - Abbreviation not
known.
Nota: Utilize um subprograma para realizar o Input através de uma
InputBox e um outro para realizar a conversão e escrever o resultado na
PictureBox.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
88
...Exercício 37
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
89
...Exercício 37
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
90
Exercício 38
Escreva um programa em VB que
crie a tabela de conversão para
temperaturas entre -40º e 40º
Celsius, com incrementos de 5º,
para temperaturas em º
Fahrenheit.
Nota: Utilize uma função para
fazer a conversão e um
subprograma para escrever na
PictureBox.
9
F º = C º +32
5
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
91
...Exercício 38
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
92
Exercício 39
A população de uma cidade em 1995 era 15.6
milhões; sabendo que a taxa de crescimento da
população é de 3% ao ano escreva um programa
em VB que determine quando a população atinge os
30 milhões.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
93
...Exercício 39
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
94
Exercício 40
O coeficiente de restituição de uma bola, um número
entre 0 e 1, especifica quanta energia é conservada
quando esta atinge uma superfície rígida. Por
exemplo, um coeficiente de 0.9 significa que a bola
sobe até 90% da altura anterior a cada salto. Escreva
um programa em VB que, a partir do coeficiente de
restituição e da altura inicial, determine quantas as
vezes uma bola salta até atingir uma altura inferior a
10 cm e a distância total percorrida pela mesma.
Nota: Utilize um subprograma para realizar os inputs
(utilizando InputBox’s), um outro para escrever os
resultados na PictureBox e um outro para realizar os
cálculos.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
95
...Exercício 40
InputBox
InputBox
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
96
...Exercício 40
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
97
...Exercício 40
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
98
Exercício 41
Imagine que a uma dada conta, com um determinado
saldo inicial e rendendo 5% de juros ao ano, é retirado
ao fim de cada ano 1000 c. Escreva um programa em
VB que, a partir do saldo inicial, determine quantos
anos são necessários para que o saldo da conta seja
igual ou inferior a 0.
Nota: Tenha cuidado de evitar ciclos infinitos que
podem ocorrer com determinados saldos iniciais.
Input
Box
Picture
Box
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
99
...Exercício 41
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
100
Exercício 42
Este fluxograma
determina o maior divisor
comum de dois inteiros
positivos definidos pelo
utilizador. Escreva em VB
o programa
correspondente.
Fim
Mostrar
M
Fazer
T=N
Não
Início
N <> 0
?
Sim
Obter 2 inteiros
positivos M e N
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
Fazer
N = M mod N
Fazer
M=T
101
...Exercício 42
InputBox
InputBox
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
102
...Exercício 42
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
103
Exercício 43
Escreva um programa em VB que procure um dado
nome num ficheiro de texto e mostre o respectivo
número de telefone. Caso o nome não conste do
ficheiro deve aparecer a indicação correspondente.
Nota: Utilize a função EOF(#) para determinar se foi
atingido o fim do ficheiro.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
104
...Exercício 43
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
105
Exercício 44
Admita que um ficheiro contem as notas dos alunos
num exame final. Escreva um programa em VB que
determine a média das notas e a percentagem dos
alunos que têm nota superior à média.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
106
...Exercício 44
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
107
Exercício 45
Escreva um programa em VB que
crie a tabela de conversão para
temperaturas entre -40º e 40º
Celsius, de 5 em 5º, para
temperaturas em º Fahrenheit.
Nota: Utilize um ciclo For (para
repetir 17 vezes), uma função
para fazer a conversão e um
subprograma para escrever na
PictureBox.
9
F º = C º +32
5
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
108
...Exercício 45
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
109
Exercício 46
Escreva um programa em VB que desenhe um
rectângulo com estrelas numa PictureBox. O número
de estrelas que constitui cada lado é definido pelo
utilizador através de uma InputBox.
Nota: Utilize um subprograma
para desenhar os lados
horizontais e um outro para
desenhar os lados verticais,
deve alterar a fonte da
PictureBox para Courier ou
para Terminal, utilize ciclos
For.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
110
...Exercício 46
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
111
...Exercício 46
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
112
Exercício 47
Escreva um programa em VB que, utilizando dois
ciclos For, escreva numa PictureBox o produto dos
inteiros de 1 a 4.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
113
...Exercício 47
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
114
Exercício 48
∑
∑ ∑
(∑ )
∑
∑
∑
Escreva um programa em VB que
n xi yi − xi yi
determine a recta de regressão linear m =
2
n xi xi −
xi
y=m*x+b pelo método dos mínimos
quadrados e estime o valor de y para um
yi − m xi
dado x. As amostras x/y deverão ser lidas
b=
a partir de um ficheiro.
n
Notas: Utilize variáreis de formulário para o m e para o b, a
determinação da formula da recta e a escrita da mesma
deve ser realizada por intermédio de subprogramas.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
PictureBox
115
...Exercício 48
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
116
...Exercício 48
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
117
...Exercício 48
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
118
Exercício 49
Escreva um programa em VB que apresente os nomes dos
alunos que tiveram num exame nota superior à média
registada. Os nomes dos oito alunos, e as respectivas
notas, deveram ser lidas para vectores a partir de um
ficheiro.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
119
...Exercício 49
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
120
Exercício 50
Escreva um programa em VB que a partir do nome de uma
equipa de futebol determine a sua posição na Liga
Portuguesa de Futebol na época 98/99.
Notas: Considere apenas as cinco primeiras posições;
utilize um vector, ao nível de formulário, de strings; o vector
deverá ser inicializado quando o formulário é carregado.
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
121
...Exercício 50
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
122
...Exercício 50
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
123
Exercício 51
Escreva um programa em VB que dado, através de
uma InputBox, o número de um mês (de 1 a 12)
escreva a sua designação numa PictureBox.
InputBox
PictureBox
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
124
...Exercício 51
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
125
Exercício 52
Escreva um programa em VB que, a partir dos dados
definidos num ficheiro para 5 voos, apresente para um
determinado número de voo a informação: origem,
destino e hora. Caso não exista o voo pretendido o
utilizador deverá ser devidamente informado.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
126
...Exercício 52
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
127
...Exercício 52
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
128
Exercício 53
Escreva um programa em VB que determine a média
de 85, 92, 75, 68, 84, 86, 94, 74, 79 e 88. O programa
deverá utilizar: um vector, definido localmente, para
guardar os valores especificados; um subprograma
para realizar a inicialização do vector (passado como
argumento); uma função para determinar a soma dos
elementos do vector (passado como argumento).
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
129
...Exercício 53
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
130
Exercício 54
Escreva um programa em VB que dadas as distâncias
entre 4 cidades, lidas a partir de um ficheiro,
apresente a distância entre 2 cidades especificadas
pelo utilizador.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
131
...Exercício 54
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
132
...Exercício 54
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
133
Exercício 55
Escreva um programa em VB que dados os resultados
de três jogadores de golfe em 4 rounds, lidos a partir
de um ficheiro, apresente para cada jogador o
resultado total e para cada round a média.
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
134
...Exercício 55
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
135
...Exercício 55
@2009 - João Manuel R. S. Tavares
CFAC: Visual Basic - Exercícios Resolvidos
136