第一次工业革命中，作交通工具轮船和火车动力的是[ ] A．蒸汽机 B．内燃机 C

《饮膳正要》是元朝太医贾思勰所写。

立场式谈判

小李、小张、小马、小王在一起讨论N地区的廉租房建设情况。小李说：“N地区的廉租房建设得都不错。”小张说：“N地区没有廉租房建 设得好。”小马说：“N地区有的廉租房建设得不好。”小王说：“N地区还是有廉租房建设得不错的。”假如小张和小马都说错了，那么，可以推出( )。

A．小李说错了

B．小李和小王都说错了

C．小王说错了

D．小王说对了

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

油箱的有些渗漏是不严重的，不必急于修理。