چاپ ستاره

[shahyadghool]

سلام


میخواستم اگر مقدور است چاپ لوزی با ستاره رو بگید همراه با توضیح



*
**
***
****
***
**
*

[Mbt925]

Option Explicit

Private Sub Form_Load()

Dim i As Integer, j As Integer, k As Integer
Dim n As Integer

n = 3
k = 3

For i = 1 To n
For j = 1 To k
Print " ";
Next

For j = 1 To n - k + 1
Print "*";
Next

Print ""
k = k - 1
Next

n = 4
k = 0

For i = 1 To n
For j = 1 To k
Print " ";
Next

For j = 1 To n - k
Print "*";
Next

Print ""
k = k + 1
Next

End Sub
یا بصورت خلاصه تر


Option Explicit

Private Sub Form_Load()

Dim i As Integer, j As Integer, k As Integer
Dim n As Integer

n = 3
k = 3

For i = 1 To n
Print Space(k);
Print String(n - k + 1, "*");
Print ""
k = k - 1
Next

n = 4
k = 0

For i = 1 To n
Print Space(k);
Print String(n - k, "*");
Print ""
k = k + 1
Next

End Sub

[red11011]

از این هم میتونید استفاده کنید

Private Sub Command1_Click()
Dim intfirst As Integer, intend As Integer, counter As Integer
counter = 0
intfirst = 1
intend = 4
For counter = intfirst To intend Step 1 'قسمت بالاي مثلث تشکيل دهنده لوزي
Print Space(intend - counter) & Space(Me.ScaleWidth / 300) & String(counter, "*")
Next
For counter = intend - 1 To intfirst Step -1 'قسمت پايين آن
Print Space(intend - counter) & Space(Me.ScaleWidth / 300) & String(counter, "*")
Next
End Sub
Private Sub Form_Load()
With Form1
.Font = "tahoma" 'تعيين فونت نمايش ستاره ها
.FontSize = 16
.AutoRedraw = True 'ثابت بودن نمايش ستاره ها روي فرم
End With
End Sub