خرید بک لینک

درباره سایت

جدیدترین مطالب دنیای دیجیتال ودانلود نرم افزار

new siteیکی از بر محتوا ترین سایت ها می باشدوبه دلیل استقبال زیاد به زودی دامنه رسمی.irان نیز ساخته میشود

آخرین مطالب

امکانات وب

Google

در اÙx8aÙx86 Ùx88بÙx84اگ
در Ùx83Ùx84 اÙx8aÙx86ترÙx86ت
کد جست Ùx88 جÙx88Ûx8c Ú¯Ùx88Ú¯Ùx84 <-BlogAndPostTitle-> -->-->-->
Â
<-BlogTitle->
<-BlogDescription->
 Â
Â
<-PostTitle->
<-PostDate-> :: <-PostTime-> :: Ùx86Ùx88Ùx8aسÙx86دÙx87 : <-PostAuthor->
<-PostContent->

اداÙx85Ùx87 Ùx85Ø·Ùx84ب ...

-->-->-->

دربارÙx87 Ùx88بÙx84اگ


<-BlogAbout->
Ùx85Ùx86Ùx88Ùx8a اصÙx84Ùx8a
صÙx81ØxadÙx87 Ùx86خست
پرÙx88Ùx81اÛx8cÙx84 Ùx85دÛx8cر Ùx88بÙx84اگ
پست اÙx84کترÙx88Ùx86Ûx8cÚ©
آرشÛx8cÙx88 Ùx85طاÙx84ب
عÙx86اÙx88Ûx8cÙx86 Ùx85طاÙx84ب
Ùx85Ùx88ضÙx88عات
<-CategoryName->
آخرÛx8cÙx86 Ùx85طاÙx84ب
<-PostTitle->
آرشÙx8aÙx88 Ùx88بÙx84اگ
اسفند 1391
Ù¾Ûx8cÙx88Ùx86دÙx87اÛx8c رÙx88زاÙx86Ùx87
خرید ارز دیجیتال
تحصیل در انگلستان
گروه حقوقی فرشاد قاسمی
تحصیل در اسپانیا
دانلود آهنگ جدید
خرید طلا
Ùx86Ùx85اÙx8aØ´ تÙx85اÙx85 Ù¾Ûx8cÙx88Ùx86دÙx87ا
Ù¾Ùx8aÙx88Ùx86دÙx87ا
اجاره خودرو در تهران
خرید لایسنس نود 32
تبادل لینک با ما
بیت کوین
هاست ایمیل
مشاوره سئو
مشاوره سئو
تحلیل رایگان سئو سایت
خرید بک لینک
ارز دیجیتال
دانلود آهنگ جدید


<-BlogCustomHtml->
                   Â
Â
Â
Â
/BlogPreviousItemsBlock
-->-->-->-->-->--> script language="javascript" type="text/javascript" src="http://mehrdaddesign.com/data/advertisment/jquery.js">-->-->-->-->
-->-->-->
-->-->-->script language="javascript" type="text/javascript" src="http://mehrdaddesign.com/data/advertisment/jquery.js">-->-->-->-->
-->-->-->
-->-->-->
تک سÛx8c اÙx85 اس را در Ú¯Ùx88Ú¯Ùx84 Ùx85ØxadبÙx88ب Ú©Ùx86Ûx8cد

-->-->-->
-->-->-->

برنامه ی مجموع اعداد 4 رقمی در vb6 و vb.NET

سوال : برنامه ای بنویسید که یک عدد صحیح را از کاربر بگیرد و مجموع ارقام انرا نمایش دهد

مثال : اگر کاربر عدد 1234 را به برنامه بدهد عدد 10 را نمایش دهد

لینک دانلود برنامه به زبان وی بی دات نت 2005 و ویژوال بیسیک 6

http://up.toca.ir/images/owhzvczd324gueanw7fz.zip

کد:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim n, s As Integer

n = InputBox("")

s = 0

While (n > 10)

s = s + n Mod 10

n = n / 10

End While

s = s + n

MsgBox(s)

End Sub

End Class

ادامه مطلب

برچسب: نویسنده: nsite.niloblog تاريخ: چهارشنبه 30 اسفند 1391 ساعت: 20:27

صفحه بندی

نويسندگان

آرشیو مطالب

پيوندهای روزانه

لینک دوستان

خبرنامه