1编程在窗体上输出杨辉三角（要求打印6行）

杨辉三角
Private Sub Form_Load()
Me.AutoRedraw = True
Dim N As Integer, I As Integer, J As Integer
N = 6

Dim SS() As Integer
ReDim SS(1 To N, 1 To N)

For I = 1 To N
SS(I, 1) = 1
SS(I, I) = 1
Next

For I = 3 To N
For J = 2 To I - 1
SS(I, J) = SS(I - 1, J - 1) + SS(I - 1, J)
Next
Next

For I = 1 To N
For J = 1 To I
Print SS(I, J) & vbTab;
Next
Print
Next
End Sub

第二个
Private Sub Form_Load()
dim a(1 to 10) as integer,pj as single,sum as integer
for i = 1 to 10
a(i)=inputbox("请输入","输入框")
sum=sum+a(i)
next i
pj=sum/10
for i = 1 to 10
if a(i)>pj then
text1.text=text1.text & a(i)
end if
next i
end sub

什么语言？