基本语句 知识点题库

（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