Dim i As Integer, j As Integer, k As string, n As Integer

n = 3

List1.Clear

For i=1 To n

k =″″

For j=1 To i

k = k+″*″

Next j

List1.AddItem k

Next i

该程序运行后, 在列表框List中显示的是（   ）

例如：单词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

a(1) = 2

For i = 2 To 3

  a(i) = a(i - 1) - Int(Rnd() * 2)

  If i Mod 2 = 1 Then

    a(i) = a(i) + 1

  Else

    a(i) = a(i) - 1

  End If

Next i

执行程序后，a(2)和a(3)的值不可能的是（   ）

Private Sub Command2_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim s1 As String, t As Integer, s2 As String

t=1

For i=1 To n-2

    For j= To n Step 2     ‘改错

        If a(i)*t>a(j)*t Then

            tmp =a(i): a(i)= a(j): a(j)=tmp

        End if

    Next j

                   ‘填空①

Next i

For i =1 To n

    If     Then       ‘填空②

        s1 =s1 Str(a(i))

    Else

        s2=s2+Str(a(i))

    End If

Text2. Text=“奇数位：”+s1

Text3. Text=“偶数位：”+s2

End Sub

回答以下问题：