题目

已知数组a中的元素按非递减有序排列，在程序运行时显示在Text1中。编写程序实现如下功能：删除数组的重复元素，并更新数组的长度，在Text2输出新的数组元素值。程序运行界面 如图所示。 （1） 要是程序运行时，窗体Form1标题立即立即显示为“删除重复数组元素”，可在（单 选：A .Form_Load()/B .Form_click()/C .Command1_Click()）事件过程中添加Form1.Caption=“删除重复数组元素”语句来实现。 （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 答案： 【1】Form_Load() 【1】i+1【2】a(j)【3】lena-1

查看本题答案和解析