我在做VB程序,需要求sum=从1加至n,怎么写程序?请速支援!
来源:百度知道 编辑:UC知道 时间:2024/05/27 04:37:53
Private Sub Form_Click()
Dim n#, sum#
n = Val(InputBox("n=", "数据输入框", 100))
For i = 1 To n
sum = sum + i
Next i
Print "从1加到" & n & "的和为:" & sum
End Sub
'希望对你能有所帮助!~ ^_^b
for i=1 to n
sum=sum+i
next
为什么不直接用公式
sum=(1+n)*n/2