1. (2020·浙江模拟) 为有效降低机动车污染物排放，持续改善首都空气质量，北京市政府决定自2017年1月9日至2017年4月9日，继续实施工作日（因法定节假日放假调休而调整为上班的星期六、星期日除外）高峰时段区域限行交通管理措施，具体限行尾号如图a所示。

某同学编写程序实现如下功能：程序运行时，在文本框Text1中输入车牌号，单击“判断”按钮Command1，在文本框Text2中显示限行的工作日。如图b所示，尾号为5，则显示星期二限行。

1. （1） 程序运行界面中都具有Caption属性的对象个数为。
3. （2） 实现上述功能的VB程序如下，请在画线处填入合适的代码。

   Private Sub Command1_Click（）

       Dim s As String，n As Integer，x As String，y As String

       s=Text1. Text

       n=    ①   

       y=“”

       For i=n To 1 Step-1

         x=Mid（s，i，1）

         If    ②    Then

           If Val（x）Mod 5=4 Then

               y=“星期一”

           Else If Val（x） Mod 5=0 Then

               y=“星期二”

           Else If val（x） Mod 5=1 Then

               y=“星期三”

           Else If val（x） Mod 5=2 Then

               y=“星期四”

           Else

               y=“星期五”

           End If

           Exit For       退出循环

         End If

       Next

     Text2. Text=     ③   

   End Sub

   ① ② ③