Private Sub Command1_Click()

 Dim n As Integer, s As Integer

 n = 10

 s = 10 ︿ n

 Text1.Text = Str(s)

End Sub

运行程序时，单击命令按钮Command1后弹出如图所示的出错信息提示，引起该错误的原因是（   ）

⑴授权码由10位字符组成，前8位为日期的密文，后2位为验证码；

⑵取日期的第1位字符，若该字符第一次出现，则直接取其对应加密字符，否则取下一个不重复的加密字符。按此操作，依次取出该日期余下各位对应的加密字符；

⑶求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为“X”。取出验证码重复时，处理规则与(2)相同。加密(验证码)字符对应表如下:

小明设计了一个生成8位日期(YYYYMMDD格式)授权码的VB程序。程序功能如下:在文本框Text1中输入一个8位有效日期，单击“生成授权码”按钮Command1，在标签Label2中显示出该日期的授权码。运行效果如图所示。实现上述功能的VB程序段如下：

①s[:4]          ②s[-5：-1]         ③s[:2]+s[3]*2        ④s[0:2]+s[3:5]