راهنمایی درحل برنامه با vb6

[khag]

دوستان اگه بخوام با ویژوال مجموع کامل اعداد رو بنوسیم باید چیکار کنم؟
لطفا راهنمایی کنید ممنون میشم...

دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟

 

[hhhhaaaa]

سلام
​

........
........
........
s = x1+x2+x3
print s

البته اگه کل برنامه ای که نوشتی رو بزاری یا بیشتر توضیح بدی دقیق تر راهنمایی می کنم

موفق باشی
​

 

[smile_alireza]

دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟

خوب دوست عزیز عدد کامل
من می تونم این کمک رو بهتون کنم عدد کامل عددی هست که مقسوم علیه ها شو جمع کنیم به خود عدد دوباره می رسیم 6=1+2+3
خوب دیگه اینجا شما می تونی به راحتی این کارو کنی

 

[the_king]

دوستان اگه بخوام با ویژوال مجموع کامل اعداد رو بنوسیم باید چیکار کنم؟
لطفا راهنمایی کنید ممنون میشم...

دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟

کد زیر مجموع اعداد کامل موجود در بین n عدد ورودی را مشخص می کند :

Option Explicit

Private Sub Form_Load()
    Dim n As Long, m As Long, i As Long, j As Long, sum As Long, sum2 As Long
    n = Val(InputBox("Please enter n :"))
    sum2 = 0
    For m = 1 To n
        i = Val(InputBox("Please enter #" + CStr(m) + " number :"))
        sum = 0
        For j = 1 To i \ 2
            If i Mod j = 0 Then sum = sum + j
        Next
        If sum = i Then sum2 = sum2 + i
    Next
    MsgBox "Sum = " & sum2
End Sub

این بخش از کد مشخص می کنه که آیا عدد i یک عدد کامل است یا خیر :

        sum = 0
        For j = 1 To i \ 2
            If i Mod j = 0 Then sum = sum + j
        Next
        If sum = i Then

 

[khag]

کد زیر مجموع اعداد کامل موجود در بین n عدد ورودی را مشخص می کند :

Option Explicit

Private Sub Form_Load()
    Dim n As Long, m As Long, i As Long, j As Long, sum As Long, sum2 As Long
    n = Val(InputBox("Please enter n :"))
    sum2 = 0
    For m = 1 To n
        i = Val(InputBox("Please enter #" + CStr(m) + " number :"))
        sum = 0
        For j = 1 To i \ 2
            If i Mod j = 0 Then sum = sum + j
        Next
        If sum = i Then sum2 = sum2 + i
    Next
    MsgBox "Sum = " & sum2
End Sub

این بخش از کد مشخص می کنه که آیا عدد i یک عدد کامل است یا خیر :

        sum = 0
        For j = 1 To i \ 2
            If i Mod j = 0 Then sum = sum + j
        Next
        If sum = i Then

بزرگوار الان من عدد 28 رو وارد می کنم می خوام اعدادی که بر اون بخش پذیر هست تویه یه لیست box بذاره برام ..

 

[khag]

i = Val(InputBox("Please enter #" + CStr(m) + " number :"))

این بخش برای چیه ؟؟؟

 

[the_king]

i = Val(InputBox("Please enter #" + CStr(m) + " number :"))

این بخش برای چیه ؟؟؟

هدف اصلی دریافت کردن عدد صحیح ای است که باید در متغیر i ذخیره شود.
InputBox یک پیغام را نمایش داده و یک رشته را از کاربر دریافت می کند.
ما در متن پیغام نمایش داده شده، توسط ()CStr شماره عدد دریافتی (اولین، دومین، سومین و ...) را هم
اضافه می کنیم تا کاربر بداند که چندمین عددی است که از او دریافت می شود.
چون هم # Please enter و هم : number رشته هستند، بایستی متغیر عددی m هم به رشته تبدیل شود
که تابع ()CStr اینکار را انجام می دهد.

چون خروجی InputBox یک رشته (و نه عدد) است، توسط تابع ()Val آنرا به عدد معادل اش تبدیل می کنیم.

 

[the_king]

بزرگوار الان من عدد 28 رو وارد می کنم می خوام اعدادی که بر اون بخش پذیر هست تویه یه لیست box بذاره برام ..

فرض کنیم که ListBox ای با نام List1 در فرم قرار داشته باشد.

    Dim n As Long, i As Long
    n = Val(InputBox("Please enter n :"))
    For i = 1 To n
        If n Mod i = 0 Then List1.AddItem i
    Next