vb 设s=1^12^23^3*.N^n编程求s不大于400000时最大的n

乌东峰前沿qq 1年前已收到1个回答举报

共回答了14个问题采纳率：78.6% 举报

Dim s As Long,i As Integer
s = 0
i = 0
Do
i = i + 1
s = s + i * i
Loop While s < 400000
Print "s="; s - i * i
Print "i="; i - 1

1年前

可能相似的问题

利用vb 编写程序,已知:S=2+4+8+16+32+…,求S不大于2500的最大值.

1年前1个回答
利用vb 编写程序,已知:S=2+4+8+16+32+…,求S不大于3000的最大值.

1年前1个回答
VB 二维数组找最大元素位置,要求先设第一行第一列为最大元素,option base 1 求代码

1年前1个回答
VB,设a=10,b=20,则以下表达式为True的是

1年前1个回答
VB设a=2,b=3,表达式1 + (a > b)值是

1年前1个回答
vb 设a=5,b=6,c=7,d=8执行以下语序,x的值为x=iif((a>b)and(c>d),10,

1年前2个回答
设函数f(x)=-x(x-a)^2 (x∈R) 其中a∈R (1)当a=1时,求曲线y=f(x)在点(2,f(2))处的

1年前2个回答
设a={x,y},b={1,xy},若a=b,求x,y的值

1年前5个回答
急!指出近似数0.0125的精确度和有效数字,设最大的有效数字为x,最小的有效数字为y,求(x-y/2）x-y-2方的结

1年前2个回答
设a∈R，若函数y=eax+3x，x∈R有大于零的极值点，则（　　）

1年前1个回答
.线性代数逆矩阵运算,设A^2+A-5E=0 ,则 (A+2E)^-1 = 求过程!

1年前1个回答
设X>0,Y>0,X²+0.5Y²＝1,求X根号1＋Y²的最大值

1年前1个回答
设函数f(x)=lnx+ln(2-x)+ax怎样求导

1年前2个回答
已知方程a(2x+a)=x(1-x)的两个实数根为x1、x2,设S=根号x1+根号x2,(1) 当a=-2时,求S的值

1年前2个回答
设f(x)=sin^2 x+asin^2 (x/2),求f(x)最大值

1年前2个回答
经过M（1,1）作直线l分别交x,y轴正半轴与AB两点,设直线l斜率为k,三角形OAB面积为s 1,求k与s的函数关系式

1年前1个回答
设向量a,b满足a绝对值=b绝对值=1及3a-2b绝对值=3,求3a+b绝对值的值

1年前2个回答
已知f(x)=e^x-e^-x,g(x)=e^x+e^-x,设f(x)f(y)=4,g(x)(y)=8,求[g（x+y）

1年前1个回答
设分布列为P=1/(2^k),k=1,2.求期望..在线等

1年前2个回答

你能帮帮他们吗

精彩回答

vb 设s=1^1*2^2*3^3*.N^n编程求s不大于400000时最大的n

vb 设s=1^12^23^3*.N^n编程求s不大于400000时最大的n