实现该功能的程序代码如下：

Private Sub Command1_Click()

    Dim i As Integer，ch As String，s As String

    Dim my(0 To 127)As Boolean  ‘0～127表示128个ASCII字符的ASCII值

    s=Text1．Text

    For i=0 To 127

        my(i)=False

    Next i

    If    ①   then

        Text2．Text=”密钥长度不足26个字符!”

    Else

        For i=1 To 26

           ch=Mid(s，i，1)

           t=    ②    

           If my(t)=False Then

              my(t)=True

           Else

             Text2．Text=“密钥中有重复字符!”

             Exit Sub

           EndIf

        Next i

        Text2．Text=“密钥正确!”

    EndIf

End Sub

实现该功能的VB程序段如下：

Function space(x As Integer)As String        ‘输出格式化，设置左侧的空格数量

  Dim n As Integer

  For n=9 To x Step-1

     ①  

  Next n

End Function

Private Sub Form_Load()

  Dim t As Long，i As Integer，n As String

  Dim a(1 To 9)As String

  Dim b(1 To 9)As String

  Const num=“987654321”

  For i=1 To 9

    t=t*10+i

    a(i)=space(i)+CStr(t)  ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

       ②   

    n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13)       ‘Chr(13)实现换行处理

  Next i

  Label1．Caption=n

End Sub