a(i)= Int(Rnd * 20) + 1 Next i

For i= 2 To 5

If i Mod 2 = 1 And a(i-1) < a(i)Then  t=a(i):a(i)=a(i-1):a(i-1)=t

Else

a(i)=a(i)-1 End If

Next i

执行该程序段后，a（1）~ a（5）各元素不可能的值是（  ）

程序界面如图所示，当单击“求解”按钮Command1时，在列表框List1中显示所有满足条件的组合。

程序代码如下，请在划线处填上合适的代码。

Dim a(0 To 9) As Integer

Private Sub Command1_Click()

 Dim i, n, m As Integer

 For i = 123 To 333

  For n = 1 To 9

   a(n) = 0

 Next n

 s = 0

 call fenjie (i)    ‘使用call调用自定义过程,下同

 call fenjie (2 *i)

 call fenjie (3 *i)

 For m = 1 To 9

  s ={#blank#}1{#/blank#}

 Next m

  If s = 9 Then List1.AddItem i & “ ” & 2 * i & “ ” & 3 * i

 Next i

 End Sub

Sub fenjie(x As Integer)    ‘自定义过程,将3位数分解并修改对应下标元素的值

 a(x Mod 10) = 1

 {#blank#}2{#/blank#}

 a(x \ 100) = 1

End Sub

s = Text1.Text

For i = 1 To Len(s) c = Mid(s, i, 1)

s1 = s1 + c Next i Text2.Text = s1

程序运行时，在文本框Text1中输入“ABC123xyz”，在文本框Text2中输出“bcd123yza”，则加框①处的代码为（ ）

A.

 s = "Hello World"

 s1 = ""

 n = Len(s)

 For i = 1 To n \ 2

   If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

     s1 = s1 + Mid(s, i, 1)

   Else

     s1 = Mid(s, n - i + 1, 1) + s1

   End If

 Next i

 Text1.Text = s1

执行该程序段后，在文本框Text1中显示的是（  ）