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

Visual Basic 6

توسط nastaran در 6 سال پیش
0 29.2k 2 6 سال پیش
nastaran theknight
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

واقعا ممنونم

خوش آمدید

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