Dim Sum As Integer
While Sum <= 2000
n = n + 1
Sum = Sum + n * n
End While
Print "n=" & n
Print "总数=" & Sum
答案是18和2109。
...^2+...+n^2 >2000的最小n值,并计算此时的1^2+2^2+3^2+...+n^2...
n>18 n=18 时 n(n+1)(2n+1)=18*19*37=12654
vb程序:求满足1^2+2^2+3^2+…+n^2>1000的最小值的程序
如图所示，n=14时，和为1015。望采纳。。。
vb编程求1∧2+2∧2+3∧2……大于或等于某数N的最小值
您好，造成阳痿的因素是多方面的，工作压力大也是其中一个重要的因素，另外，前列腺疾病也是导致男性性功能下降的一个常见原因，不知道您爱人是否有尿频，尿急，尿痛，尿不尽，尿等待，尿滴白，早泄或者遗精的情况出现，如果有，那就不能排除前列腺炎的问题的。在老公存在阳痿的情况下，作为妻子，您应该是...
...表达式1的平方-2的平方+3的平方-4的平方+...+N的平方
用vb编程，先画一个按钮。然后写下列代码。Private Sub Command1_Click()n = Val(InputBox("输入n"))For i = 1 To n j = j + ((-1) ^ (i + 1)) * (i ^ 2)Next i Form1.Print j End Sub 记得加分哈
...2的平方+3的平方-4的平方+...+N的平方 需VB程序的源代码
Private Sub Command1_Click()n = InputBox("请输入n：")a = 1 For i = 1 To n s = s + a * i ^ 2 a = -a Next i Print "s=" & s End Sub
用vb如何编写1的平方乘2的平方乘3的平方一直乘到n的平方等于多少
Private Sub Command1_Click()n = CInt(InputBox("N="))For i = 1 To n s = s + i * i Next i Print "s=1^2+2^2+...+"; Str(n); "^2="; s End Sub
VB程序设计题(求和1的平方加2的平方一直加到n的平方)
Private Sub Form_Load()Dim sum As LongDim i As Integer, n As Integersum = 0n = Int(InpubBox("请输入n的值"))For i = 1 To n sum = sum + i ^ 2NextMsgBox "平方累加和为" & sumEnd Sub 本回答由网友推荐 举报| 答案纠错 | 评论(1) 3 1 其他...
...+2²+3²+...+n²,求s<=1000时n的最大值,单击窗体form1时...
Option ExplicitPrivate Function c平方(i As Long) As Long c平方 = i * iEnd FunctionPrivate Sub Form_Click() Dim j As Long, ret As Long ret = 0 For j = 1 To 1000 ret = ret + c平方(j) Next Me.Print retEnd SubPrivate Sub Form_Load() Me.Capti...
用VB计算S=1+2^2+2^3+…+2^10的代码
i%,s s = 2 for i = 1 to 10 s = s + 2 ^ i next i print s end sub vb编程求出100-200以内的同时能被3和5整除的所有整数 private sub command1_click()dim i as integer for i = 100 to 200 if i mod 3 = 0 and i mod 5 = 0 then print i;end if next i end s...
写出计算1+2+2^2+2^3+……+2^10的程序。
1+2+2^2+2^3+...+2^10=(1-2^11)\/(1-2)=2047 用的是等比数列求和公式a1(1-q^n)\/(1-q)
