اكتب برنامج بلغة فيجوال بيسك يحتوي على خيارين (up) و (down)
اذا كان الخيار (up) يطبع
*
**
***
****
*****
أما الخيار (down) يطبع
*****
****
***
**
*

الحل كما يلي:

Dim i As Integer, j As Integer
Private Sub Command1_Click()
For i = 1 To 5
For j = i To 7
Print "*";
Next j
Print ""
Next i

End Sub

Private Sub Command2_Click()
For i = 1 To 7
For j = 1 To i
Print "*";
Next j
Print ""
Next i

End Sub

هل اعجبك الموضوع ؟ شاركه مع اصدقائك

• Facebook
• Twitter
• Google+
• Pinterest
• StumbleUpon
• Digg
• LinkedIn
• Reddit
• Delicious
• Technorati