جداکردن ارقام عدد صحیح؟؟؟

[ahmadsilavi]

یک عدد چهار رقمی صحیح داریم که میخواهیم باقیمانده هر رقم از اعداد آن را برحسب 4 حساب کنیم من تونستم فقط یک عدد اونو بخونم دوستان کمک کنند بقیه اعداد راهم بتونم محاسبه کنم...

Dim d1, d2, d3, d4 As Integer
Dim intNum, b As Integer
intNum = Val(TextBox1.Text)
Do While intNum > 9

b = intNum Mod 10
d1 = b Mod 4
intNum = intNum \ 10
Loop

[poorman]

به جای اینکه از متغیر های d1,...,d4 استفاده کنی از آرایه مثلا ( )d استفاده کن
یه متغیر i هم تعریف کن که روی آرایه حرکت کنی و توی حلقه هر سری یکی بهش اضافه کن
بعدش به جای d1 = b Mod 4 بنویسی d(i)= b mod 4

[ahmadsilavi]

به جای اینکه از متغیر های d1,...,d4 استفاده کنی از آرایه مثلا ( )d استفاده کن
یه متغیر i هم تعریف کن که روی آرایه حرکت کنی و توی حلقه هر سری یکی بهش اضافه کن
بعدش به جای d1 = b Mod 4 بنویسی d(i)= b mod 4

دوست عزیز باتشکر از پاسخ شما;
آرایه واسم جواب نمیده میشه شما ی ترسی بکنی اگه جواب داد کد کاملشو بزاری ...:خجالت:

[ahmadsilavi]

دوستان جواب داد.......:چشمک: