نمایش مثلث اعداد در ویژوال بیسیک

G

gooood

New Member
برنامه ای بنویسید که خروجی زیر را بدست آورد :
1
2
123
123
یکی دیگه
4
43
432
4321
و یکی دیگه
4321
432
43
4
این سوالات با ویژوال بسیک است آگر بتوانید جواب این سوالات را با آلگوریتم به من بدهید واقعا متشکر می شوم در ضمن این سوالات با for تو در تو می باشد با تشکر:mad::oops:
 
the_king

the_king

مدیرکل انجمن
برای خروجی زیر :
کد: 
1
12
123
1234
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 1 To 4
        For j = 1 To i
            s = s & CStr(j)
        Next
        s = s & vbNewLine
    Next
    MsgBox s
 
 
برای خروجی زیر :
کد: 
1234
123
12
1
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 4 To 1 Step -1
        For j = 1 To i
            s = s & CStr(j)
        Next
        s = s & vbNewLine
    Next
    MsgBox s
 
 
برای خروجی زیر :
کد: 
4
43
432
4321
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 1 To 4
        For j = 1 To i
            s = s & CStr(5 - j)
        Next
        s = s & vbNewLine
    Next
    MsgBox s
 
 
برای خروجی زیر :
کد: 
4321
432
43
4
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 4 To 1 Step -1
        For j = 1 To i
            s = s & CStr(5 - j)
        Next
        s = s & vbNewLine
    Next
    MsgBox s
 
 
برای خروجی زیر :
کد: 
   1
  21
 321
4321
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 4 To 1 Step -1
        For j = 1 To i
            s = CStr(j) & s
        Next
        s = vbNewLine & s
    Next
    MsgBox s, vbMsgBoxRight
 
 
برای خروجی زیر :
کد: 
4321
 321
  21
   1
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 1 To 4
        For j = 1 To i
            s = CStr(j) & s
        Next
        s = vbNewLine & s
    Next
    MsgBox s, vbMsgBoxRight
 
 
برای خروجی زیر :
کد: 
   4
  34
 234
1234
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 4 To 1 Step -1
        For j = 1 To i
            s = CStr(5 - j) & s
        Next
        s = vbNewLine & s
    Next
    MsgBox s, vbMsgBoxRight
 
 
برای خروجی زیر :
کد: 
1234
 234
  34
   4
از این کد استفاده کنید :
کد: 
    Dim i As Long, j As Long, s As String
    For i = 1 To 4
        For j = 1 To i
            s = CStr(5 - j) & s
        Next
        s = vbNewLine & s
    Next
    MsgBox s, vbMsgBoxRight
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا