本程序实现文本加密。先给定序列：a₁，a₂，…，a_n，它们的取值范围是1～n，且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第a_k个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n
后再加密。
例如：若给定序列a₁，a₂，…a₇却分别为2，5，3，7，6，1，4
当文本为“PROGRAM”时，加密后的文本为“APOMRRG”
当文本为“PROGKAMMING”时，加密后的文本为“APOMRRGMING”
当文本为“THANK”时，加密后的文本为“*TA*HKN”
下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a(₁，a₂，a₃，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mysar中。请填空。
Option Basel
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 & String＄(n,"*")
End If
ch= mystr
For k= 【14】 To UBound(a)
c1=Mid(mystr,k,1)
n= 【15】
Mid＄(ch, n)=c1
Next k
mystr=ch
End Sub

《中 * * 纪委关于严格禁止利用职务上的便利谋取不正当利益的若干规定》规定，对国家工作人员中的 * * 党员利用职务上的便利为请托人谋取利益，约定在其离职后收受请托人财物，并在离职后收受的违纪认定正确的是（）

A、离职前后连续收受请托人财物的，离职前后收受部分均应计入违纪数额

B、离职后收受部分不应计入违纪数额

C、离职后收受数额较小的不计入违纪数额

D、离职前后收受的财物应区分核算