有如下 VB 程序段：
i=1：n=5
Do while i<=n x=Int(Rnd*9)+1
If   x Mod 2=1 Then a(i)=x
Else
a(n)=x:n=n+1
EndIf
i=i+1
Loop
数组元素的初值均为 0，执行该程序段后，a(1)至 a(5)的值可能是（   ）

A．1 , 3 , 5 , 5 , 0

B．3 , 3 , 0 , 8 , 8

C．0 , 1 , 0 , 4 , 2

D．7 , 1 , 3 , 9 , 8

（加试题）小明编写了一个统计字符串中数字字符串之和的VB程序（如字符串“ab12.3cd34ef9”,中数字字符串之和为58：12+3+34+9），运行界面如图所示。在文本框Text1中输入字符串s，单击“统计”按钮Command1，在Label3中输出统计结果。

实现上述功能的VB程序代码如下，但划线处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, ch As String
Dim ch2 As String, sum As Double
Dim n As Integer, i As Integer
s = Text1.Text
n = Len(s)

i = 1: sum = 0

  Do While  i < n ＇①_____________
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
j = i
ch2 = Mid(s, j, 1)
Do While ch2 >= "0" And ch2 <= "9"
j = j + 1
ch2 = Mid(s, j, 1)
Loop
sum = sum + Val（Mid(s, i, j – i - 1)）    ＇②_____________
i = j
End If
i = i + 1
Loop
Label3.Caption = Str(sum)
End Sub

Sub test3()双重循环运行 输出图形 与3重复,但3已改题
For i =" 1" To___1___step 1
s = ""
For j =" 1" To 2 * i - 1
s =" Str(j)" + s
Next j
List1.AddItem s
Next i
End Sub
该程序的运行后列表框输出的第三行是 （  ）

A．33333

B．55555

C．12345

D．54321

学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分。薛明很快编写了这个程序，该程序的界面如右图所示：
程序运行时，每输入一个分数单击“确定”按钮（Command1），就将该分数记入总分，同时在下面显示到目前为止已输入的所有分数。当所有的分数输入完毕后，单击“统计->”按钮（Command2），程序就会在右边显示总分和最后的平均分。请回答下面的问题：

（1）写出上述图形中所标识的③对象所属的类？如④所属的类为“文本框”。
_____________
（2）以下是薛明编写的统计程序，请完善程序。
Dim total As Integer, ans As Single, x As Integer, max As Integer
Dim min As Integer, s As Integer
Private Sub Command1_Click()
x = Val(Text1.Text)
total = total + x
s =" s" + 1
If_________Then max = x
If x < min Then min = x
List1.AddItem x
End Sub
Private Sub Command2_Click()
Label4.Caption = Str(total)
ans =_________
ans = ans / (s - 2)
Label6.Caption =_____________
End Sub
Private Sub Form_Load()
total = 0
s = 0
min = 10000
max = 0
End Sub

写出算法执行结果