مــشــکل در طراحی شکل

[Mr.Renegade]

دورود بر شما دوستان عزیز
ببخشید این شکلی که تصویرش رو براتون پیوست کردم
رو چجوری بنویسیم که بهینه باشه
یعنی اینکه نیاییم چون 6 تا خط هست 6 تا حلقه بزاریم
سپاس

[IamOverlord]

n = 6
For i = 1 To n Step 2
For j = 1 To i
strText = Str(j) + String(j, "*") + strText
Next j
strText = vbNewLine + strText
For j = i + 1 To 1 Step -1
strText = Str(j) + String(j, "*") + strText
Next j
strText = vbNewLine + strText
Next i
MsgBox strText

[pcdownload.bloghaa.com]

اول باید یه تابع بسازی که بتونه با گرفتن یه شماره بهت بهمون تعداد کاراکتر * بده.


private function star(n as long) as string
star=replace(tmp,space(n),"*")
end function

و برای اون شکل هم اگه توی تکست باکس میخوای رسمش کنی کد زیر جواب میده.


for i=6 to 1 step -1
for j=1 to i
if i\2=1 then
text1=text1+trim(str(6-j))+star(6-j)
else
text1=text1+trim(str(j))+star(j)
end if
next j
text1=text1+vbcrlf
next i

[vbhamed]

سلام

Dim s$, i%, j%

For i = 6 To 1 Step -1
For j = 1 To i
s = s & IIf(i Mod 2 = 0, j & String(j, "*"), String(j, "*") & j)
Next
s = IIf(i Mod 2 = 1, StrReverse(s), s)
Text1 = Text1 & s & vbCrLf
s = ""
Next