ficha de trabalho numero 19 exercicio 1

Private Sub Command1_Click()
Dim x As Integer, a As Integer, b As Integer
a = Text2.Text
b = Text3.Text
List1.AddItem Text1.Text
List2.AddItem Text2.Text
List3.AddItem Text3.Text
x = (a * b)
Label5.Caption = x
List4.AddItem x
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Label5.Caption = " "
End Sub

Private Sub Command3_Click()
Dim x As Integer
x = List1.ListIndex
List1.RemoveItem x
List2.RemoveItem x
List3.RemoveItem x
List4.RemoveItem x
End Sub

Private Sub Command4_Click()
Dim x As Integer
For x = 0 To List4.ListCount
soma = soma + Val(List4.List(x))
Next x
Label11.Caption = Round(soma, 2) & " € "
Label5.Caption = ""
End Sub