محاسبه مجموع اعداد سه رقمی در ویژوال بیسیک

[Sajadmohebbi]

این سوالا در ویژوال بیسیک ۶ ميخوام ببینم جوابش چی میشه،عجله دارم فقط مرسی
1 مجموع اعداد سه رقمی را محاسبه و نمایش بدهد
2 خروجی حلقه زیر چیست؟
G=10
(Dowhile(true
If J>5 then exit
Do for i =1to j
rinti
Next i
Print j=j+1
Loop

 

[the_king]

این سوالا در ویژوال بیسیک ۶ ميخوام ببینم جوابش چی میشه،عجله دارم فقط مرسی
1 مجموع اعداد سه رقمی را محاسبه و نمایش بدهد
2 خروجی حلقه زیر چیست؟
G=10
(Dowhile(true
If J>5 then exit
Do for i =1to j
rinti
Next i
Print j=j+1
Loop

قوانین و محدودیت های ایجاد کردن مبحث جدید :
B1 - هر مبحث باید عنوانی داشته باشد که خلاصه ای از موضوع آن مبحث باشد، از عناوین مبهم و کلی استفاده نکنید.

B4 - اگر چندین سوال دارید که بهم مربوط نیستند، در مبحث های جداگانه مطرح شان کنید.
زمانی که چند سوال را در یک مبحث مطرح می کنید نمی توانید یک عنوان دقیق و با جزئیات انتخاب نمایید،در نتیجه ناچار می شوید که از یک عنوان نامناسب مثل "چند سوال در مورد فتوشاپ" استفاده کنید که خیلی مبهم و کلی است و مشخص کننده موضوع سوال شما نخواهد بود.
 
مثلا اگر در مورد "نحوه استفاده کردن از ابزار Brush Tool فتوشاپ" و "نحوه ذخیره کردن فایل های psd در فتوشاپ" سوال دارید، هر کدام را در یک مبحث جداگانه و با عنوان های مناسب در بخش سوالات و درخواست ها داخل انجمن فتوشاپ مطرح کنید.

    Dim i As Integer, sum As Long
    For i = 100 To 999
        sum = sum + i
    Next
    MsgBox sum

    Dim g As Integer
    Dim i As Integer
    Dim j As Integer
    g = 10
    Do While (True)
        If j > 5 Then Exit Do
        For i = 1 To j
            Print i;
        Next i
        Print
        j = j + 1
    Loop