小明編寫了一個字符串加密程序，運行界面如圖所示。功能如下：在文本框Text1中輸入明文，在文本框Text2中輸入密鑰（密鑰值在1到25之間），單擊“加密”按鈕Command1后，在標簽Label1中輸出密文。加密算法如下：
（1）若是字母，則將其變為按字母順序往后數密鑰個數的字母，若字母超過“Z”或“z”，則將其順延到“A”或“a”后，大小寫保持不變；若為其他字符，則保持不變，例如：

明文	Z	h	e	n	_	H	a	i
密鑰	3
密文	C	k	h	q	_	K	d	l

（2）在步驟（1）的基礎上，奇數位置的字符保持不變，偶數位置的字符逆序排列。

密文

C

l

h

K

_

q

d

k

實現上述功能的VB程序如下，波浪線處有錯誤，請改正。
Private Sub Command1_Click （　　）
Dim a（1 To 100）As String
Dim s As String,i As Integer
Dim j As Integer,n As Integer
Label4．Caption=““
s=Text1．Text
n=Val（Text2．Text）
i=1
Do While i＜=Len（s）
c=Mid（s,i,1）
If c＞=“A“And c＜=“Z“Then
a（i）=Chr（（Asc（c）-Asc（“A“）+n） Mod 26+Asc（“A“））
ElseIf c＞=“a“And c＜=“z“Then
a（i）=Chr（（Asc（c）-Asc（“a“）+n） Mod 26+Asc（“a“））
Else
a（i）=c
End If
i=i+1
Loop
‘①
For i=2 To Len（s）\2 Step 2
t=a（i）：a（i）=a（j）：a（j）=t
‘②
Next i
For i=1 To Len（s）
Label4．Caption=Label4．Caption+a（i）
Next i
End Sub