对英文字母进行加密的规则：用26个互不重复的ASCII字符作为密钥，字母“A”用密钥中第1个字符代替，字母“B”用密钥中第2个字符代替，其他字母用类似方法进行加密。现编写一个验证密钥合法性的程序。在文本框Text1中输入密钥，单击“验证”按钮Command1，在文本框Text2中输出相应的信息。程序运行的界面如图所示。
实现该功能的程序代码如下：
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
