[asto]

عندي حل جيد تعملي لست و كوماند للاضافة و كوماند للحساب

حيث كوماند 1 للاضافة و ال2 للحساب

كود :

Private Sub Command1_Click()
x = List1.ListCount
List1.AddItem (x)
List1.List(x) = Text1.Text
End Sub

Private Sub Command2_Click()
x = List1.ListCount
xx = x - 1
a = 0
For i = 0 To xx
b = List1.List(i)
a = a + b
Next
z = a / x
End Sub