有如下程序段： 　　Private Sub Command1_Click( ) 　　Dim a As Integer 　　a=2 　　For i=1 To 3 　　　　Print G(a) 　　　Next i 　　End Sub 　　Function G(a As Integer) 　　　b=0 　　　Static c 　　　b=b + 1 　　　c=c + 1 　　　G=a + b + c 　　End Function 　　运行上面的程序后，单击命令按钮，输出结果为（ ）。

单项选择题在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer，n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m，n)Print n(5)End Sub程序运行后，单击命令按钮输出结果为( )。

单项选择题有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是（ ）。Const ShiftKey=1Const CtrlKey=2Const Key_F5=&H74Const Key_F6=&H75Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode=Key_F5 And Shift=ShiftKey ThenPrint Press Shift+F5 ElseIf KeyCode=Key_F6 And Shift=CtrlKey ThenPrint Press Ctrl+F6 End IfEnd Sub