单项选择题

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

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

<上一题目录下一题>

热门试题

单项选择题

下列程序要求用户输入一个年份，并能够判断用户输入的年份是否是闰年，横线处应填( )。 Sub EnSure() Dim year As Integer year=Val(InputBox( 请输入年份: )) If(year Mod 4=0______year Mod 100＜＞0)______(year Mod 400=0)Then Print 您输入的是闰年 Else Print 不是闰年，是普通年份 End If End Sub

A．And And
B．And Or
C．Or Or
D．Or Of

单项选择题

在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

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

相关试题