VF程序题求S(n)=a+aa+aaa+...+aaa.aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/30 12:00:58
VF程序题求S(n)=a+aa+aaa+...+aaa.aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)
xTOPW}X:V68%ٖ L5D}!ȃ$2M6 *ltLo=/x[$M{{9LDBSY;\N]9d6W7NJSUٓIfY+JKmB_ozSl2>jW/rlk5fk^>HpK=+| u'LL MgVhjn16G

VF程序题求S(n)=a+aa+aaa+...+aaa.aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)
VF程序题
求S(n)=a+aa+aaa+...+aaa.aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)

VF程序题求S(n)=a+aa+aaa+...+aaa.aaa(其中有n个a)之值,a是一个数字,n和a由键盘键入(例如:2+22+222+22222+22222,此时n=5)
CLOSE ALL
CLEAR ALL
CLEAR
cGetLenth_a = ""
nMaxLenth_n = 09 &&& n 的最大数.
*** 因 VFP 数字取值范围为:-2 147 483 647 到 2 147 483 646,即:
*** 正整数最大只能是十个位,且若十个位时,第一个位的数字最大只能是:2.
*** 还加上要累加计算,所以此最大值只能取九个位!
cMaxLenth_n = ALLTRIM(STR(nMaxLenth_n))
DO WHILE .T.
INPUT "请输入a:" TO nGetLenth_a
IF TYPE("nGetLenth_a") = "N"
IF BETWEEN(nGetLenth_a,1,9)
cGetLenth_a = ALLTRIM(STR(nGetLenth_a))
EXIT
ELSE
MESSAGEBOX("数字已限定在 1-9 之间!",0 + 64,"")
ENDIF
ELSE
MESSAGEBOX("输入的字符不是数字型的字符!",0 + 16,"Warning")
ENDIF
ENDDO
DO WHILE .T.
INPUT "请输入n:" TO nGetLenth_n
IF TYPE("nGetLenth_n") = "N"
cGetLenth_n = ALLTRIM(STR(nGetLenth_n))
IF nGetLenth_n >= 1 AND nGetLenth_n