ایجاد لوزی با ویژوال بیسیک 6

Visual Basic 6

توسط nastaran در 4 سال پیش
0 1k 2 4 سال پیش
nastarantheknight
0

سلام من کدی میخوام که یه لوزی ساده print کنه مثل این

[align=center]* **




** *[/align]

ممنون میشم کمک کنید.

0

با سلام من با استفاده حلقه for اینکار رو انجام دادم:

Private Sub cmd_create_Click()
spcc = 5
For i = 1 To 5
Print Spc(spcc); RepeatStr(" * ", i)
spcc = spcc - 1
Next
spcc = 2
For i = 4 To 1 Step -1
Print Spc(spcc); RepeatStr(" * ", i)
spcc = spcc + 1
Next
End Sub

Function RepeatStr(aString As String, ByVal aNumber As Integer) As String
Dim bString As String
 
bString = aString
If aNumber > 1 Then
  For i = 2 To aNumber
    bString = bString & aString
  Next i
End If
RepeatStr = bString
End Function
0

واقعا ممنونم

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.

لطفا ابتدا لاگین کنید