单选题
编写如下程序:Private Sub Form_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) n = InputBox("请输入一个小于10的正整数") i = UBound(a) For k = n To (i - n) / 2 + n x = a(k) a(k) = a(i) a(i) = x i = i - 1 Next k For k = 0 To UBound(a) Print a(k); Next kEnd Sub程序运行后,单击窗体,并输入4,则输出结果是