ROI-13（回轉13位）是一種簡易的替換式密碼，編碼解碼規則相同，針對英文字母，僅僅只需要檢查字母順序并用13位后的對應字母取代它，超過時則重新繞回26個英文字母開頭即可。即A換成N、B換成O，以此類推到M換成Z，然后序列反轉；N換成A、O換成B……
       小明決定以ROT-13為基礎制定新的ROT-n,即每次回轉不是13位，而是n位。因此他引入了11位數字密鑰和字符位置來計算n的值，并擴大加密范圍，使得大小寫字母和數字都能加密，從而達到加密效果增強的目標。具體規則如下：
（1）字符在奇數位置上n的值即當前對應密鑰值，偶數位置上n的值為當前段密鑰中已經出現的所有數字之和。
（2）數字字符在“0”到“9”之間回轉，即超過“9”部分返回“0”開始繼續計算：大寫字母在“A”到“Z”范圍內回轉，小寫字母在“a”到“z”范圍內回轉，其它字符不變。

程序代碼如下
Private Sub Command1_Click）
Dim i,z,m,js As Integer
im s,c,h,t As String
Const my=“14159265358”
Text2．Text=“”
S=Text1．Text
z=1
For i=1 To Len（s）
     ①
If z=12 Then z=1：js=0
m=Val（Mid（my,z,1））
js=js+m
If       ②Then n=js Else n=m
If c＞=“0“And c＜=“9“Then
h=CStr（（Val（c）+n）Mod 10）
Elself c＞=“A“And c＜=“Z“Or c＞=“a”And c＜=“z“Then
t=Chr（Asc（c）+n Mod 26）
If c＞=“A“And c＜=“Z“Then
If Not （t＞=“A“And t＜=“Z“）Then h=Chr（Asc（t）-26）Else h=t
Else
If Asc（c）+n Mod 26＞122 Then h=Chr（（Asc（c）+n Mod 26）-26）Else h=t
End  If
Else
h=c
End If
Text2．Text=Text2．Text+h
      ③
Next i
End Sub
請回答下列問題
（1）解密過程為加密過程的逆運算，即由密文字符向前推導n位尋找原字符，現已知密鑰為123，密文“WEjpq j”（無雙引號）對應的原文是

VBgood

VBgood

。
（2）程序功能實現則代碼中劃線部分請填入合適代碼
①處代碼

c=mid（s,i,1）

c=mid（s,i,1）

；②處代碼

i mod 2=0

i mod 2=0

；③處代碼

z=z+1

z=z+1

。