求VB 1+2+3......+n的值，n由用户输入代码怎么写？

Question

用 inputbox 函数 输入 快快快 急阿~~

Answer 1

我试过了 你的 st 字符串 运行到时候 被赋值是 前面独都有一个 空格的 可能是 多次赋值 所导致的吧！！ 比如 输入 “123” 经过 str（）转换后 变成了 “ 123”
你不就是想 把text1的 数字长度 算出来 没必要 那么麻烦 的 直接 m=len（text1） 在后面 把st 全改为 text1 就行了 有疑问再联系我！！！！！

Answer 2

Sub Test()
Dim n As Integer
Dim i As Integer
Dim sum As Integer
n = InputBox("请输入:")
sum = 0
For i = 1 To n
sum = sum + i
Next i
MsgBox(sum)

Answer 3

n=inputbox(“请输入n值","n值")
for i = 1 to n
sum=sum+i
next i
print sum

Answer 4

n=inputbox(“请输入n值","n值")
for i = 1 to n
sum=sum+i
next i
print sum

Answer 5

n=val(inputbox())
for i=1 to n
s=s+i
next
print s