一站直销 > vb编写程序,计算s=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)

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

2025-04-17 18:14:03

推荐回答（1个）

回答1：

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

最新问答

苹果6s plus是什么时候上市的

登陆京东说账户风险，要求短信验证，为什么会说账户风险？

华硕x299e和z370e有什么区别

山西太原万达不夜城商铺多少钱一平米能买下？

日本推理小说重要奖项历年获奖作品

QQ邮箱最多能发多大的附件？普通附件，超大附件都能保存多少天？

如何消除视频中的水印

DOTA2一个人单排时提示匹配失败，队伍中有玩家还在游戏，为什么？

一直停留在开机状态，很久也没能开机怎么办

雷柏V20 这个鼠标怎么调DPI