对称字符串的特征是从左到右读和从右往左读是完全一样的。如“abba”是对称的，”abcba”也是对称的。判断字符串是否对称的VB程序段如下：
n = Len(s)  's是判断的字符串

  k = 0: j = n

  For i = 1 To n \ 2

  Next i

  If k = 0 Then Label1.Caption = "对称" Else Label1.Caption = "不对称"

方框中的代码由以下三部分组成：
①j = j - 1
②If c1< >c2 Then k = k + 1
③c1 = Mid(s,i,1) : c2 = Mid(s,j,1)
代码顺序正确的是（    ）

A．①③②	B．②③①
C．②①③	D．③②①

   随机产生15个A-J的大写字母，按字母降序排序后，将连续出现的字母用压缩的形式显示。例如，连续5个H字母显示为5*H，如图所示，请在划线处填入合适代码。  

Sub command1_Click( )
Const N = 14
Dim a(1 to n) As Char, c As Char   ‘数组a用于存储随机产生字母
Dim count, i, k, j as integer
Label1.caption = ""
For i = 0 To N
a(i) = ________
Label1.caption = a(i) & " "
Next i
For i = 0 To N - 1
k = i
For j = i + 1 To N
If a(j) > a(k) Then_________  
Next j
c = a(i) : ___________: a(k) = c
Next i
For i = 0 To N '输出排序的结果
Label1.caption = a(i) & " "
Next i
i = 0
Do While i <= N '压缩显示相同元素   
count = 1
If i < N Then j = i + 1
Do While a(i) = a(j)
If i <> j Then count = ____________
If j < N Then j = j + 1 Else Exit Do
Loop
If count = 1 Then
Label1.caption = a(i) & " "
Else
Label1.caption = ___________  
End If
i = i + count
Loop
End Sub

编写VB程序，实现如下功能：单击“计算”按钮，在列表框List1中产生10个1，99随机数，文本框Text1显示相邻两个数字之间相差最大的差值。运行界面如图所示。

（1）窗体上，“计算”按钮的对象名是_____。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private sub cmd1_click( )
Dim b(1 to 10) as integer
Dim I as integer,max as integer ,a as integer, c as integer
Max=0
For i=1 to 10
Randomize
A=int(rnd*99)+1
_______________________
List1.additem  str(a)
Next i
For  i=2 to 10
C=________________
If c>max then __________________
Next I
____________________________
End sub

读流程图写结果

若输入-6，运行结果是_______________。

小张编写了一个查询汉字区位码的程序，程序具体功能：在文本框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 中输出的内容是：_______________