新手请教，这两题该怎么做啊~~~

1.对于正在使用的数组A，要再增加一个单元，但要保留原数组各元素的值，则应使用：
ReDim ______________ A( Ubound ( A ) + 1 )语句

2.下面程序运行后输出的结果是__________。
x = Int(Rnd) + 3
If x ^ 2 > 8 Then y = x ^ 2 + 1
If x ^ 2 = 9 Then y = x ^ 2 - 2
If x ^ 2 < 8 Then y = x ^ 3
MsgBox(y)