程序如下：
Private Sub form_ Activate()
Dim a As Integer
for i=4 To 5
a=fun(i)
Print a,
Next i
End Sub
Private Function fun(n)As Integer
if n ＞0 then
fun =n* fun(n-1)
Else
fun=1
End if
End Function
程序最后打印结果是（）。

A、 Picture1.Picture="File1.jpg"
B、 Picture1.Pieture=LoadPicture("File1.jpg")
C、 LoadPicture("File1.jpg")
D、 Call LoadPicture("File1.jpg")

A、 该语句打开C盘根目录下一个已经存在的文件Test.Dat
B、 该语句在C盘根目录下建立一个名为Test.Dat的文件
C、 该语句建立的文件的文件号为1
D、 执行该语句后，就可以通过Print#句向文件Test.Dat中写入信息