(1)“A”变为一个1到100内的随机数*27+1,“B”变为一个1到100内的随机数*27+2,……,“Z”变为一个1到100内的随机数*27+26;
(2)每个字母变为数字后会加上一个“—”用来分割数字;
(3)其他空格和标点字符都按原来的表示。
李雷利用VB编写了一个解密程序,功能如下:将邮件中密文的内容复制到文本框Text1中,点击“解密”按钮Command1后,程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示:
(1)根据描述,若密文为“1905-1442-”,则表示的是:_______________
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, yw As String, tAs String
Dim value As Integer '用于存储某字母在密文中对应数值的临时变量
s = Text1.Text
value = 0
yw = ""
For i = 1 To Len(s)
t =①____________
If t >= "0" And t <= "9" Then
value = value * 10 + Val(t)
ElseIf t = "—" Then
yw = yw + Chr(Asc("A") + value Mod 27 -1)
②________________
Else
yw = yw + t
End If
Next i
Text2.Text = yw
End Sub
同类型试题
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2
y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2