Visual Basic Visual Basic -- Exercícios · CFAC: Visual Basic - Exercícios Resolvidos...

68
CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI @2009 - João Manuel R. S. Tavares 1 Visual Basic Visual Basic - Exercícios Exercícios João Manuel R. S. Tavares João Manuel R. S. Tavares CFAC Concepção e Fabrico Assistidos por Computador Exercício 1 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 2 CFAC: Visual Basic - Exercícios Resolvidos

Transcript of Visual Basic Visual Basic -- Exercícios · CFAC: Visual Basic - Exercícios Resolvidos...

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 1

Visual Basic Visual Basic -- ExercíciosExercícios

João Manuel R. S. TavaresJoão Manuel R. S. Tavares

CFAC – Concepção e Fabrico Assistidos por Computador

Exercício 1Exercício 1Escreva um programa em VB que quando se clica no botão Show

apareça uma caixa de mensagem com o titulo “Exercício 1”, p ç g ,

mensagem “Olá” e com o botão Yes.

@2009 - João Manuel R. S. Tavares 2CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 2

...Exercício 1...Exercício 1

@2009 - João Manuel R. S. Tavares 3CFAC: Visual Basic - Exercícios Resolvidos

Exercício 2Exercício 2Escreva um programa em VB que quando se clica no botão Showapareç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 4CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 3

Exercício 3Exercício 3Escreva 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 5CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 3...Exercício 3

@2009 - João Manuel R. S. Tavares 6CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 4

...Exercício 3...Exercício 3

@2009 - João Manuel R. S. Tavares 7CFAC: Visual Basic - Exercícios Resolvidos

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.

o 4

o 4

Exe

rcíc

iE

xerc

íci

@2009 - João Manuel R. S. Tavares 8CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 5

...Exercício 4...Exercício 4

@2009 - João Manuel R. S. Tavares 9CFAC: Visual Basic - Exercícios Resolvidos

Exercício 5 Exercício 5 -- SomadorSomadorPrograma para somar dois operadores.

@2009 - João Manuel R. S. Tavares 10CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 6

...Exercício 5...Exercício 5

Alterar o título do formulário.

@2009 - João Manuel R. S. Tavares 11CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5

Desenhar uma label e definir o seu título.

@2009 - João Manuel R. S. Tavares 12CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 7

…Exercício 5…Exercício 5

Desenhar uma caixa de texto.

@2009 - João Manuel R. S. Tavares 13CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5

Limpar o texto por defeito da caixa.

@2009 - João Manuel R. S. Tavares 14CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 8

…Exercício 5…Exercício 5

Desenhar um botão e definir o seu título.

@2009 - João Manuel R. S. Tavares 15CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5

Acrescentar o código associado ao botão.@2009 - João Manuel R. S. Tavares 16CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 9

…Exercício 5…Exercício 5

Escolher o objecto.

@2009 - João Manuel R. S. Tavares 17CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5

Escolher o evento associado.@2009 - João Manuel R. S. Tavares 18CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 10

…Exercício 5…Exercício 5

Executar o programa.

@2009 - João Manuel R. S. Tavares 19CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5Programa em execução.

@2009 - João Manuel R. S. Tavares 20CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 11

…Exercício 5…Exercício 5Gravar o formulário.

@2009 - João Manuel R. S. Tavares 21CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5...Gravar o formulário.

@2009 - João Manuel R. S. Tavares 22CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 12

…Exercício 5…Exercício 5Gravar o projecto.

@2009 - João Manuel R. S. Tavares 23CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5...Gravar o projecto.

@2009 - João Manuel R. S. Tavares 24CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 13

…Exercício 5…Exercício 5Abrir um projecto existente.

@2009 - João Manuel R. S. Tavares 25CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5...Abrir um projecto existente.

@2009 - João Manuel R. S. Tavares 26CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 14

…Exercício 5…Exercício 5Criar um programa executável.

@2009 - João Manuel R. S. Tavares 27CFAC: Visual Basic - Exercícios Resolvidos

…Exercício 5…Exercício 5...Criar um programa executável.

@2009 - João Manuel R. S. Tavares 28CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 15

Exercício 6Exercício 6

Escreva um programa em VB que quando se clica num dos botões

d L b l1 i l d C i d b ã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 29CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 6...Exercício 6

@2009 - João Manuel R. S. Tavares 30CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 16

...Exercício 6...Exercício 6

@2009 - João Manuel R. S. Tavares 31CFAC: Visual Basic - Exercícios Resolvidos

