برنامه چاپ حروف الفبا انگلیسی به ترتیب در ویژوال بیسیک

[sajjad1111]

سلام دوستان
لطفا در مورد این برنامه راهنمایی ام کنید:
ABCD…XYZYX…DCBA

من از A تا Z رو تونستم بنویسم:
For i = 65 To 90
a = Chr(i)
Print a;
Next

اما در قسمت دوم برنامه یعنی از Z تا A مشکل دارم.
لطفا کمکی کنید

[Mori Bone]

For i = 65 To 90 Step 1
Label = Label & Chr(i)
Next
For i = 89 To 65 Step -1
Label = Label & Chr(i)
Next

[sajjad1111]

ببخشید دوستان مشکلم برطرف شد.
کد به صورت زیر است:
Private Sub Command1_Click()
For i = 65 To 90
a = Chr(i)
Print a;
Next
For j = 90 To 65 Step -1
b = Chr(j)
Print b;
Next
End Sub

[setroyd]

For i = 0 To 25
Print Chr(i + 65)
Print Chr(90 - i)
Next

به این شکل هم میشه ولی با print نه چون جور در نمیاد و برای جدا کردنش کدش سنگین میشه این برای اینه که 2 تا لیست باکس داشته باشی یا......... که جدا جدا بنویسه

[vbhamed]

سلام
اینم یکم مختصرتر
For i = 65 To 90
s = s & Chr$(i)
Next
Print s & StrReverse(s)