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

某加密算法對大寫字母加密,其加密規(guī)則如下:密文的ASCII碼值=明文的ASCII碼值+密鑰,加密后生成的密文仍為大寫字母。其密鑰是在3*3矩陣中獲得,獲得密鑰的方式為:如字母“A”的ASCII碼值為65,將65反復(fù)除3,其轉(zhuǎn)換過程如圖1所示,得到商為2,密鑰在矩陣中所在行;得到余數(shù)2,密鑰在矩陣中所在列;商或余數(shù)為0,密鑰在矩陣中最后一行或最后一列。其程序運行界面如圖2所示。菁優(yōu)網(wǎng)
(1)下列對象中沒有Caption屬性的是
C
C
(單選,填字母:A.Command1/B.Forml/C.Textl
和Text2)。
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
(3)程序中加框處代碼有錯,請改正。
(4)根據(jù)程序的功能并結(jié)合圖2,字母C加密后的密文為
F
F
。
Dim a(1 To 9)As Integer
Private Sub Command1_Click (  )
Dim column As Integer,row As Integer,t As Integer,tmp As Integer
Dim s As String,ch As String,result As String
s=Text1.Text:result=““
For i=1 To Len(s)
ch=Mid(s,i,1):t=①
Asc(ch)
Asc(ch)

column=(t-1)Mod 3+1
Do While t>=3
t=t\3
Loop
row=菁優(yōu)網(wǎng)
tmp=(Asc(ch)+②
a((row-1)*3+column)
a((row-1)*3+column)
-65)Mod 26+65
result=result+Chr(tmp)
Next i
Text2.Text=result
End Sub
Private Sub Form_Load ( ?。?用來生成3*3矩陣
For i=1 To 9
a(i)=Int(Rnd*9)+1
s=s+Str(a(i))
If i Mod 3=0 Then
List1.AddItem s
s=““
End If
Next i
End Sub

【答案】C;F;Asc(ch);a((row-1)*3+column)
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.3
相似題
  • 1.有如下VB程序段:
    菁優(yōu)網(wǎng)
    執(zhí)行該程序段后,變量c的值是( ?。?/h2>

    發(fā)布:2024/12/16 5:0:1組卷:1引用:2難度:0.3
  • 菁優(yōu)網(wǎng)2.小明用python語言中對大小為100*100像素的圖像“上.jpg”(如圖所示)進行簡單處理,部分代碼如圖:
    菁優(yōu)網(wǎng)
    程序執(zhí)行后的圖像效果是(  )

    發(fā)布:2024/12/20 9:30:2組卷:3引用:5難度:0.4
  • 3.由大寫字母組成的長度相同的兩個字符串s1和s2,檢測各字母的數(shù)量,如“ABDAC”與“AABCD”所含字母數(shù)量一樣,與“AABBC”所含字母數(shù)量不一樣。實現(xiàn)該功能的VB程序段如下:
    菁優(yōu)網(wǎng)
    填空處的代碼可以由以下部分組成:
    ①Text2.Text ②val(Text2.Text) ③b(a)=b(a)+1 ④b(a)=b(a)-1 ⑤b(i)<>0⑥b(i)=0
    代碼順序正確的是( ?。?/h2>

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