編寫VB程序，實(shí)現(xiàn)如下功能：?jiǎn)螕簟吧擅芪摹卑粹oCommand2，在文本框Text3中產(chǎn)生與每個(gè)小寫字母對(duì)應(yīng)的密文（每個(gè)明文字母對(duì)應(yīng)1個(gè)不重復(fù)的密文字母）．在文本框Text1中輸入單詞字符串，單擊“加密”按鈕Command1后，進(jìn)行逐個(gè)字符加密，加密方法：在“明文”中找到相應(yīng)字符，再得到明文對(duì)應(yīng)位置的密文，并在文本框Text2中顯示對(duì)應(yīng)密文（運(yùn)行效果如圖所示）．實(shí)現(xiàn)上述功能的VB代碼如下：
Dim m2As String
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim flag（1To 26）As Boolean
Dim num As Integer,t As Integer
Randomize
num=1
Text3．Text=““
For i=1To 26
flag（i）=False
Next i
Do While num＜=26
x=Int（Rnd*26）+97
①

t=x-Asc（“a“）+1

t=x-Asc（“a“）+1

If  flag（t）=False Then
m2=m2+Chr（x）
num=num+1
②
End If
Loop
Text3．Text=m2
End Sub
Private Sub Command2_Click

（　?。?/div>

（　?。?/div>
Dim s As String,m As String,result As String
Dim k As String,c As Integer
s=Text1．Text
m=“abcdefghijklmnopqrstuvwxyz“
For i=1To Len（s）
k=Mid（s,i,1）
If  k＞=“A“And k＜=“Z“Then
k=Chr（Asc（k）+32）
End If
c=1：continue=True
Do While③  
If k=Mid（m,c,1）Then
continue=False
End If
c=c+1
Loop
④
Next i
Text2．Text=result
End Sub
程序①處的代碼是

t=x-Asc（“a“）+

t=x-Asc（“a“）+

程序②處的代碼是

flag（t）=True

flag（t）=True

程序③處的代碼是

countinue=True 或countinue

countinue=True 或countinue

程序④處的代碼是

result=result+Mid（m2，c-1，1）

result=result+Mid（m2，c-1，1）

．