رسم مثلث با کاراکتر ستاره در ویژوال بیسیک

sarah1990 · Apr 29, 2013

ببخشید اما سوال بنده نه خودش هست نه جوابش...
من یه پروژه ی شش نمره ای وحشتناک دارم
پس لطفا طرز نوشتن رو تو برنامه بنویسید...
نحوه ی نشون دادن این رو:

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

the_king · Apr 30, 2013

sarah1990 گفت:
ببخشید اما سوال بنده نه خودش هست نه جوابش...
من یه پروژه ی شش نمره ای وحشتناک دارم
پس لطفا طرز نوشتن رو تو برنامه بنویسید...
نحوه ی نشون دادن این رو:
*
**
***
****
*****

سوالی که مربوط به یک مبحث نیست رو در ادامه اون مبحث بی ربط مطرح نکنید، برای سوال خودتان یک مبحث جدید بسازید :

کد:

Private Sub Form_Load()
    Dim i As Integer
    AutoRedraw = True
    ScaleMode = vbPixels
    FontName = "Tahoma"
    FontSize = 20
    For i = 1 To 5
        CurrentX = 100 - TextWidth(String(i, "*")) / 2
        Print String(i, "*")
    Next
End Sub

نمونه های دیگر مثلث با ستاره هم هست :
رسم مثلث با حلقه for در ویژوال بیسیک

parsa.b888 · Jul 27, 2013

the_king گفت:
سوالی که مربوط به یک مبحث نیست رو در ادامه اون مبحث بی ربط مطرح نکنید، برای سوال خودتان یک مبحث جدید بسازید :

کد:

Private Sub Form_Load() Dim i As Integer AutoRedraw = True ScaleMode = vbPixels FontName = "Tahoma" FontSize = 20 For i = 1 To 5 CurrentX = 100 - TextWidth(String(i, "*")) / 2 Print String(i, "*") Next End Sub

نمونه های دیگر مثلث با ستاره هم هست :
رسم مثلث با حلقه for در ویژوال بیسیک