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

单项选择题在窗体上画一个通用对话框图，其Name属性为Cont,瑞画一个命令按钮，Name属性为Command1，然后编写如下事件过程：Privute Sub Command1_Click( )Cont．FileName= Cont．Flags=vbOFNFileMustExistCont．Filter= All Files| * . * Cont．FilterIndes_3Cont．DialogTitle= Open File Cont．Action=1If Cont．FileName= ThenMsgBox No file selected ElseOpen Cont．FileName For Input As #1Do While Not EOF(1)Input #1. b$Print b$LoopEnd IfEnd Sub以下各选项，对上述事件过程描述错误的是( )。

单项选择题在窗体上画一个命令按钮，然后编写如下事件过程：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程序运行后，单击命令按钮输出结果为( )。