作业帮 > 综合 > 作业

求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/03 16:20:32
求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言
求1+(1+2)+(1+2+3)+(1+2+3+…+n)+…的值.N的值由文本框输入.用vb语言
Dim i As Integer
Dim s As Integer
Dim T As Integer
Dim n As Integer
n = Val(InputBox("请输入n值;"))
s = 0
T = 0
For i = 1 To n
T = T + i
s = s + T
Next i
Print s
再问: 大神,能不能来个全部的??
再答: ����VB���ڴ��������һ����ť��Command1 ȫ���������£� Option Explicit Private Sub Command1_Click() Dim i As Integer Dim s As Integer Dim T As Integer Dim n As Integer n = Val(InputBox("������nֵ��")) s = 0 T = 0 For i = 1 To n T = T + i s = s + T Next i Print s End Sub