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

[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)