230问答网 > 求VB代码：输入n，编程求S=1+（1+2）+（1+2+3）+…+（1+1+3+…n）的值。

求VB代码：输入n，编程求S=1+（1+2）+（1+2+3）+…+（1+1+3+…n）的值。

2025-01-04 02:18:21

推荐回答（1个）

回答1：

Dim n As Integer, i As Integer, j As Integer
Dim s As Long
n = Val(InputBox("请输入n"))
For i = 1 To n
    For j = 1 To i
        s = s + j
    Next j
Next i
MsgBox "结果为" & s

最新问答

单位要上一套电视电话会议，要做个预算，都用什么设备？就是那种插网线可移动性比较强的，请解答的详细点

今年我想报考河北司法警官学校，这学校怎么样，是国办的学校吗？

尼罗河上的惨案，东方快车谋杀案，罗杰疑案，那个最好看，最精彩。说理由

我刚刚满18岁,现在才168的身高,有三年没有长了,我是属于晚长吗?

朋友过生日，他标准一三国迷，我想送一套三国杀，哪种最全、最好，去哪买，价钱100—160，我新手一枚

挑选电动自行车的注意事项都有哪些？近期就打算选购一辆电动自行车。急~

costco上海首店开业被挤爆，美企还会听从特朗普的要求撤离中国吗？

我是销售新手，请各位大虾指教下。做销售怎样更好的入门，如何做一个合格的销售。谢了。

近年来中国反倾销案例,如果可能加上案例分析，说一个即可！解释其原因！！！！

生物制剂通过安检门辐照安全吗