Ir para conteúdo
Fórum Script Brasil

Maicon1986

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Maicon1986

Maicon1986's Achievements

0

Reputação

  1. estou com esse codigo e não consigo fazer com q apareca os resultados na textbox5 e textbox6 alguém pode me ajudar Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim resultadoa As Decimal Dim x As Integer For x = 0 To ListBox1.Items.Count - 1 resultadoa = resultadoa + CDbl(ListBox1.Items(x)) Next TextBox2.Text = Format(resultadoa, "C") Dim resultadob As Decimal Dim y As Integer For y = 0 To ListBox2.Items.Count - 1 resultadob = resultadob + CDbl(ListBox2.Items(y)) Next TextBox3.Text = Format(resultadob, "C") Dim soma As Decimal soma = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) TextBox5.Text = Format(soma, "C") Dim subtracao As Decimal subtracao = Val(TextBox5.Text) - Val(TextBox1.Text) TextBox6.Text = Format(subtracao, "C") End Sub
×
×
  • Criar Novo...