Ðề: CÁch tính tổng các số trong một số!
1/ Nhấn All+F11 rồi Insert một modul mới
2/ Chép hàm này vào
Mã nguồn PHP:
[COLOR=#000000]
[/COLOR][COLOR=#007700]Function [/COLOR][COLOR=#0000BB]SumNumber[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Double[/COLOR][COLOR=#007700]) As [/COLOR][COLOR=#0000BB]Double
Dim i [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Integer
[/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]i [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]1 To Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber[/COLOR][COLOR=#007700])
[/COLOR][COLOR=#0000BB]SumNumber [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]SumNumber [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Val[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Mid[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]nNumber[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]i[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]))
[/COLOR][COLOR=#0000BB]Next
End [/COLOR][COLOR=#007700]Function[/COLOR]
3/ Thực hiện : SumNumber(12345) = 15 (= 1+2+3+4+5)
Hoặc A1 = 56789, A2 = SumNumber(A1) (=35)
Thân mến
Sản phẩm đan lọc được sinh sản và thiết kế dùng cho cả các công trình bể lọc xây dựng mới lẫn các bể lọc hiện hữu. Đan lọc lovense domi giúp tăng khả năng phân phối gió và nước trong quá trình rửa...
Những đặc điểm vượt trội của đan lọc 2 tầng De Nora (8)