【加試題】李雷收到了朋友發(fā)給他的一封奇怪的郵件，里面有段內(nèi)容是由一些數(shù)字和符號組成，信上面說了，這段內(nèi)容是加密后的內(nèi)容，并給出了具體加密方法（假定原文的英文字母都是大寫的），具體方法如下：
（1）“A”變?yōu)橐粋€1到100內(nèi)的隨機(jī)數(shù)*27+1，“B”變?yōu)橐粋€1到100 內(nèi)的隨機(jī)數(shù)*27+2，…，“Z”變?yōu)橐粋€ 1 到 100 內(nèi)的隨機(jī)數(shù)*27+26；
（2）每個字母變?yōu)閿?shù)字后會加上一個“-”用來分割數(shù)字；
（3）其他空格和標(biāo)點(diǎn)字符都按原來的表示．
    李雷利用VB 編寫了一個解密程序，功能如下：將郵件中密文的內(nèi)容復(fù)制到文本框Text1中，點(diǎn)擊“解密”按鈕Command1后，程序會將密文解密并將解密后的內(nèi)容顯示在文本框 Text2 中．
程序運(yùn)行界面如圖所示：

（1）根據(jù)描述，若密文為“1905-1442-”，則表示的是：

OK

OK

．
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適代碼．
Private Sub Command1_Click（　?。?br />Dim s As String,yw As String,t As String
Dim value As Integer'用于存儲某字母在密文中對應(yīng)數(shù)值的臨時變量
s=Text1．Text
value=0
yw=””
For i=1 To Len（s）
t=

Mid（s,i,1）

Mid（s,i,1）

If t＞=“0“And t＜=“9“Then
value=value*10+Val（t）
ElseIf t=“-“Then
yw=yw+Chr（Asc（“A“）+value Mod 27-1）

value=0

value=0

Else
yw=yw+t
End If
Next i
Text2．Text=yw
End Sub.