实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

    Dim a As Integer, b As Integer

    Dim n As Integer, t As Integer

    Dim m(1 To 100) As Integer

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    n = Val(Text3.Text)

    If  a > b Then t = a: a = b: b = t

    Randomize

         ①        

    For i = 2 To n

    m(i) = Int(Rnd * (b - a + 1)) + a

    If m(i) > m(i - 1) Then

           ②     

    For j = i - 1 To 1 Step -1

    If temp < m(j) Then Exit For

    m(j + 1) = m(j)

    Next j

          ③     

    End If

    Next i

    For i = 1 To n

    List1.AddItem Str(m(i))

    Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

例如：单词banana由b，a，n三个字母组成，其中a字母出现了3次，n字母出现了2次，b字母出现了1次，得到maxn为3，minn为1，maxn与minn的差为2，是一个素数，那么banana就是一个幸运单词。

编写一个判断幸运单词的VB程序，在文本框Text1中输入一个单词(注：仅输入小写字母，且长度小于100)，单击“判断”按钮Command1，标签Labal1输出运行结果。

程序运行界面如图所示，实现上述功能的VB代码如下，但加框处代码有错，请改正。

Private Sub Command1_Click()

    Dim maxn As Integer

    Dim minn As Integer

    Dim a(1 To 26)As Integer

    maxn=0

    minn=100

s= Text1．Text

n=Len(s)

For i=1 To n

        dz=Mid(s，i，1)

        If dz>=“a”And dz<=“z”Then

          p=                 ‘(1)

           a(p)=a(p)+1

        End If

Next i

For j=1 To 26

        If a(j)>0 Then

         If a(j)>maxn Then maxn=a(j)

          If a(i)<minn Then minn=a(j)

        End If

       Next j

    If(maxn-minn>=1)And  Then       ‘(2)

        Label1．Caption=“幸运单词!”

      Else

        Label1．Caption=“无!”

      End If

    End Sub

‘自定义函数iszs(x)用于判断整数x是否为素数，如果x是素数返回True

  Function iszs(x As Integer)As Boolean

      ‘代码略

End Fuction

Key = Val(Text1.Text) \10 Text2.Text = ""

i = 1: j = 9: f = False

Do While i <= j And Not f m = (i + j)\ 2

If a(m) Mod 10 = Key Then search = m: f = True

ElseIf a(m) Mod 10 > Key Then i = m + 1

Else

j = m - 1 End If

Text2.Text = Text2.Text + Str(m) Loop

执行完该程序段后，Text2中显示的内容是（  ）

n=Len(s)       ‘s是待判断的字符串

k=0:j=n

For i=1 To n/ 2

Next i

If k=0 Then Labell Caption=“对称”Else Labell.Caption=“不对称”

方框中的代码由以下三部分组成:

①j=j-1    ②If cl <> c2 Then k=k+1    ③cl=Mid(s,i,l):c2=mid(s,j,l)

代码顺序正确的选项是（  ）

For i=1 To 6

 j=7

 Do While j > i

  If a(j)>a(j-1) Then

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

Option Base 1

Private Sub Command1Click

     Dim a(4, 4)

     For i = 1 To 3

        For j = 1 To 3

             a(i, j)=(i-1)*3+j

        Next j

     Next i

     PRINT A(3, 1)

End Sub

程序运行后，单击命令按钮，其输出结果为（  ）