有一种数字加密算法如下：将该数位与其位置相加得到X，X除以10的余数即为编号，若余数为0，编号取10，再从密码表中找出与编号对应的加密字符，其密码表如下：
编号
| 1
| 2
| 3
| 4
| 5
| 6
| 7
| 8
| 9
| 10
|
加密字符
| H
| o
| w
| A
| r
| e
| Y
| O
| U
| ?
|
例如：数字2018加密过程：
数字
| 2
| 0
| 1
| 8
|
位置
| 1
| 2
| 3
| 4
|
编号
| 3
| 2
| 4
| 12 mod 10=2
|
加密字符
| w
| o
| A
| o
|
按照上述方法，设计一个字符加密的VB程序，运行程序时，在文本框Text1中输入明文数字，单击加密按钮Command1，程序将明文加密，并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。
（1）将命令按钮上显示的文本Command1”改为“加密”，可在其属性窗口中将____属性的属性值修改为“加密”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
（3）若密文是“YwUH”,则明文是____________________
。
