小张编写了一个查询汉字区位码的程序，程序具体功能：在文本框Text1中输入一个汉字的内码（处理码），单击“查询”按钮Command1后，在Text2中输出汉字的区码和位码。例如：汉字“啊”的内码和区位码的关系如下：

“啊”的区位码	区码	位码
十进制	16	01
十六进制	10	01

 
区位码分别转成十六进制后，将区码和位码分别加上十六进制数A0即得到内码。

“啊”的内码的十六进制形式即为B0A1H
程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, q As Integer, w As Integer, s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To 4    '如果输入的处理码包含小写字母，则转成大写字母
c = Mid(s, i, 1)
If  ①_____ Then
s = Mid(s, 1, i - 1) + Chr(Asc(c) - 32) + Mid(s, i + 1, Len(s) - i)
End If
Next i
For  i = 1 To 4   '两个字节分别减去 A0H
c = Mid(s, i, 1)
If i Mod 2 = 1 Then
s1 = s1 & CStr((Asc(c) - Asc("A")))    'CStr( )：将括号内表达式的值转换为字符串型
Else
②_____
End If
Next i
For i = 1 To 2    '将十六进制转换成十进制
q = q * 16 + Val(Mid(s1, i, 1))
③_____
Next i
Text2.Text = "区号：" + Str(q) + "   位号：" + Str(w)
End Sub
（1）请在划线处填入合适的代码。
（2）如果输入的内码为 D1A7，则 Text2 中输出的内容是：_______________