Ðề: 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
Kể với bác sĩ, anh M. cho biết bữa qua là sinh nhật của mình nên có đi ăn tối, rồi trở về nhà quan hệ tình dục với vợ. Trong quá trình quan hệ , vợ anh dùng miệng "tác động" nhiều vào vùng tinh hoàn....
Hy hữu. Anh chàng suýt mất tinh hoàn vì chơi bằng miệng với vợ