Private Sub cmdChuyen_Click()Do Whi

Private Sub cmdChuyen_Click()
Do While i < List1.ListCount
If List1.Selected(i) Then
List2.AddItem List1.List(i)
List1.RemoveItem i
Else
i = i + 1
End If
Loop
End Sub

Private Sub cmdDtb_Click()
n = List1.ListCount - 1
t = tong(s, n)
diemtb = t / (n + 1)
MsgBox diemtb
End Sub
Private Sub cmdDuoidtb_Click()
n = List1.ListCount - 1
diemtb = tong(s, n) / (n + 1)
For i = 0 To n
If List1.ItemData(i) < diemtb Then
List1.Selected(i) = True
Else
List1.Selected(i) = False
End If
Next
End Sub

Private Sub cmdNhap_Click()
x = txtTen.Text
If x "" Then
List1.AddItem x
List1.ItemData(List1.NewIndex) = txtDiem.Text
txtTen.Text = ""
txtDiem.Text = ""
End If
End Sub

Private Sub cmdXoa_Click()
x = List1.ListIndex
If x -1 Then List1.RemoveItem x
End Sub
Function tong(ByVal s As Integer, ByVal n As Integer) As Double
For i = 0 To n
s = List1.ItemData(i)
t = t + s
Next
tong = t
End Function

Kết quả (Việt) 1:

Riêng phụ cmdChuyen_Click()Làm trong khi tôi < List1.ListCount Nếu List1.Selected(i) sau đó List2.AddItem List1.List(i) List1.RemoveItem tôi Khác tôi = i + 1 Kết thúc nếuLoopCuối tiểuRiêng phụ cmdDtb_Click()n = List1.ListCount - 1t = tông (s, n)diemtb = t / (n + 1)MsgBox diemtbCuối tiểuRiêng phụ cmdDuoidtb_Click()n = List1.ListCount - 1diemtb = tông (s, n) / (n + 1)For i = 0 đến n Nếu List1.ItemData(i) < diemtb sau đó List1.selected(i) = True Khác List1.selected(i) = False Kết thúc nếuTiếp theoCuối tiểuRiêng phụ cmdNhap_Click()x = txtTen.TextNếu x <> "" sau đó List1.AddItem x List1.ItemData(List1.NewIndex) = txtDiem.Text txtTen.Text = "" txtDiem.Text = ""Kết thúc nếuCuối tiểuRiêng phụ cmdXoa_Click()x = List1.ListIndexNếu x <> -1 sau đó List1.RemoveItem xCuối tiểuChức năng tong (ByVal s là số nguyên, ByVal n là số nguyên) như đôi For i = 0 đến n s = List1.ItemData(i) t = t + s Tiếp theo tông = tCuối cùng chức năng