求11+21+……+101的程序如下： Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next S=f End Function Private Sub Command

admin2015-05-29 34

问题求11+21+……+101的程序如下：
Private Function s(x As Integer)
f=1
For i=1 To x
f=f*i
Next
S=f
End Function
Private Sub Command 1_Click()
Dim iAs Integer,y As Long
For i=1 To 10
( )
Next
Print y
End Sub
　　为实现功能要求，程序的括号中应该填入的内容是

选项 A、Call s(i)
B、Call s
C、Y=y+s(i)
D、y=y+s

答案C

解析函数过程有一个返回值，一般出现在表达式中组成表达式的一部分。本题的题目要求累加各个数的阶乘，而函数s的作用是求参数的阶乘，因此应该在每次循环中累加f函数的值，参数为循环变量i。

转载请注明原文地址:https://kaotiyun.com/show/vCQp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类