某加密算法的明文和密钥均由英文字母组成，且密钥循环使用，其加密规则如下：
①明文字符与对应密钥的ASCII码转化为二进制后求异或（对应位相同时结果为0，对应位不同时结果为1，如二进制1001与二进制1100的异或值为0101），并将异或结果转换为十进制p；
②如果处在奇数位，则将明文字符循环后移p个位置，否则将明文前移p个位置。移动过程中保持大小写不变。
最后把所得到的字符连接起来就是密文。
例如，密钥是“abc”，明文“d”的加密过程是：字符“d”的ASCII码表示为二进制是1100100，密钥“a”的ASCII码表示为二进制是1100001，两数进行异或结果是：0000101，转化为十进制为5，因为是第1个位置，所以把明文后移5个位置，则密文是“i”。
该加密过程使用VB来实现。具体功能设计如下：在Text1中输入明文，Text2中输入密钥，单击“开始加密”按钮Command1后将密文显示在Text3中，界面设计如图所示。
请回答以下问题：
（1）如果密钥为“bc”，字符“d”加密后的密文为：

j

j

（字母“a”的ASCII码为97）
（2）请完善以下程序代码。

PrivateSubCommand1_Click

（　　）

（　　）

DimsAsString,snAsString
DimiAsInteger,tAsInteger,uAsInteger
DimpAsInteger,gAsInteger
sn=““
Fori=1ToLen（Text1．Text）
t=Asc（Mid（Text1．Text,i,1））
Ift＞=Asc（″a″）Then
g=Asc（″a″）
Else
g=Asc（″A″）
EndIf
u=Asc（Mid（Text2．Text,（i-1）ModLen（Text2．Text）+1，1））
p=①
t=t-g
IfiMod2=1Then
t=（t+p）Mod26
Else
t=②
EndIf
sn=sn+Chr（t+g）
Nexti
Text3．Text=snEndSub
Functiontxor（xAsInteger,yAsInteger）AsInteger'x、y求异或并返回十进制
DimaAsInteger,bAsInteger,rAsInteger,iAsInteger
a=x：b=y
r=1
Fori=1To7
IfaMod2＜＞bMod2Then③
a=a\2
b=b\2
r=r*2
NextiEndFunction