实现上述功能的VB程序如下。请在画线处填入适当的语句和代码，把程序补充完整。

Dim w As Integer         ‘变量w用于存储每次最大数字字符的位置

Private Sub Command1_Click()

  Dim t As String

  Dim i As Integer，j As Integer

  Dim max As Integer，S As Integer

  t=Text1．Text

  s=0

  For i=3 To 1 Step-1

    max=0

    For j=1 To Len(t)

       If Val(Mid(t，j，1))>max Then

       max=Val(Mid(t，j，1))

    ①  

      End If

    Next j

    s=s+    ②   

    t=delmax(t)

  Next i

  Text2．Text=Str(s)

End Sub

‘自定义函数功能是去除当前最大数字字符

Function delmax(t As String)As String

  delmax=    ③  

End Function

s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

 Dim a(1 To 10) As Integer

 Dim s(1 To 10) As Integer

 Private Sub Form_Load()

  a(1) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9

  a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5

 End Sub

 Private Sub Command1_Click()

 Dim i As Integer, t As Integer

 s(1) = a(1)

 For i = 2 To 10

  s(i) = s(i - 1) + a(i)

 Next i

 t = s(8) - s(4)

 Text1.Text = Str(t)

End Sub

程序运行后，文本框Text1显示的内容是（  ）

Private Sub Command1_Click( )

    Dim a As Integer, b As Integer, c As Integer

    A=Val(Text1.Text): b=Val(Text2.Text): c＝Val(Text3.Text)

    Label2.Caption=Str(fx(a, b, c))

End Sub

Function fx(x As Integer, y As Integer, z As Integer) As Integer

    If x<y Then fx=z

    If x>y Then fx=y Else fx=x

End Function