现要求编写VB程序（运行界面图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。

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

Function max(x As Integer) As Integer

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

  a = x \ 100

  b = (x \ 10) \ 10             ' ①

  c = x mod 10

  If a < b Then t = a: a = b: b = t

  If a < c Then t = a: a = c: c = t

  If b < c Then t = c: c = b: b = t

  max = c* 100 + b * 10 + a     ' ②

End Function

Private Sub Command1_Click()

     Dim n As Integer, y As Integer

     n = Val(Text1.Text)

     y = max(n)

     Text2.Text = Str(y)

End Sub

s=Text1.Text

 s1=" "

 For i=1 To Len(s)

    c=Mid(s, i, 1)

If  c>="A" And c<="Z"   Then

c=Chr(Asc(c)+32)                 '大写字母转化为小写字母

End if

s1=s1+c

Next i

 Text2.Text=s1

在文本框Textl中输入"ABcd12XY "，执行上述程序段后，文本框Textl显示的内容是(   )

图a

图b

小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。

Private Sub Command1_Click()

a = Text1

For i = 1 To Len(a)

    b = Mid(a, i, 1)

    c = Chr(Asc(b) )

    d = d + c

Next i

Text2 = d

End Sub

如果在文本框text1中输入字符"316100"，则文本框text2中显示的值是：（   ）