Question

VB6的计算问题

如题
在文本框中输入一个正整数N，按“计算”命令按钮Command1，计算级数1+21+321+4321+54321+......+....N…321的值，结果显示在标签label中，按“结束”命令按钮Command2结束。
楼下的能给出完整的程序代码吗？。。。
楼下两位的回答都不正确，例如n=4，世界末的回答输出结果c是20，s是6，而我要的结果应当是s=1+21+321+4321=4664
大家继续回答啊。。

Answer 1

1楼的回答明显不对，按照你的程序算出来的结果是1+（1+2）+（1+2+3）+（1+2+3+4）……+（1+2+3……+N）的结果。

答案应该是
for a=1 to n
s=""
for b=1 to a
s=str(b)+s 's是字符串类型
next
c=c+val(s)
next

最后c的结果就是得到的答案；

不好意思，程序写错了，现在修改过来了，你再试一下。

Answer 2

n! = Val(Text1)
For a = 1 To n
For b = a To 1 Step -1
t = t & b
Next
s = s + Val(t)
t = ""
Next
Label1 = s