某数字加密算法描述如下：将某位数字与其位置相加得到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（　　）
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

。