مجموع و تعداد ارقام

[میثم66]

1-برنامه ای که عدد را از اکسل خوانده و مجموع ارقام آن را چاپ کند.
2-برنامه ای که عدد را از اکسل خوانده و تعداد ارقام را چاپ کند.

[Amir Ghasemiyan]

1-برنامه ای که عدد را از اکسل خوانده و مجموع ارقام آن را چاپ کند.
2-برنامه ای که عدد را از اکسل خوانده و تعداد ارقام را چاپ کند.

اين براي سوال اولتون:

Sub meisam()
a = Range("A1").Value
For i = 1 To Len(a)
    aa = a Mod 10
    Sum = Sum + aa
    a = a \ 10
Next i
MsgBox Sum
End Sub

و اين هم براي سوال دومتون:

Sub meisam()
a = Range("A1").Value
MsgBox Len(a)
End Sub

[میثم66]

اين براي سوال اولتون:

Sub meisam()
a = Range("A1").Value
For i = 1 To Len(a)
    aa = a Mod 10
    Sum = Sum + aa
    a = a \ 10
Next i
MsgBox Sum
End Sub

و اين هم براي سوال دومتون:

Sub meisam()
a = Range("A1").Value
MsgBox Len(a)
End Sub

ممنون.تمرین اول اگه به جای (len(a خود a بنویسیم باز هم جواب میده. اینجا i یعنی چی؟
تمرین 1 بجای for از go to هم میشه استفاده کرد؟
تمرین دوم میشه از len استفاده نکرد یعنی میشه جور دیگه نوشت؟

[Amir Ghasemiyan]

ممنون.تمرین اول اگه به جای (len(a خود a بنویسیم باز هم جواب میده. اینجا i یعنی چی؟
تمرین 1 بجای for از go to هم میشه استفاده کرد؟
تمرین دوم میشه از len استفاده نکرد یعنی میشه جور دیگه نوشت؟

بله جواب ميده ولي باعث ميشه سرعت جواب دادن كد به شدت افت كنه.
فرض كنيد عدد مورد نظر شما 105 باشه. اگه از دستور len استفاده نكنين بجاي اينكه حلقه 3 بار انجام بشه 105 بار انجام ميشه. حالا فرض كنيد عدد شما 190876 باشه. بجاي اينكه 6 بار حلقه انجام بشه چند بار حلقه طي ميشه؟
i يك شمارنده است. شما از هر عبارت ديگه اي كه دوست دارين ميتونين استفاده كنيد. مثلا y يا يك كلمه
goto اصلا ربطي به for نداره. كلا كاربردشون متفاوته. هر چند ميشه از goto هم استفاده كرد ولي چندين خط كدنويسي زائد خواهيم داشت.
بله ميشه. از while استفاده كنيد. و بگين تا زماني كه مقسوم عليه صفر نشده يك شمارنده اضافه كن. خب مسلما اين كدي كه نوشتم به مراتب بهتر و ساده تر هست