Rodrigo Lab

 

     

 

 

  If/Else - Gasolina ou Álcool?  -> Após criar uma caixa de texto, programe-a com o seguinte comando:  Private Sub Calcular_Click() G = Val(gasolina) A = Val(alcool) P = (A / G) ag = P*100 If P > "0,7" Then recomendacao = "A melhor escolha é gasolina!" Else  recomendacao = "A melhor escolha é álcool!" End If End Sub  ___________________________________________________________________ Private Sub Sair_Click() End

        Média Aritmética    -> Iniciar um projeto e criar um formulário com 5 caixas de texto.  -> Usando a caixa de propriedades à direita, é possível alterar o título e cor de fundo do formulário.  -> Ir à área de código clicando 2 vezes no botão e copiar o seguinte código:   Private Sub Command1_Click() n1 = Val(Text1) n2 = Val(Text2) n3 = Val(Text3) n4 = Val(Text4) qtdNotas = 4 peso1 = 1 peso2 = 2 peso3 = 3 peso4 = 4 nf = (n1 . peso 1 + n2 . peso2 + n3 . peso3 + n4 . peso4)/(peso1 + peso2 + peso3 + peso4) Text5 = nf End Sub