Dim a1,a2 as integer 语句声明变量a1和a2都为整型变量。（）

Click（） Dim A1(4)As Integer，A2(4)As Integer For k=0 To 2 A1(k+1)=InputBox(”请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub 程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（）。

A.0

B.1

C.2

D.3

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。

A．0

B．1

C．2

D．3

（25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：

Option Base 0

Private Sub Command1_Click()

Dim A1(4) As Integer,A2(4) As Integer

For k=0 To 2

A1(k+1)=InputBox(“ 请输入一个整数 ” )

A2(3-k)=A1(k+1)

Next k

Print A2(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中依次输入 2 、 4 、 6 ，则输出结果为

A ） 0

B ） 1

C ） 2

D ） 3

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______。

A．1

B．2

C．3

D．4

阅读下列程序并写出程序运行结果。Public Sub change1（ByVal x As Integer, ByVal y As Integer

阅读下列程序并写出程序运行结果。

Public Sub change1(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Public Sub change2(x As Integer, y As Integer)

Dim t As Integer

t = x

x = y

y = t

End Sub

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = 22: b = 33

change1 a, b

Form1.Print "A1="; a, "B1="; b

a = 22: b = 33

change2 a, b

Form1.Print "A2="; a, "B2="; b

End Sub

写出程序运行时，单击窗体Form1上的输出结果。

法是 ： 把原文本中第 k 个字符放到加密后的文本的第 ak 个位置处 。 若原文本长度大于 n ， 则只对前 n 个字符加密，后面的字符不变；若原文本长度小于 n ，则在后面补字符 “ * ” 使文本长度为 n 后再加密。

例如：若给定序列 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

A.Dim A1,A2

B.A +B) = C

C.A = B + C

D.A = "B" + C

A.a = Cos(a)

B.b = Cos(a)

C.a2 = Cos(a1)

D.a1 = Cos(a2)

E.a15 = Cos(a14)

A.a = Cos(a)

B.b = Cos(a)

C.a2 = Cos(a1)

D.a1 = Cos(a2)

E.a15 = Cos(a14)