السلام عليكم ورحمة الله
إن شاء الله يكون المطلوب
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim total As Integer = (From itm In ListView1.Items Select CDbl(itm.Text)).Sum()
For Each itm As ListViewItem In Me.ListView1.Items
If itm.SubItems.Count < 3 Then itm.SubItems.AddRange(New String() {"", ""})
itm.SubItems(1).Text = Val(itm.Text) - (total / Me.ListView1.Items.Count)
itm.SubItems(2).Text = Val(itm.SubItems(1).Text) ^ 2
Next
End Sub

