有如下函数过程：
Function f1(x As Integer)As Long
Dim s As Long
Dim i As Integer
s=0
For i=1 To x
s=s+i
Next i
f1=s
End Function
在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Long
For i=1 To 5
sum=sum+f1(i)
Next i
Print sum
End Sub

A．0
B．1
C．4
D．6

A．Type SystemInfo
DiskDrives As String*10
Memory As Long
End Type
B．Type SystemInfo
DiskDrives As String*10
Memory As Long
End SystemInfo
C．Type SystemInfo
DiskDrives String*10
Memory Long
End Type SystemInfo
D．Typedef SystemInfo
DiskDnves String*10
MemoryLong
End Type