.کمک،فردا امتحان ویژوال بیسیک 6 دارم یه سری سوال هست کمک کنید

[kalepoook]

سلام
من یه سری نمونه سوال گرفتم،خواهشن کمک کنید البته در حد آماتوره ولی خوب من کم سر در میرم،ممنون.

 

[kalepoook]

سوال 1:
برنامه ای بنویسید که خروجی آن بصورت زیر باشد.
12345
1234 
123
12
1

 

[Mamylo]

سلام دوست عزیز
این برنامه شما عمچین چیزی میشه:

private sub form_load()
    for i = 5 to 1 step -1
        for j = 1 to i
            form1.print j;
        next
        print
    next
end sub

 

[TruthPraiser]

منم این رو برای CommandButton نوشتم:

Private Sub Command1_Click()
k = 5
For i = 1 To 5
For j = 1 To k
Print j;
Next j
k = k - 1
Print
Next i
End Sub