题目

  已知数组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                       End If     Loop     s = ""     For i = 1 To lena         s = s + Str(a(i))     Next i     Text2.Text = s End Sub 答案： 【1】A 【1】i=i+1【2】a(j)【3】lena=lena-1

查看本题答案和解析