1. (2020高二上·上海开学考) 已知数组a中的元素按非递减有序排列，在程序运行时显示在Text1中。编写程序实现如下功能：删除数组的重复元素，并更新数组的长度，在Text2输出新的数组元素值。程序运行界面 如图所示。

1. （1） 要是程序运行时，窗体Form1标题立即立即显示为“删除重复数组元素”，可在（单 选：A .Form_Load()/B .Form_click()/C .Command1_Click()）事件过程中添加Form1.Caption=“删除重复数组元素”语句来实现。
3. （2） 为实现上述功能的VB程序如下，请在划线处补充缺失的代码。

   Const n = 20

   Dim a(1 To n) As Integer

   Dim lena As Integer    '数组a的实际长度 Dim s As String

   Private Sub Form_Load()

       '生成lena个非递减序列，并输出到文本框text1中，代码略

   End Sub

   Private Sub Command1_Click()

       Dim i As Integer, j As Integer i = 1

       Do While i < lena

           If a(i) <> a(i + 1) Then i =

           Else

               For j = i + 1 To lena

                   a(j - 1) =  

               Next j

               lena =  

           End If

       Loop

       s = ""

       For i = 1 To lena

           s = s + Str(a(i))

       Next i

       Text2.Text = s

   End Sub