Exercício 7Exercício 7Escreva um programa em VB que quando uma das caixa de texto tem o focus a sua Caption passa a Bold, quando perde o focusd i d B ld d li b ã Bdeixa 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 32CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 17

… Exercício 7… Exercício 7

@2009 - João Manuel R. S. Tavares 33CFAC: Visual Basic - Exercícios Resolvidos

Exercício 8Exercí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 too 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 34CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 18

...Exercício 8...Exercício 8

@2009 - João Manuel R. S. Tavares 35CFAC: Visual Basic - Exercícios Resolvidos

Exercício 9Exercício 9Escreva um programa em VB que quando a caixa de texto superiortem o focus aparece na caixa do meio “Enter your full name.”, e f p y ,quando a caixa inferior tem o focus aparece “Enter your phone number, including area code.”.

@2009 - João Manuel R. S. Tavares 36CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 19

Exercício 10Exercício 10Escreva um programa em VB que a formatação dos caracteres da caixa de texto altera conforme o botão pressionado.p

@2009 - João Manuel R. S. Tavares 37CFAC: Visual Basic - Exercícios Resolvidos

Exercício 11Exercício 11Escreva um programa em VB que a fonte utilizada na caixa de texto é definida conforme o botão pressionado.p

@2009 - João Manuel R. S. Tavares 38CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 20

Exercício 12Exercício 12Escreva um programa em VB que realize o cálculo das seguintes expressões:p

•7 x 8 + 5;

•5.5% de 20;

•17 (3 + 162);

•(1 + 2 9)3; Nota: Utilize uma PictureBox para realizar o (1 + 2.9) ;

•15 - 3(2 + 34);

•4 1/2 - 3 5/8.

poutput:

•para escrever: nomePictureBox.Print a; b

•para limpar a PictureBox: nomePictureBox.Cls

@2009 - João Manuel R. S. Tavares 39CFAC: Visual Basic - Exercícios Resolvidos

Exercício 13Exercício 13Se 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 40CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 21

Exercício 14Exercício 14Escreva 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.

329

5 FC

325

9 CF

@2009 - João Manuel R. S. Tavares 41CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 14...Exercício 14

@2009 - João Manuel R. S. Tavares 42CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 22

Exercício 15Exercício 15Escreva um programa em VB que

l l t d jcalcule a percentagem de jogos

ganhos por uma equipa de Baseball.

@2009 - João Manuel R. S. Tavares 43CFAC: Visual Basic - Exercícios Resolvidos

Escreva um programa em VB que permita ao utilizador inserir números e após a entrada de

Exercício 16Exercício 16

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 44CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 23

...Exercício 16...Exercício 16

@2009 - João Manuel R. S. Tavares 45CFAC: Visual Basic - Exercícios Resolvidos

Escreva um programa em VBit tili d

Exercício 17Exercício 17

que permita ao utilizador determinar o valor ANSI das teclas que constituem o teclado.

@2009 - João Manuel R. S. Tavares 46CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 24

Escreva um programa em VB que após a

Exercício 18Exercício 18

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 47CFAC: Visual Basic - Exercícios Resolvidos

