爱问知识人 爱问教育 医院库

VB编程求s=1 2 4 7 11 16 22 29 37

首页

VB编程求s=1+2+4+7+11+16+22+29+37+

VB编程求s=1+2+4+7+11+16+22+29+37+4VB编程求s=1+2+4+7+11+16+22+29+37+46各位高手,请教VB编程求s=1+2+4+7+11+16+22+37+46,怎么编,代码怎么写,谢谢了!

提交回答
好评回答
  • 2008-08-08 03:33:31
    Private Sub Command1_Click()
    Dim a As Integer, sum As Integer
    a = 1
    For i = 0 To 9
    a = a + i
    sum = sum + a
    Next i
    Print sum
    End Sub

    1***

    2008-08-08 03:33:31

其他答案

    2008-08-06 16:01:44
  • Dim x(10) As Integer
    x(0) = 1
    sum = 0
    For i = 1 To 9
    x(i) = x(i - 1) + i
    Next i
    For m = 0 To 9
    sum = sum + x(m)
    Next m
    Print sum

    K***

    2008-08-06 16:01:44

类似问题

换一换
  • 软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):