下面几个编程题的答案是什么

(1)Option Base 1
Private Sub Command1_Click()
Dim a(10),p(3) As Integer
k=5
For i=1TO10
a(i)=i
Next i
For i=1TO3
p(i)=a(i*i)
Next i
For i=1TO3
k=k+p(i)*2
Next i
Print k
End Sub

(2)Option Base 1
Private Sub Command1_Click()
Dim a(4,4)
For i=1TO4
For j=1TO4
a(i,j)=(i-1)*3+j
Next j
For i=3TO4
For j=3TO4
Print a(j,i);
Next j
Print
Next i
End Sub

(3)For i=5TO1 Step-1
For j=1TO6-i
Print Teb(j+5);"*";
Next j
Print
Next i

下面物理题的答案是什么？ 这几个语文题的答案是什么？ 谁知道下面题的答案 下面几个词语各描写的是什么? 请问下面几个键的中文名称是什么？ 下面几个视频的背景音乐是什么啊？？？ 求几道JAVA编程题的答案！ 求助！！！FORTRAN95的编程题答案！ 求一个简单的编程题答案 这几个故事的答案是什么