حلول🙂

شرح هياكل ست صبى للاستفاده يعني 🙂🥲☝️

م/هياكل
سوالف عن الفصل1
اعداد:محمد عماد

‏اللهـّم في صبَاح هذا اليوم استَجِب لنَا مَا نعجزُ عن قَولهِ..
مَا يصعب علينا صِيَاغتُه وأنتَ تعلَمُه
اللهـّم وتقبل كل دعوة ساكنة في صُدُورِنَا ولا نَعلمُ كِيفَ نرفَعَها إليّك

صـباح الخــيــر🌸💜

بما انو رمضان خننزل حلول مرئيه ثواب🙂😂

مرئيييييه

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i, j As Integer
Label1.Text = ""
For i = 1 To 5 Step 1
For j = 1 To 5 - i Step 1
Label1.Text = Label1.Text & (" ")
Next j
For k = 1 To (i * 2) - 1 Step 1
Label1.Text = Label1.Text & ("*")
Next k
Label1.Text = Label1.Text & Chr(10) & Chr(13)
Next i

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i, j As Integer
Label1.Text = ""
For i = 1 To 5 Step 1
For j = 1 To i Step 1
Label1.Text = Label1.Text & ("*")
Next j
Label1.Text = Label1.Text & Chr(10) & Chr(13)
Next i

End Sub