29-12-15, 06:44 AM
(آخر تعديل لهذه المشاركة : 29-12-15, 08:47 AM {2} بواسطة Ahmed_Mansoor.)
PHP كود :
Dim ns$, tl%, i%
ns$ = Trim$(Str(2015))
For i = 1 To Len(ns$)
tl% = tl% + Val(Mid$(ns$, i, 1))
Next
MsgBox tl%
|
[سؤال] اصل الارقام
|
|
29-12-15, 06:44 AM
(آخر تعديل لهذه المشاركة : 29-12-15, 08:47 AM {2} بواسطة Ahmed_Mansoor.)
PHP كود : Dim ns$, tl%, i%تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
|
|
|
| الردود في هذا الموضوع |
|
اصل الارقام - بواسطة تاج - 29-12-15, 05:24 AM
RE: اصل الارقام - بواسطة sami2015 - 29-12-15, 06:44 AM
RE: اصل الارقام - بواسطة تاج - 29-12-15, 03:30 PM
RE: اصل الارقام - بواسطة Ahmed_Mansoor - 29-12-15, 08:45 AM
RE: اصل الارقام - بواسطة Ahmed_Mansoor - 30-12-15, 02:39 AM
RE: اصل الارقام - بواسطة تاج - 30-12-15, 05:00 AM
|