جمع ارقام العدد الواحد

السلام عليكم

تفضل اخي العزيز المثال بالمرفقات ،،

دعواتك يا الغالي :wink:

تحياتي

calc.rar

تفضل اخي

Dim i As Integer = 12345

Dim C As Char

Dim Y As Integer

Dim NewI As Integer = 0

For Y = 1 To i.ToString.Length

C = i.ToString.Chars(Y - 1)

NewI += Integer.Parse(C.ToString)

Next

MsgBox(NewI)

عذرا لكن الكود لم يظهر بالشكل المناسب :(

		Dim i As Integer = 12345
		Dim C As Char
		Dim Y As Integer
		Dim NewI As Integer = 0
		For Y = 1 To i.ToString.Length
			C = i.ToString.Chars(Y - 1)
			NewI += Integer.Parse(C.ToString)
		Next
		MsgBox(NewI)

ا. طلال حامد

ربنا يكرمك ويوفقك فى حياتك

الف شكر ياباشا

بس هو اناا كنت عايز فكرة ال listbox زى الاولانى يعنى تجمع ارقام العدد الواحد بس انا عرفت الطريقة وهاطبقها عليها

ا. MiCcSoft

جزاك الله خيرا ياباشا

والف شكر عالكود وهو شغااال تمام معايا

وشكرا ليكم كلكم