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

سلام
مجموع ارقام عدد سه رقمی
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 رقمی رو بخوام باید چیکار کنیم ؟ :
خیلی دست کاریش کردم ولی نشد :blink:

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

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

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

سلام
الان ویژوالم نصب نیست که بتونم جواب درستی بدم. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
سعی می کنم زود جوابتو بدم.

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

کد:

---

Private Sub Command1_Click()
Dim strNum As String
Dim intSum As Integer
    strNum = Text1.Text
    For i = 1 To Len(strNum)
      intSum = intSum + Mid(strNum, i, 1)
    Next i
    Text2.Text = intSum
End Sub

---

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

نقل قول:

---

نوشته شده توسط Payman_62

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

کد:

---

Private Sub Command1_Click()
Dim strNum As String
Dim strSum As Integer
    strNum = Text1.Text
    For i = 1 To Len(strNum)
        strSum = strSum + Mid(strNum, i, 1)
    Next i
    Text2.Text = strSum
End Sub

---

---

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

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