این برنامه رو نوشتم ولی بهینه نیست!!!:41:ممنون میشم اگه یه روشی دیگه که این َشکل ستاره رو تولید کنه (بهینه و با توضیح) کد برنامه خودم به این صورته:)
Private Sub Command1_Click()
a = 0
tf = True
While (tf)
Print Spc(2); ("*");
q = q + 1
a = a + 1
If a = 12 Then
Print
Print Spc(2);
End If
If a = 22 Then
Print
Print Spc(5);
End If
If a = 30 Then
Print
Print Spc(8);
End If
If a = 36 Then
Print
Print Spc(11);
End If
If a = 40 Then
Print
Print Spc(14);
End If
If a = 42 Then
Print
Print Spc(18);
Print "*";
Print
Print Spc(16);
End If
If a = 43 Then
Print
Print Spc(15);
End If
If a = 45 Then
Print
Print Spc(12);
End If
If a = 49 Then
Print
Print Spc(9);
End If
If a = 55 Then
Print
Print Spc(6);
End If
If a = 63 Then
Print
Print Spc(3);
End If
If a = 73 Then
Print
Print Spc(-1);
End If
If a = 85 Then
tf = False
End If
Wend
End Sub
کد رو واسم به این آدرس بفرستید»»مرسی:40:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
