下列程序的执行结果是( )。

Function P(N As Integer)

For i=1 To N

Sum=Sum+i

Next i

P=Sum

End Function

Private Sub Command1_Click()

S=P(1)+P(2)+P(3)+P(4)

Print S;

End Sub

单项选择题在C盘当前文件夹下建立一个名为SDat.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。则横线处合适的语句是( )。 Private Sub Form_Click() Open C: SDat.txt For Output As I For i=1 To 5 StuNo=InputBox( 请输入学号 ) StuName=InputBox( 请输入姓名 ) StuEndg=Val(InputBox( 请输入英语成绩 )) Next i Close #1 End Sub

单项选择题在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) Ifm Mod2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Prints End Sub 程序运行后，单击命令按钮，则窗体上输出( )。