求助！！！！

新手 菜鸟求支持啊！！

这样可以么？？
Private Sub Form_Click()
Dim a(21, 21) As Long
Dim b(21) As String
Dim I As Byte
Dim j As Byte
a(0, 0) = 1
For I = 1 To 20
For j = 1 To 20
a(I, j) = a(I - 1, j - 1) + a(I - 1, j)
Next
Next
For I = 0 To 10
Print Tab(10 + 1 - I);
For j = 1 To I
Print a(I, j);
Next
Print
Next
End Sub

还有这个 俩道题 ？？求大神指导
Dim a%(1 To 100) Private Sub Command1_Click()
Cls
Print "排序前的数据排列"
For i = 1 To 100
a(i) = Int(Rnd() * 100 + 1)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub Private Sub Command2_Click()
Print ""
Print "排序后的数据排列"
For i = 1 To 99
For j = 1 To 100 - i
If a(j) > a(j + 1) Then
c = a(j + 1)
a(j + 1) = a(j)
a(j) = c
End If
Next j
Next i
For i = 1 To 100
Print a(i);
If i Mod 10 = 0 Then Print
Next i
End Sub