求Sn=a+aa+aaa+……aa…a之值，其中a是一个数字。例如2+22+222+2222+22222(此时n=5)，n由键盘输入.

clea
s=0
t=0
t1=""
input "请输入N的值：" to n
for i=1 to n
t1=t1+"2"
t=val(t1)
s=s+t
next
? "s="+str(s)

我自己编的哈

是3就加“3”啊，依此类推

老虎，你好，你的程序我上机调试，结果不正确。

这下对了。前边的
Input "请输入a的值(1-9)：" To lnA
Input "请输入N的值(>=1)：" To lnN
If Vartype(lnA)#'N' Or Int(lnA)#lnA Or !Between(lnA,1,9)
MessageBox('输入的a是错误的，必须是1-9之间的自然数')
Return
EndIf
If Vartype(lnN)#'N' Or Int(lnN)#lnN Or lnN<=0
MessageBox('输入的N是错误的，必须是正整数')
Return
EndIf
可改为
Input "请输入a的值(1-9)：" To lnA
If Vartype(lnA)#'N' Or Int(lnA)#lnA Or !Between(lnA,1,9)
MessageBox('输入的a是错误的，必须是1-9之间的自然数')
Return
EndIf
Input "请输入N的值(>=1)：" To lnN
If Vartype(lnN)#'N' Or Int(lnN)#lnN Or lnN<=0
MessageBox('输入的N是错误的，必须是正整数')
Return
EndIf

老虎：
另，看了你的程序，觉得你养成了良好的代码书写及变量起名的习惯，是专业人员？
我才学习一学期，以后多多请教哈。