維吉尼亞密碼。如圖所示，分別用行和列表示待加密的字符（明文）和當(dāng)前字符的密鑰，行和列的交叉點(diǎn)的字符即為加密后的結(jié)果（密文）。在加密時(shí)，密文與明文的字母大小寫(xiě)形式保持一致，如：明文字母為大寫(xiě)，則加密后的密文字母也為大寫(xiě)；當(dāng)密鑰長(zhǎng)度不足時(shí)重復(fù)使用密鑰。
例如：當(dāng)明文M=HelloWorld,密鑰K=abc時(shí)，密文C=HfnlpYosnd.運(yùn)算過(guò)程如下所示：
明文：HelloWorld
密鑰：abcabcabca
密文：HfnlpYosnd
依據(jù)上述算法描述設(shè)計(jì)了如下VB程序。請(qǐng)回答下列問(wèn)題：
（1）若明文是Jia,密鑰是Pass,則輸出的密文是：

Yis

Yis

（2）請(qǐng)?jiān)跈M線處填上合適的代碼
Const MIN_ASC=65
Function X2D（x As String） As String
Dim s As String,zf As String,i As Integer
s=““
For i=1To Len（x）
zf=Mid（x,i,1）
If zf＞=“a“And zf＜=“z“Then
s=s+①

Chr（Asc（zf）-32）

Chr（Asc（zf）-32）

Else
s=s+zf
End If
Next i
X2D=s
End Function
Private Sub Command1_Click （　?。?br />Dim M As String,K As String,C As String,flag As Boolean
Dim i As Integer,t As Integer,ch As Integer,pos As Integer,j As Integer
M=Text1．Text'明文
K=Text2．Text'密鑰
t=Len（K）
K=X2D（K）
C=““
For i=1To Len（M）
ch=Asc（Mid（M，i,1））
flag=False
If ch＞=97And ch＜=122Then ch=ch-32：flag=True
pos=②

iModt

iModt

'密鑰的字符位置值
If pos=0Then pos=t
j=Asc（Mid（K，pos,1））'密鑰字符的ASCII值
ch=ch-MIN_ASC
j=j-MIN_ASC
ch=③

（ch+j）Mod26

（ch+j）Mod26

ch=ch+MIN_ASC
If flag Then ch=ch+32'設(shè)置字母的大小寫(xiě)形式
C=C & Chr（ch）
Next i
Text3．Text=C
End Sub