求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)

我自己编的哈

t1=t1+"2"
不对吧?
如果不是2+22。。。呢?

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

Clear
lnSum=0
lnN=0
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
For lnCnt=1 To lnN
lnTemp=0
For lnCount=1 To lnCnt
lnTemp=lnTemp+lnA*10^(lnCount-1)
EndFor
lnN=lnN+lnTemp
Next
? "s="+Alltrim(Str(lnSum))
Return

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

接受。lnN=lnN+lnTemp修改为lnSum=lnSum+lnTemp

这下对了。前边的
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

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

对VFP只是爱好而已。我对VFP的感言就是学以致用。