某數字加密算法描述如下：將某位數字與其位置相加得到num,num除以11的余數即為編號，若余數為0編號為11，從密碼表中找出與編號對應的加密字符完成加密。密碼表如下：

編號	1	2	3	4	5	6	7	8	9	10	11
加密字符	V	i	s	u	a	l	B	A	S	I	C

小明按照上述方法，設計了一個數字加密的VB程序，功能如下：單擊“加密”按鈕Commandl,程序依次將文本框Text1中每個數字進行加密，并將加密后的密文在文本框Text2中輸出。下表顯示了數字“2018”的加密過程：

數字	2	0	1	8
位置	1	2	3	4
編號	3	2	4	1
加密字符	s	i	u	V

程序運行效果如圖所示。
（1）設計如圖所示的程序界面，至少要使用

4

4

個類（填數字）。
（2）實現上述功能的VB程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click（　?。?br />Dim s As String,s1As String,s2As String,num As Integer
s=“VisualBASIC“
s1=Text1．Text
s2=““
i=1
Do While①

i＜=Len（s1）

i＜=Len（s1）

num=Val（Mid（s1，i,1））+i
num=num Mod 11
If num=0Then num=11
s2=②

s2+Mid（s,num,1）

s2+Mid（s,num,1）

i=i+1
Loop
Text2．Text=s2
End Sub
（3）若密文是“uAV”，則明文是

369

369

。