题目
第2题
例如:若给定序列 a1,a2, … a7 分别为 2 , 5 , 3 , 7 , 6 , 1 , 4
当文本为 “ PROGRAM ” 时,加密后的文本为 “ APOMRRG ”
当文本为 “ PROGRAMMING ” ,加密后的文本为 “ APOMRRGMING ”
当文本为 “ THANK ” 时,加密后的文本为 “ TA*HKN ”
下面的过程 code 实现这一算法。其中参数数组 a() 中存放给定序列(个数与数组 a 的元素个数相等)a1,a2,a3 … 的值,要加密的文本放在参数变量 mystr 中。过程执行完毕,加密后的文本仍放在变量 myst r中。请填空。
Option Base 1
Private Sub code(a () As Integer,mystr As String)
Dim ch As string,cl As String
n=Ubound(a)-Len(mystr)
If n>0 Then
mystr= mystr& Strings(n, ” * ” )
End If
Ch=mystr
For k= 【 14 】 To Ubound(a)
Cl=Mid(mystr,k,l)
n= 【 15 】
Mid$(ch,n)=cl
Next k
Mystr=ch
End Sub
第6题
A.13425
B.13245
C.12435
D.12345
第7题
A.12345
B.12435
C.13425
D.13245
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!