vb s=1+1*2+1*2*3+.....+1*2*3*...*n 确定s的值

Private Sub Command1_Click()
s = 0: k = 1
n = Val(InputBox("输入一个整数"))
For i = 1 To n
k = k * i
s = s + k
Next i
Print "s="; s
End Sub本回答被网友采纳

指导意见：
您好，您说的情况考虑血小板减少的，就医检查看看吧
医生询问：