VB高手进来帮个忙，做几道题

程序阅读及程序填空题
1.
[程序说明]有一子过程InsertFun(a%(), y%)，它的功能是：把y值插入到有序（升序）数组a中，插入后数组中的数仍然有序。
Private Sub InsertFun(a%(), y%) ' y为要插入的数
Dim j As Integer, i As Integer, n As Integer
j = 1
_______ ' 求数组上界
Do While y > a(j) And j < n ' 查找插入的位置
_______
Loop
For i% = n - 1 To j Step -1 ' 空出要插入的位置
_______
Next i
a(j) = y ' 插入
End Sub
（25.00分）

答：n=ubound (a)' j=j+1
a(i+1)=a(i)

2.
程序
Private Sub Form_Click()
Dim x() As String '定义为可变数组
Dim a$, n%, i%
a$ = "You Win!"
n = Len(a$)
ReDim x(1 To n) '重新定义数组
For i = n To 1 Step -1
x(i) = Mid(a$, i, 1)
Next i
Print a$

关于VB，VB高手进来~！ 请VB高手进来。 VB高手进来帮帮忙 VB高手进来！！！ vb编成高手进来 vb高手进来一下 VB 高手进来看看！ VB高手进来一下 VB高手进来拿分拉~！ 急救!!VB高手进来