编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。

Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click()     '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then      ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6"     ②   j <= 6           '如果两数组都还有数据未合并
If        ③    Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6                            '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6                            '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub

编写VB程序,实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

（1）观察运行界面，选项中没有用到的控件是      ( 选项

A．

B．

C．

D．)。

（2）设计该窗体界面时，需要将窗体form1的           属性设置为“最大随机数”。
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then      ②
Next i
List1.AddItem "和为：" +       ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:①        ②       ③      。

字符串中任意个连续的字符组成的子序列称为该字符串的子串,如字符串123, 子串有1、2、3、12、23、123，输出字符串s所有子串的程序如下：
S=text1.text
List1.clear
Len1=len(s)                            ‘ (1)
For i="1" to len1                         ‘ (2)
For j="1" to len1-i                  ‘ (3)
List1.additem mid(s,j,i)         ‘ (4)
Next
Next
运行时发现没有输出所有子串，则应修改

A．(1)处修改为 len1=len（text1.text）

B．（2）处修改为 for i="1" to len1+1

C．(3)处修改为for j="1" to len1+1-i

D．（4）处修改为 list1.additem mid(s,i,j)