試卷征集
加入會員
操作視頻

【加試題】李雷收到了朋友發(fā)給他的一封奇怪的郵件,里面有段內容是由一些數(shù)字和符號組成,信上面說了,這段內容是加密后的內容,并給出了具體加密方法(假定原文的英文字母都是大寫的),具體方法如下:
(1)“A”變?yōu)橐粋€1到100內的隨機數(shù)*27+1,“B”變?yōu)橐粋€1到100 內的隨機數(shù)*27+2,…,“Z”變?yōu)橐粋€ 1 到 100 內的隨機數(shù)*27+26;
(2)每個字母變?yōu)閿?shù)字后會加上一個“-”用來分割數(shù)字;
(3)其他空格和標點字符都按原來的表示.
    李雷利用VB 編寫了一個解密程序,功能如下:將郵件中密文的內容復制到文本框Text1中,點擊“解密”按鈕Command1后,程序會將密文解密并將解密后的內容顯示在文本框 Text2 中.
程序運行界面如圖所示:
菁優(yōu)網
(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'用于存儲某字母在密文中對應數(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.

【答案】OK;Mid(s,i,1);value=0
【解答】
【點評】
聲明:本試題解析著作權屬菁優(yōu)網所有,未經書面同意,不得復制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:7引用:2難度:0.1
相似題
  • 1.學校舉辦了“語文作文現(xiàn)場賽”,參賽同學成績存儲在文本文件“gra.jye.ai”中,如左圖所示(每一行記錄一位同學的姓名和成績,以“:”分隔)。陳老師利用Python程序對作文成績進行處理,統(tǒng)計出各個分數(shù)等級的人數(shù),并輸出結果。程序運行界面如右圖所示。
    菁優(yōu)網
    實現(xiàn)上述功能的Python程序如下,請在劃線處填入合適的代碼。
    菁優(yōu)網

    發(fā)布:2024/12/17 2:0:1組卷:6引用:2難度:0.3
  • 2.有如下Python程序段:
    菁優(yōu)網
    執(zhí)行該程序段,輸入字符串“abcdefg”,則輸出的結果是( ?。?/h2>

    發(fā)布:2024/12/20 6:30:1組卷:2引用:3難度:0.4
  • 菁優(yōu)網3.試題描述的內容:
    一個單窗體VB程序的運行界面如圖所示。下列說法正確的是( ?。?br />(1)窗體內有1個按鈕
    (2)窗體內有2個文本框
    (3)窗體內有3個標簽
    (4)該窗體的標題(Caption)屬性值是“加法計算器”

    發(fā)布:2024/12/20 20:0:2組卷:1引用:1難度:0.6
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司| 應用名稱:菁優(yōu)網 | 應用版本:5.0.7 |隱私協(xié)議|第三方SDK|用戶服務條款
本網部分資源來源于會員上傳,除本網組織的資源外,版權歸原作者所有,如有侵犯版權,請立刻和本網聯(lián)系并提供證據(jù),本網將在三個工作日內改正