下述不属于岩石圈三大类岩石的是（） A.岩浆岩 B.泥岩 C.变质岩 D.沉积岩

John is not so _____ as Kate.[ ]

A. brighter

B. bright

C. most bright

有关脊髓灰质炎后遗症，下列手术哪项是不合适的（）

A.畸形矫正术

B.关节稳定术

C.肌腱移位术

D.下肢等长术

E.肌力恢复术

根据我国《合同法》的规定，被撤销的合同没有法律约束力的起始时间是( )

A．当事人订立合同时

B．当事人向人民法院提出申请时

C．人民法院受理当事人申请时

D．合同被撤销时

关于漏出液的描述，正确的是（）

A．相对密度＞1.018，蛋白定量25g，白细胞400×10⁶/L

B．相对密度＜1.018，蛋白定量35g，白细胞＞500×10⁶/L

C．相对密度＞1.018，蛋白定量＞30g，白细胞＞500×10⁶/L

D．相对密度＜1.018，蛋白定量＜25g，白细胞＜100×10⁶/L

E．相对密度＞1.018，蛋白定量＞30g，白细胞＜500×10⁶/L

本程序实现文本加密。先给定序列：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”。
·当文本为“PROGRAMMING”时，加密后的文本为“APOMRRGMING”。
·当文本为“THANK”时，加密后的文本为“*TA*HKN”。
下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)a₁，a₂，a₃，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍然放在变量mystr中。请填空。
Option Base 1
Private Sub code(a() As Integer, mystr As String)
Dim ch As String, c1 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