ايران ويج

برنامه اي بنويسيد كه خروجي زير را توليد كند؟

A
B  C  D
C  D  E  D  C
D  E  F  G  F  E  D
E  F  G  H  I  H  G  F  E
F  G  H  I  J  K  J  I  H  G  H
G  H  I  J  K  L  M  L  K  J  I  H
H I J K L M N O P Q O N M L K J I
J K L M N O P Q R S T Q P O N M L K J
K L M N O P Q R S T U T S R Q P O N M L K
L M N O P Q R S T U V W V U S T R Q P O N M  L
M N O P Q R S T U V W X Y X W V U T S R Q P O N M
N O P Q R S T U V W X Y Z { Z Y X W  V U T S R Q P O N

توضيح: براي نوشتن حروف از كد زير استفاده كنيد.

حروف بزرگ :

Private Sub Command1_Click()
    For i = 65 To 90 Step 1
    Print Chr(i)
    Next
End Sub

حروف كوچك:

Private Sub Command1_Click()
For i = 97 To 122 Step 1
Print Chr(i)
Next i
End Sub

www.mcomi.blogfa.com

چی شد ؟
همین وسط فرم ؟

از سمت چپ، به همين شكلي كه هست
يعني فاصله ي از چپ حرف N بايد برابر صفر باشه.

شما بنويس هر جوري كه دوست داري بنويس!

چي شد بچه ها من منتظرم
يعني كسي پيدا نمي شه جوابمو بده؟

از دوستان گل باهوشم خواهش مي كنم خودشونو خسته نكنن
من جوابمو سوالمو از معلم وي بيم گرفتم

Private Sub LSButton1_Click()
For i = 1 To 14 Step 1
For j = 1 To 110 - i * 2 Step 1
Print " ";
Next j
For j = i To i + i - 1 Step 1
Print Chr(96 + j) + " ";
Next j
For j = i + i - 2 To i Step -1
Print Chr(96 + j) + " ";
Next j
Print
Next
End Sub

شايد بدرد شما هم بخوره

مرسی آقا محمد. خیلی برنامه ی قشنگی بود.

MOhammadPCLover

avini

MOhammadPCLover

MOhammadPCLover

MOhammadPCLover

pclover