从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

Private Sub Command1_Click()

Label1.Caption = sj  ‘计算机随机产生一个值

Label2.Caption = Command1.Caption

If cp(Label1.Caption, Label2.Caption) Then ‘判断胜负

    {#blank#}1{#/blank#} = "乙方负"

Else

    Label3.Caption = "乙方胜"

End If

End Sub

Function sj() As String '随机生成石头、剪刀、布

   i = {#blank#}2{#/blank#}  ‘随机生成1~3任一整数

   If i = 1 Then sj = "石头"

   If i = 2 Then sj = "剪刀"

   If i = 3 Then sj = "布"

End Function

图a

图b

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub