اگه مجموع ارقام 4 رقمی رو بخوایم باید چیکار کنیم ؟

[MohammadJavad.T]

سلام
مجموع ارقام عدد سه رقمی
dim fozool as integer
dim a as integer
dim b as integer
dim c as integer
fozool=val(text1.text
a=fozool mod 10
b=fozool \10 mod 10
c= fozool/100
حالا سوال من اینه اگه مجموع ارقام 4 رقمی رو بخوام باید چیکار کنیم ؟ :
خیلی دست کاریش کردم ولی نشد

[MohammadJavad.T]

26 نفر بازديد داشته ولي يه نفر هم جواب نداده خيلي جالب

[A_M_IT2005]

سلام
خوب وقتی برای عدد سه رقمی سه بار تقسیم می کنی ، برای عدد چهار رقمی هم چهار بار تقسیم کن دیگه.
البته این الگوریتم از نظر برنامه نویسی قابل قبول نیست و یک الگوریتم کلی داره (البته الان یادم نیست)
موفق باشید.

[MohammadJavad.T]

سلام
گفتم كه اين كار رو كردم ولي بازم جواب نداد از چه نظر قابل قبول نيست اگه راه بهتري ميدوني بگي ممنون ميشم

[A_M_IT2005]

سلام
الان ویژوالم نصب نیست که بتونم جواب درستی بدم.
سعی می کنم زود جوابتو بدم.

[Payman_62]

سلام.
از این کد استفاده کن. 10 رقمی رو هم برات حساب میکنه.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[MohammadJavad.T]

سلام
مرسي خيلي ممنون چير جالبي بود

[babi]

سلام.
از این کد استفاده کن. 10 رقمی رو هم برات حساب میکنه.

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

قبل از این دستور باید کلمه val را هم بنویسیم :::
val( Mid(strNum, i, 1

[Payman_62]

سلام.
اگه تو تکس باکس عدد باشه نیازی به val نیست. ویبی خودش رشته رو تبدیل به عدد میکنه. رو این حساب من از نوشتن val صرف نظر کردم.