سوالی راجب حلقه ها [بایگانی]

r_oscar2007

سه شنبه 20 فروردین 1387, 15:57 عصر

سلام
لطف میکنید به من کمک کنید.
برنامه ای بنویسید که خروجی زیر را چاپ کن
1
12
123
1234
12345
123456

meysam_meysam74

سه شنبه 20 فروردین 1387, 16:35 عصر

Dim i As Integer
Dim Str1 As String
For i = 1 To 6
Str1 = Str1 & i
Next i
MsgBox Str1

ƒxmahdi

سه شنبه 20 فروردین 1387, 18:00 عصر

For i = 1 To 6
For j = 1 To i
Print j;
Next j
Print
Next i