最新进展:
Clear
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
lnSum=0
lnTemp=0
For lnCnt=1 To lnN
lnTemp=lnTemp*10+lnA
lnSum=lnSum+lnTemp
Next
? "s="+Transform(lnSum)
Return
Clear
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
lnSum=0
lnTemp=0
For lnCnt=1 To lnN
lnTemp=lnTemp*10+lnA
lnSum=lnSum+lnTemp
Next
? "s="+Transform(lnSum)
Return
感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@