ایجاد لوزی با ویژوال بیسیک 6
#1
Note 
سلام
من کدی میخوام که یه لوزی ساده print کنه مثل این

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


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

پاسخ
#2
Note 
با سلام
من با استفاده حلقه for اینکار رو انجام دادم:
[VB]
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

[/VB]

چطور امضا کنم؟  Huh
پاسخ
#3
Note 
واقعا ممنونم

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note دانلود نمونه سولات ویژوال بیسیک SOFTAFZAR 1 2,209 18-12-2015 ساعت 11:30
آخرین ارسال: majidvajih
Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,131 28-01-2015 ساعت 16:36
آخرین ارسال: xMAN
Note space در ویژوال بیسیک 6 شهره 1 674 04-10-2014 ساعت 10:42
آخرین ارسال: Comodo
Note ویژوال بیسیک amir7519 1 602 19-07-2014 ساعت 17:36
آخرین ارسال: C0der
Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 593 18-05-2014 ساعت 19:28
آخرین ارسال: VBProgrammer
Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,112 29-03-2014 ساعت 09:44
آخرین ارسال: Stack OverFlow
Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 609 14-03-2014 ساعت 22:37
آخرین ارسال: Daniel
Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,008 13-03-2014 ساعت 19:32
آخرین ارسال: Daniel
Note دانلود 105 پروژه ویژوال بیسیک SOFTAFZAR 6 4,395 23-02-2014 ساعت 18:21
آخرین ارسال: Daniel
Note پروژه بارش برف به زبان ویژوال بیسیک 6 THE KNIGHT 1 664 16-02-2014 ساعت 21:04
آخرین ارسال: xMAN

کاربرانِ درحال بازدید از این موضوع:   1 مهمان