حل تمرین vb6

پروژه چاپ و طرح ستاره ها برعکس

دانلود برنامه در ادامه مطلب  متاسفانه به دلیل اشکال در آپلود برنامه مجبور به ارسال کد اصلی فایل شدم با عرض پوزش.

کدهای داده شده را درون یک کمند باتون قرار داده و اجرا کنید:

Private Sub Command1_Click()
For a = 1 To 1
Print "*"; "*"; "*"
Next a
For b = 1 To 1
Print " "; "*"; "*"
Next b
For c = 1 To 1
Print " "; " "; "*"
Next c
End Sub