VB题求大神帮忙啊！！！非常感谢

1、单击命令按钮，下列事件过程的执行结果为___________ Private SubCommand1_Click() Dim a(1 To 10) AsInteger For i=1 To 10 a(i)=i*10+i Next I Print a(3)/a(4) End Sub 2、 单击命令按钮，下列事件过程的执行 结果为___________、 Private SubCommand1_Click() Dim x AsInteger, y As Integer x=40: y=72 CallPtoP(x, y) Print x; y End Sub Public SubPtoP(Byval n As Integer, ByVal m As Integer) n=n ＼ 10+2 m=m ＼ 10+2 End Sub 3、单击命令按钮，下列事件过程的执行结果为___________ Private SubCommand1_Click() Dim A(1 To 10) AsInteger For I=1 To 10 Step2 A(I)=12-I Next I Print A(I-1) End Sub 4、程序运行结果是x=___________y=__________ x=2:y=0 For i=1 to10 Step 2 x=x+i y=y+i\5 Next i Print "x=";x,"y=";y 5、有如下程序段，该程序段执行完后，执行循环的次数是___________ total=0 Counter=1 Do total=total + Counter Counter=Counter + 1 If total > 10 Then Exit Do End If Loop While Counter <=10 6、单击窗体，下列事件过程的执行结果为 ___________、 、 Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = 2:y = 3: z = 4 Callsub1(x, y, y) Print x,y,z End Sub Private Sub sub1(xAs Integer, ByRef y As Integer, ByVal z As Integer) Dim iAs Integer x =3 * z: y = 2 * z: z = x + y End Sub 7、在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下事件过程： Private Sub Command_Click() Counter=0 Fori=4 to 1 Step -1 Counter=Couter+1 Nexti Label1.Caption=Str(Counter) End Sub 程序运行后，单击命令按钮，标签中显示的内容是_________，退出循环时，i的值为_________。