（加试题）某种字符加密方法描述如：①将待加密的字符分成若干个字符串组，每组n个字符，剩余字符(个数小于n)自成一组。②将每组字符按以下方法重新组合，得到新的字符_刷题宝

题干

（加试题）某种字符加密方法描述如：
①将待加密的字符分成若干个字符串组，每组n个字符，剩余字符(个数小于n)自成一组。
②将每组字符按以下方法重新组合，得到新的字符串。

重新组合规则：取每组第个字符依次连接生成第i个新的字符串，共n组。

③将底组后的n组字符串依次进行字符交换，得到加密字符(加密前后字符均为大写)。

字符变换规则：按字母顺序后移i个位置后输出。

④依次合并变换后的字符串，即为密文。
例如：明文="ABCDEFGHIJK"，n=4的字符加密过程如下：

(1)已知n=3，则待加密数据"ABCDEFG"加密后的密文为_________________。
(2)小张根据上述加密算法，设计了一个对应的加密程序，其VB代码如下，请在划线处填入合适的代码。
下面进行重新组合：重组后数据保存到s1中

下面进行字符变换：字符变换后数据保存到ans中

划线处应填入的代码分别为：（1）______________ （2）______________ （3）______________

上一题下一题 0.99难度填空题更新时间:2019-11-19 07:47:51

答案(点此获取答案解析）

同类题1

反转字符串，如输入字符串为“123ABCD"，则输出字符串为“DCBA321"。部分程序如下所示，划线处的正确语句是
s＝Text1.Text：n=Len(s)
’按s中字符顺序从左到右依次存入数组a中，代码略
i＝1
Do While i<n
t＝a(i)
For j=i＋1 To n
①
Next j
a(j－1)=t
②
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text＋a(i)
Next i

A．①a(j＋1)＝a(j) ②n＝n－1	B．①a(j)＝a(j＋1) ②n＝n＋1
C．①a(j－1)＝a(j) ②n＝n－1	D．①a(j－1)＝a(j) ②n＝n＋1

同类题2

执行下面的程序段后，x的值为（）
x=5
For i="1" To 20 Step 2
x=x+i\5
Next i

同类题3

有如下程序：
a=13972
k=0
DO WHILE a<>0
a=int(a/10)
k=k+1
Loop
Print k
程序运行后，输出结果为（）。

同类题4

有两个以字母结尾的字符串s 1和s 2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：

“不相同”方框中的代码由以下三部分组成：
①

＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（）

同类题5

小李编写了一个程序，用以实现下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制（小于等于16），点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示：

（1）根据题目意思，应该在编辑界面将对象“command2”的______________属性改为“退出”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim x As Long
Dim y As Integer
x = Val(Text1.Text)
y = _____________
Text3.Text = _______________
End Sub
Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do while n<>0
r = n Mod b
n = n \ b
trans = _______________ + trans
Loop
End Function
Private Sub Command2_Click()
End
End Sub

相关知识点