现要求编写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

山顶上共有10个洞，一只兔子和一只狐狸相遇了，狐狸要吃兔子。兔子对狐狸说：“你可以吃掉我，但必须先找到我。我就藏在这10个洞的其中一个洞中（注：第1~10个洞的编号分别为：1、2、3、4、5、6、7、8、9、0）。你先到1号洞找我，若没找到，则第二次隔一个洞找我，即3号洞；第三次隔两个洞找我，即6号洞；以后以此类推，找到就可以吃掉我。”狐狸答应了，但是狐狸进进出出100次后，也没找到兔子，请问兔子躲藏在哪个洞？

根据规则，前面5次进洞的情况如下表所示。

解决此问题的VB程序界面如右图所示，单击“运行”按钮，在列表框List1中显示兔子可能躲藏的山洞编号。

模拟上述过程的VB程序代码如下。

Private Sub  Run_Click()

Dim i As Integer , k As Integer

Dim hole(0 To 9) As Boolean    'hole(0)表示第10号洞

For i = 0 To 9

   hole(i) = True

Next i

k= _____________  

For i = 1 To 100

   k = k + i

 hole(k Mod 10) = False

Next i

End Sub

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, ch As String

    s1 ＝ Text1.Text

    s2 ＝””

    ch ＝””

    For i ＝ 1 To Len(s1)

      ch ＝ Mid (s1, i, 1)

      If Asc(ch) <＝ 122 And Asc(ch) >＝ 97 Then

        ch ＝Chr(Asc(ch) － 32)

      End If

      If Asc(ch) >＝ 65 And Asc(ch)<＝ 90 Then

        ch ＝ Chr(65 ＋ (Asc(ch) － 62) Mod 26)

      End If

      s2 ＝ s2 ＋ ch

    Next i

    Text2.Text ＝ s2

  End Sub

已知大写字母A的ASCII码值为65，且小写字母的 ASCII 码为对应的大写字母的ASCII码加上32。运行上述程序，若文本框Text1 中的内容为“Text1”，单击命令按钮 Command1，则文本框Text2中将显示（  ）