• 所有问题

    • vb编写程序,计算s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)

    vb编写程序,计算s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)

    举报该问题
    推荐答案   2016-05-04
    Private Sub Command1_Click()
    Dim n As Integer
    Dim sum As Double
    Dim Tsum As Integer
    Tsum = 0
    sum = 0
    n = InputBox("请输入数字N")
    For i = 1 To n
        Tsum = Tsum + i
        sum = sum + Tsum
    Next i
    Print sum
    End Sub

    温馨提示：答案为网友推荐，仅供参考
    相似回答
    用VB写设计程序代码,求:s=1+(1+2)+(1+2+3)+??+(1+2+3+??+n)的值。答：Function sumD(n As Integer) As Single s = 1 i = 1 Do i = i + 1 s = s + 1 / i Loop Until i >= n sumD = s End Function Function sumF(n As Integer) As Single s = 0 For i = 1 To n s = s + 1 / i Next i sumF = s End Function Private Sub Form_...
    ...求出S=1+(1+2)+(1+2+3)+…+(1+2+3+…n)的值。答：化简 S=1+(1+2)+(1+2+3)+…+(1+2+3+…n)得 s=1*n + 2*(n-1) +3*(n-2)...+(n-1)*2 +n*1,因此,代码如下: Private Sub Form_Activate()dim i as integer,s as long,n as integern=inputbox("请输入n","",1)for i=1 to ns=s+i*(n+1-i)nextmsgbox "当n...
    急求!vb编程过程,求s=1+(1+2)+(1+2+3)+...+(1+2+3+...+n)答：Text1的值为N Private Sub Command1_Click()Dim s As Double Dim n As Integer n = Text1.Text s = (n * (n + 1) / 2 + n * (n + 1) * (2 * n + 1) / 6) / 2 Print "和数 s =" & s End Sub
    VB:求S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n) (1)前30项之和(分别用单循环...答：那我来发下单循环的吧。dim MaxI as integer =30 dim i as integer dim j as integer dim Total as integer Total=0 i=1 j=1 do while i<=MaxI Total=Total+j if i=j then j=1 i=i+1 else j=j+1 endif loop 最后Total里存放的就是计算结果 ...
    大家正在搜
    编写程序计算从1到100的和编写程序计算1到100的累加和编写程序计算1～10的平方和编写程序计算a和b的和编写程序计算编写程序计算函数的值vb如何编写程序代码vb游戏编写程序编写程序求1到100的和
    相关问题
    用C语言编写程序,求s=1+(1+2)+(1+2+3)+(1...
    VB求级数s=1/(1+1)+2/(1+2*2)+3/(1+...
    编写程序求s=1+(1+2)+(1+2+3)+…+(1+2+...
    编写函数计算如下表达式的值：1+(1+2)+(1+2+3)+...
    C++编写程序，计算s=1+(1+2)+(1+2+3)+…+...
    用VB设计一个求s=1+(1+2)+(1+2+3)+(1+2...
    用VB写设计程序代码，求：s=1+(1+2)+(1+2+3)...
    vb问题求s=1+(1+2)+(1+2+3)+...+(1+...