مارس 2012

اكتب برنامج بلغة فيجوال بيسك يحتوي على خيارين (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

الكاتب : Unknown في الأربعاء، 7 مارس 2012

0

اقرء المزيد