1. (2020高二上·丽水月考) 给定两个十进制整数X和Y（X<=Y），求出从X到Y的所有整数中出现“1”的个数。例如：X=6，Y=15时，6，7，8，9，10，11，12，13，14，15，出现了7个“1”。小明编写了一个VB程序，功能如下：在文本框Text1中输入整数X，在文本框Text2中输入整数Y，单击“统计”按钮Command1后，在列表框List1中显示X到Y，并在标签Label3中显示从X到Y的所有整数中出现“1”的个数。程序运行界面如图所示，请在划线处填入合适代码。

1. （1） 下列程序段中句List1.AddItem中的AddItem是 （填字母：A . 属性名/B . 事件名/C . 方法名/D . 对象）
3. （2） 为了实现上述功能，请在划线处填入合适的代码。

   Private Sub Command1_Click()

   Dim x As Integer, y As Integer, t As Integer

   Dim i As Integer, n As Integer, count As Integer

   x = Val(Text1.Text)

   y = Val(Text2.Text)

   

   count = 0

   For i = x To y

   List1.AddItem Str(i)

   n = i

   Do While n > 0

   If n Mod 10 = 1 Then

         count = count + 1

   End If

      

     Loop

   Next i

   Label3.Caption = "X到Y之间1的个数有" +   +"个"

   End Sub

5. （3） 如果删除加框处代码，并运行程序，在文本框Text1中输入“40”，在文本框Text2中输入“10”，单击“统计”按钮，则标签框Label3显示X到Y之间1的个数有个。