Ðề: 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
Chuối chứa nhiều vitamin A, B1, B2, B6, B12, C, D, E và khoáng chất như magie, canxi, kali, sắt, phospho, fluor và iốt. Giá trị dinh dưỡng của chuối khá phong phú. Cứ 100g thịt chuối chứa 1,2g...
Quý ông nhờ ăn nhiều chuối mà khắc phục được xuất tinh sớm