Escreva um programa em VB que leia de um ficheiro de texto os dados referentes a estados (estado, capital,

Exercício 19Exercício 19

( ppopulação e área), calcule a densidade população/área e apresente os dados devidamente formatados numa pictureBox.

@2009 - João Manuel R. S. Tavares 48CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 25

...Exercício 19...Exercício 19

InputBox para o nome do

PictureBox

nome do ficheiro

@2009 - João Manuel R. S. Tavares 49CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 19...Exercício 19

@2009 - João Manuel R. S. Tavares 50CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 26

...Exercício 19...Exercício 19

@2009 - João Manuel R. S. Tavares 51CFAC: Visual Basic - Exercícios Resolvidos

Escreva um programa em VB que estime a velocidade de um carro a partir da distância de deslizamento

Exercício 20Exercício 20

ppercorrida durante a sua travagem.

]pés[*24]amilhas/hor[ distânciavelocidade

InputBox

PictureBox

@2009 - João Manuel R. S. Tavares 52CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 27

...Exercício 20...Exercício 20

@2009 - João Manuel R. S. Tavares 53CFAC: Visual Basic - Exercícios Resolvidos

Escreva um programa em VBque simule a extracção dos 7

Exercício 21Exercício 21 PictureBox

dígitos do número do Joker.

@2009 - João Manuel R. S. Tavares 54CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 28

Escreva um programa em VB que troque numa dada frase uma palavra por uma outra.

Exercício 22 Exercício 22

PictureBoxfrase uma palavra por uma outra.

@2009 - João Manuel R. S. Tavares 55CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 22 ...Exercício 22

@2009 - João Manuel R. S. Tavares 56CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 29

Escreva um programa em VB que peça ao utilizador um número positivo com um ponto decimal e mostre

Exercício 23 Exercício 23

um número positivo com um ponto decimal e mostre o número de dígitos à esquerda do ponto e à direita do mesmo.

PictureBox

InputBox

@2009 - João Manuel R. S. Tavares 57CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 23...Exercício 23

@2009 - João Manuel R. S. Tavares 58CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 30

Escreva um programa em VB que apresente a soma do número 3 com o número 4 utilizando um

Exercício 24 Exercício 24

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 59CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 24 ...Exercício 24

Adicionar o subprograma:

1º seleccionar Add Procedure… no menu Tools;

@2009 - João Manuel R. S. Tavares 60CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 31

...Exercício 24 ...Exercício 24

...Adicionar o subprograma:

2º designar o nome do

subprograma, tipo e

acessibilidade;

@2009 - João Manuel R. S. Tavares 61CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 24 ...Exercício 24

...Adicionar o subprograma:

3º escrever o código do subprograma.

@2009 - João Manuel R. S. Tavares 62CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 32

...Exercício 24 ...Exercício 24

@2009 - João Manuel R. S. Tavares 63CFAC: Visual Basic - Exercícios Resolvidos

Exercício 25 Exercício 25

Escreva um programa em VB que apresente o crescimento da ocupação. Os dados deverão ser lidoscrescimento 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.

100*1982

19821991

valor

valorvalor

@2009 - João Manuel R. S. Tavares 64CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 33

...Exercício 25 ...Exercício 25

@2009 - João Manuel R. S. Tavares 65CFAC: Visual Basic - Exercícios Resolvidos

Exercício 26 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 66CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 34

...Exercício 26 ...Exercício 26

@2009 - João Manuel R. S. Tavares 67CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 26 ...Exercício 26

@2009 - João Manuel R. S. Tavares 68CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 35

Exercício 27 Exercício 27

Segundo Plato um homem deve casar com uma mulher que tenha metade da sua idade mais 7 anos.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 69CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 27 ...Exercício 27

@2009 - João Manuel R. S. Tavares 70CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 36

Exercício 28Exercí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 71CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 28...Exercício 28

@2009 - João Manuel R. S. Tavares 72CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 37

Exercício 29 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 pcada ounce adicional escreva um programa em VBque 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 73CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 29 ...Exercício 29

@2009 - João Manuel R. S. Tavares 74CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 38

Exercício 30 Exercício 30

Sabendo que a taxa de juros de uma conta poupança, de p p ç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

fuma função para calculo de cada balanço e um subprograma para o escrever na PictureBox.

DepBalBal AN *005.1@2009 - João Manuel R. S. Tavares 75CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 30 ...Exercício 30

@2009 - João Manuel R. S. Tavares 76CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 39

Exercício 31 Exercício 31

Escreva um programa em VB que determine o maior qde dois números definidos pelo utilizador.

PictureBox

@2009 - João Manuel R. S. Tavares 77CFAC: Visual Basic - Exercícios Resolvidos

Exercício 32 Exercício 32

Escreva um programa em VBque determine o maior de três qnúmeros definidos pelo utilizador.

PictureBox

@2009 - João Manuel R. S. Tavares 78CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 40

Exercício 33 Exercício 33

Escreva um programa em VBque determine o maior de dois qnúmeros definidos pelo utilizador verificando se são iguais.

PictureBox

@2009 - João Manuel R. S. Tavares 79CFAC: Visual Basic - Exercícios Resolvidos

Exercício 34 Exercício 34

Uma loja de computadores vende disquetes a 110 Esc. para encomendas inferiores a 100 unid. e a 100 pEsc. para encomendas superiores ou iguais.

Escreva um programa em VB que determine o custo de uma dada encomenda de disquetes.

PictureBox InputBox

@2009 - João Manuel R. S. Tavares 80CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 41

...Exercício 34 ...Exercício 34

@2009 - João Manuel R. S. Tavares 81CFAC: Visual Basic - Exercícios Resolvidos

Exercício 35 Exercício 35

Escreva um programa em VBque leia os resultados de um qjogo a partir de uma caixa de texto e mostre os dois resultados superiores introduzidos.

N t Utili d iá i d f lá i dNotas: 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 82CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 42

...Exercício 35 ...Exercício 35

@2009 - João Manuel R. S. Tavares 83CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 35 ...Exercício 35

@2009 - João Manuel R. S. Tavares 84CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 43

Exercício 36 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, 80-89=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 85CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 36 ...Exercício 36

@2009 - João Manuel R. S. Tavares 86CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 44

...Exercício 36 ...Exercício 36

@2009 - João Manuel R. S. Tavares 87CFAC: Visual Basic - Exercícios Resolvidos

Exercício 37 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 88CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 45

...Exercício 37 ...Exercício 37

@2009 - João Manuel R. S. Tavares 89CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 37 ...Exercício 37

@2009 - João Manuel R. S. Tavares 90CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 46

Exercício 38 Exercício 38

Escreva um programa em VB que crie a tabela de conversão para ptemperaturas entre -40º e 40º Celsius, com incrementos de 5º, para temperaturas em º Fahrenheit.

Nota: Utilize uma função para ffazer a conversão e um subprograma para escrever na PictureBox.

32º5

9º CF

@2009 - João Manuel R. S. Tavares 91CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 38 ...Exercício 38

@2009 - João Manuel R. S. Tavares 92CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 47

Exercício 39 Exercício 39

A população de uma cidade em 1995 era 15.6 milhões; sabendo que a taxa de crescimento da qpopulaçã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 93CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 39 ...Exercício 39

@2009 - João Manuel R. S. Tavares 94CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 48

Exercício 40 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 mesma10 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 95CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 40 ...Exercício 40

InputBox

InputBox

PictureBox

InputBox

@2009 - João Manuel R. S. Tavares 96CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 49

...Exercício 40 ...Exercício 40

@2009 - João Manuel R. S. Tavares 97CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 40 ...Exercício 40

@2009 - João Manuel R. S. Tavares 98CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 50

Exercício 41 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.

InputBoxp

PictureBox

@2009 - João Manuel R. S. Tavares 99CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 41 ...Exercício 41

@2009 - João Manuel R. S. Tavares 100CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 51

Fim

Exercício 42 Exercício 42

Este fluxograma determina o maior divisor

d d i i t i

Início N <> 0

FazerT = N

Fa er

MostrarM

Não

comum de dois inteiros positivos definidos pelo utilizador. Escreva em VBo programa correspondente.

Início

Obter 2 inteirospositivos M e N

N <> 0?

FazerM = T

FazerN = M mod NSim

@2009 - João Manuel R. S. Tavares 101CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 42 ...Exercício 42

InputBox

InputBox

PictureBox

@2009 - João Manuel R. S. Tavares 102CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 52

...Exercício 42 ...Exercício 42

@2009 - João Manuel R. S. Tavares 103CFAC: Visual Basic - Exercícios Resolvidos

Exercício 43 Exercício 43

Escreva um programa em Escreva um programa em VBVB que procure um dado que procure um dado nome num ficheiro de texto e mostre o respectivo nome num ficheiro de texto e mostre o respectivo número de telefone. Caso o nome não conste do número de telefone. Caso o nome não conste do ficheiro deve aparecer a indicação correspondente.ficheiro deve aparecer a indicação correspondente.

NotaNota: Utilize a função : Utilize a função EOF(#)EOF(#) para determinar se foi para determinar se foi atingido o fim do ficheiro.atingido o fim do ficheiro.

PictureBox@2009 - João Manuel R. S. Tavares 104CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 53

...Exercício 43 ...Exercício 43

@2009 - João Manuel R. S. Tavares 105CFAC: Visual Basic - Exercícios Resolvidos

Exercício 44 Exercício 44

Admita que um ficheiro contem as notas dos alunos Admita que um ficheiro contem as notas dos alunos num exame final. Escreva um programa em num exame final. Escreva um programa em VBVB que que determine a média das notas e a percentagem dos determine a média das notas e a percentagem dos alunos que têm nota superior à média.alunos que têm nota superior à média.

PictureBox

@2009 - João Manuel R. S. Tavares 106CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 54

ício

44

ício

44

...E

xerc

í...

Exe

rcí

@2009 - João Manuel R. S. Tavares 107CFAC: Visual Basic - Exercícios Resolvidos

Exercício 45 Exercício 45

Escreva um programa em VB que crie a tabela de conversão para ptemperaturas 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

fpara fazer a conversão e um subprograma para escrever na PictureBox.

32º5

9º CF

@2009 - João Manuel R. S. Tavares 108CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 55

...Exercício 45 ...Exercício 45

@2009 - João Manuel R. S. Tavares 109CFAC: Visual Basic - Exercícios Resolvidos

Exercício 46 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 d h l d ti idesenhar os lados verticais, deve alterar a fonte da PictureBox para Courier ou para Terminal, utilize ciclos For.

@2009 - João Manuel R. S. Tavares 110CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 56

...Exercício 46 ...Exercício 46

@2009 - João Manuel R. S. Tavares 111CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 46 ...Exercício 46

@2009 - João Manuel R. S. Tavares 112CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 57

Exercício 47 Exercício 47

Escreva um programa em VB que, utilizando dois ciclos For, escreva numa PictureBox o produto dos , pinteiros de 1 a 4.

@2009 - João Manuel R. S. Tavares 113CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 47 ...Exercício 47

@2009 - João Manuel R. S. Tavares 114CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 58

Exercício 48 Exercício 48

Escreva um programa em VB que determine a recta de regressão linear

*

2

iiii

xxxn

yxyxnm

y=m*x+b pelo método dos mínimos quadrados e estime o valor de y para um dado x. As amostras x/y deverão ser lidas a partir de um ficheiro.

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.

n

xmyb ii

iii xxxn

PictureBox@2009 - João Manuel R. S. Tavares 115CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 48 ...Exercício 48

@2009 - João Manuel R. S. Tavares 116CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 59

...Exercício 48 ...Exercício 48

@2009 - João Manuel R. S. Tavares 117CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 48 ...Exercício 48

@2009 - João Manuel R. S. Tavares 118CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 60

Exercício 49 Exercício 49

Escreva um programa em VB que apresente os nomes dos alunos que tiveram num exame nota superior à média

i t d O d it l tiregistada. 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 119CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 49 ...Exercício 49

@2009 - João Manuel R. S. Tavares 120CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 61

Exercício 50 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 P t d F t b l é 98/99Portuguesa 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 121CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 50 ...Exercício 50

@2009 - João Manuel R. S. Tavares 122CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 62

...Exercício 50 ...Exercício 50

@2009 - João Manuel R. S. Tavares 123CFAC: Visual Basic - Exercícios Resolvidos

Exercício 51 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) p , ( )escreva a sua designação numa PictureBox.

InputBox

PictureBox

@2009 - João Manuel R. S. Tavares 124CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 63

...Exercício 51 ...Exercício 51

@2009 - João Manuel R. S. Tavares 125CFAC: Visual Basic - Exercícios Resolvidos

Exercício 52 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 126CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 64

...Exercício 52 ...Exercício 52

@2009 - João Manuel R. S. Tavares 127CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 52 ...Exercício 52

@2009 - João Manuel R. S. Tavares 128CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 65

Exercício 53 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 p gdeverá 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 129CFAC: Visual Basic - Exercícios Resolvidos

cíci

o 53

cio

53

...E

xerc

...E

xerc

@2009 - João Manuel R. S. Tavares 130CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 66

Exercício 54 Exercício 54

Escreva um programa em VB que dadas as distâncias entre 4 cidades, lidas a partir de um ficheiro, , p ,apresente a distância entre 2 cidades especificadas pelo utilizador.

@2009 - João Manuel R. S. Tavares 131CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 54 ...Exercício 54

@2009 - João Manuel R. S. Tavares 132CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 67

...Exercício 54 ...Exercício 54

@2009 - João Manuel R. S. Tavares 133CFAC: Visual Basic - Exercícios Resolvidos

Exercício 55 Exercício 55

Escreva um programa em VB que dados os resultados de três jogadores de golfe em 4 rounds, lidos a partir j g g , pde um ficheiro, apresente para cada jogador o resultado total e para cada round a média.

@2009 - João Manuel R. S. Tavares 134CFAC: Visual Basic - Exercícios Resolvidos

CFAC: Visual Basic - Exercícios Resolvidos FEUP/DEMec/SDI

@2009 - João Manuel R. S. Tavares 68

...Exercício 55 ...Exercício 55

@2009 - João Manuel R. S. Tavares 135CFAC: Visual Basic - Exercícios Resolvidos

...Exercício 55 ...Exercício 55

@2009 - João Manuel R. S. Tavares 136CFAC: Visual Basic - Exercícios Resolvidos