Bổ xung thêm thế này:
nếu cái Function sửa thành:
Function TrungBinhCong(Byval so1, ByVal so2, ByVal so3)
so1=so1+0
TrungBinhCong=(so1+so2+so3)/3
End Function
Cũng với cách test trên thì được kết quả: Tổng số=2070; Trung bình cộng = 30
:k6233143:
Ngược lại nếu ta sửa cái "Sub" lại thế...
nhờ các bác chỉ dùm lỗi trong Function này(hoặc cách test) hộ em với:
Function TrungBinhCong(ByVal so1, ByVal so2, ByVal so3)
TrungBinhCong = (so1 + so2 + so3)/ 3
End Function
Để test cái Function trên em dùng:
Sub TrungBinh()
Dim so1, so2, so3 As Integer
Dim Tong As integer
so1 =...