چاپ حروف

[MOhammadPCLover]

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

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

[avini]

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

[MOhammadPCLover]

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

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

[MOhammadPCLover]

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

[MOhammadPCLover]

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

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

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

[pclover]

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