EXERCICIOS_VB6

Recommendations

Info

Capítulo 3Estruturas de Selecção Embutidas Exercício Resolvido3.1 Elabore um programa em Visual Basic para o auxiliar a cambiar Euros, sabendo que: €1 = 0.9796Dólares (USA), €1 = 0.6274 Libras (GB) e €1 = 120.22 Ienes (Japão). O valor de câmbio deve serapresentado formatado com duas casas decimais, e no caso de ser um valor superior ou igual a1000, deve ser mostrado com separadores de milhares. Para a interface sugere-se o seguintemodelo:Programação do Botão Cambiar:1. Algoritmo (Fluxograma e Pseudo-código):Visual Basic 12
Capítulo 3Estruturas de Selecção EmbutidasInícioEscrever( “Indique o valor em euros a cambiar” )Ler( Euros )Escrever( “Indique a opção (Dólar, Libra ou Iene)” )Ler( Opcao )Se (Opcao = “Dolar”) EntãoCambio Euros * 0.9796Escrever( “Dólares= ”, Cambio )Senão Se (Opcao = “Libra”) EntãoCambio Euros * 0.6274Escrever( “Libras= ”, Cambio)SenãoCambio Euros * 120.22Escrever( “Ienes= ”, Cambio )Fim SeFim SeFim2. Codificação em Visual Basic:Private Sub CmdCambiar_Click()Dim Euros As Single, Cambio As SingleEuros = val(TxtEuros.Text)If (OptDolar.Value = True) ThenCambio = Euros * 0.9796LblCambio.Caption = Format(Cambio, "#,##0.#0")LblMoeda.Caption = "Dólares"ElseIf (OptLibra.Value = True) ThenCambio = Euros * 0.6274LblCambio.Caption = Format(Cambio, "#,##0.#0")LblMoeda.Caption = "Libras"ElseCambio = Euros * 120.22LblCambio.Caption = Format(Cambio, "#,##0.#0")LblMoeda.Caption = "Ienes"End IfEnd SubVisual Basic 13
Page 3: 1 Entradas e Saídas ______________
Page 6 and 7: Capítulo 1Entradas e Saídas2. Cod
Page 8 and 9: Capítulo 1Entradas e Saídas2. Cod
Page 10 and 11: Capítulo 1Entradas e SaídasText2A
Page 12 and 13: Capítulo 2Estruturas de Selecção
Page 22 and 23: Capítulo 4Estruturas de Repetiçã
Page 42 and 43: AnexosFluxogramas" #$"% &$' Símbol
Page 44 and 45: AnexosVisual Basic - O Fundamental
Page 46 and 47: AnexosVisual Basic - Mensagens de E

EXERCICIOS_VB6

Create successful ePaper yourself

Delete template?

Save as template?