单项选择题

下列程序的执行结果是( )。
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

A．15
B．16
C．20
D．25

<上一题目录下一题>

热门试题

单项选择题

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

A．Input #1,StuNo,StuName,StuEndg
B．Put #1,StuNo,StuName,StuEndg
C．Write #1,StuNo,StuName,StuEndg
D．Get #1,StuNo,StuName,StuEndg

单项选择题

下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请选择正确的程序段( )。 Private Sub Form_Click() Dim i As Integer Open Num.txt For Output As #1 For i=1 To 8 ______ Next i Close #1 End Sub

A．print #1,i
B．input #1,i
C．print #1
D．input #1

相关试题