以下Case子句中错误的是( )。

单项选择题如果在过程A中用语句：Call proc(a, b) 调用下面的过程Private Sub proc(b As Integer, ByVal a As Integer) a = a + 1 b = b * 2End Sub则调用结束后的结果是( )。

单项选择题编写如下程序代码：Private Sub Command1_Click() Const n = 5 Dim arrx(n) As Integer For i = 1 To 5 arrx(i) = i * i Next i Call swap(arrx(), n) For i = 1 To n Print arrx(i); NextEnd SubPublic Sub swap(a() As Integer, k As Integer) For i = 1 To k 2 t = a(i) a(i) = a(k - i + 1) a(k - i + 1) = t NextEnd Sub程序运行后，单击命令按钮Command1，输出结果为( )。