vb题:求s的值。s=1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+3+4+……+N)(令N=50)
来源:百度知道 编辑:UC知道 时间:2024/06/06 18:17:32
Private Sub Command1_Click()
Dim N As Integer, S As Double, x As Double
Dim i As Integer, j As Integer
N = Val(InputBox("请输入不大于100的自然数N:", "计算", 50))
S = 0
For i = 1 To N
x = 0
For j = 1 To i
x = x + 1
S = S + x
Next j
Next i
Print "当N=" & N & "时,结果为:" & S
End Sub
N是第N项的值还是就是一个N
input n
s=0:t=0
for i=1 to n
t=t+i
s=s+t
next i
print s
VB:求S=1!+2!+3!+……+20!的编程代码
VB编写 :求S=n!=1*2*3````*n(n的值在程序运行时输入)
在VB中求s=1-1/3+1/5-1/7+...1/99的值
设计一个程序,求满足以下条件的最小的n值和s值:s=1+2+3+…+n,且s≥600
怎样用VF编写X=1,Y=1 S=X+Y,求S的值
s=1!+2!+……+N! 求S 的精确值 (用QBASIC做) 谢谢!11
VB S=1!-4!+7!-10!···
设实数s,t分别满足19s^2+99s+1=0,t^2+99t+19=0,并且st≠1求(st+4s+1)/t的值
如图,DE//BC,AF//BC交CD于F,若DE/BC=1/2,S△ADE=1,求S△ABC,S△ADF,S△ACF的值.
已知r,s是自然数,r>1,s>1,方程s+cosx=r(s+sinx)有解,求r,s