Dim i as Integer, max as Integer Dim a(1 to 10) as Integer

‘代码略，随机产生 10 个不重复的数存于数组 a 的 10 个元素 a(1)~a(10)中max=a(1)

For i=2 to 10

       If a(i)>a(max)  then  max=i Next i

变量 max 用于存储（   ）

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的值为（  ）

加密算法如下：

1)将明码中每个字符的八位二进制ASCII码(不足八位的左端补0，凑足八位)分成两段(左4位一段，右4位为另一段)，如字符“C”的二进制ASCII值为01000011，分段后为0100，0011；

2)将高位段(左边4位)左移一位，并将原第一位数码移到第4位(如0100转化为1000)，再转化为十六进制数(如1000化为8)；

3)对另一段(右4位)执行2)所示算法，如0011→0110→6；

4)顺次连接两位十六进制数，得到该字符的暗码，如“C”的暗码为“86”；

5)将每个字符的暗码按照明码的顺序连接。

实现上述功能的VB程序如下，请回答下列问题：

例如：如图所示，有4个队8位队员，地上一排格子的数字依次为2、1、1、7、9、2、5、6。若某队甲队员站在第4个格子，则其分数为2+1+1+7=11；乙队员站在第7个格子，则其分数为5+6=11。两者相等，则该队获胜。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

Dim i As Integer，j As Integer，t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略

bottom = n

i = 1

Do While i<= bottom-1

  For j = bottom To i + 1 Step -1

      If  Then   ‘⑴

        t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

      Elself a（j）= a（j - 1）Then    '相邻两个数据相等，进行剔除处理

           ‘⑵

        bottom = bottom -1

      End If

    Next j

    i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

  Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}