Private Sub Command1_Click()

Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Dim n As Integer, i As Integer

  n = 3

  For i = 1 To 5

    a(i) = i

    b(n) = 2 * n + i

 Next i

 Text1.Text = Str(a(n))

 Text2.Text = Str(b(n))

End Sub

程序运行后，单击命令按钮，在文本框Text1和Text2上显示的结果分别是（  ）

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10    ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n      ‘flag(i)=true开始假设都只出现1次

 flag(i) = True

Next i

For i = 1 To n

 If flag(i) Then

  For j = i + 1 To n

    If Then flag(i) = False: flag(j) = False    ‘①

  Next j

 End If

Next i

For i = 1 To n

  If Then List2.AddItem Str(a(i))    ‘②

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。

在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。