ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی “ ورود به حساب” کلیک کنید.





اگر فرم ثبت نام برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمیشود، اینجا را کلیک کنید.





نمایش نتایج: از 1 به 2 از 2
  1. #1
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,589
    759
    433

    مجموع ارقام و مغلوب یک عدد اعشاری

    روش اول

    Public Class Form1



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



    Dim k, ki, kf, sum, sumi, sumf As Integer

    Dim mai, maf, ni, r As Integer

    Dim n, nf, ma As Decimal



    n = Val(TextBox1.Text)

    ni = Int(n)

    nf = n - ni



    While (ni > 0)

    r = ni Mod 10

    sumi += r

    ki += 1

    mai = mai * 10 + r

    ni = ni \ 10

    End While



    While (nf > 0)

    r = Int(nf * 10)

    maf = maf + r * (10 ^ kf)

    kf += 1

    sumf += r

    nf = nf * 10 - r

    End While



    sum = sumi + sumf

    ma = maf + mai / (10 ^ ki)

    k = ki + kf



    Label1.Text = sum

    Label2.Text = k

    Label3.Text = ma



    End Sub

    End Class
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
  2. #2
    adminmsp
    مدیر کل و موسس سایت
    تاریخ عضویت
    1970 Jan
    محل سکونت
    M.S.P Soft
    نوشته ها
    1,589
    759
    433

    روش دوم

    روش دوم

    Public Class Form1

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

    Dim i, k, sum, ma, r As Integer
    Dim n As Double

    n = Val(TextBox1.Text)

    While (n <> Int(n))
    n = n * 10
    i += 1
    End While

    While (n > 0)
    r = n Mod 10
    sum += r
    ma = ma * 10 + r
    k += 1
    n = n \ 10
    End While

    Label1.Text = sum
    Label2.Text = k
    Label3.Text = ma / (10 ^ (k - i))

    End Sub
    End Class
    با M.S.P Soft به دنياي برنامه نويسي وارد شويد[برای نمایش لینک باید عضو شوید. ]
نمایش نتایج: از 1 به 2 از 2

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ: 3
    آخرين نوشته: 2012-10-31, 09:27 PM
  2. آموزش مجموع ارقام
    توسط Prof.MohammadGh در انجمن برنامه نویسی در 6 VB
    پاسخ: 0
    آخرين نوشته: 2012-10-07, 11:35 AM
  3. گوگل درایو شروع به کار کرد !
    توسط erfan در انجمن تازه‌های دنیای کامپیوتر و فناوری
    پاسخ: 4
    آخرين نوشته: 2012-04-27, 10:08 PM
  4. محاسبه مجموع سری اعداد ، بدون استفاده از حلقه
    توسط sina در انجمن الگوریتم، کامپایلر، هوش مصنوعی و ساختمان داده ها
    پاسخ: 0
    آخرين نوشته: 2012-01-14, 02:18 PM

کلمات کلیدی این موضوع

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  

Content Relevant URLs by vBSEO 3.6.0 RC 2