vfp怎么循环到n

1、新建一个程序，写代码。2、本程序可以指定n的值，并把输入的每一个数的值放到数组a中打印出来。3、把一个字符串的第一个字输出1次换行第二个字输出2次换行并且每换行一次，输出位置提前一个字符。

n=1?&quot，不能用a=a*10+a;a+aa+aaa+…+aaaa…(n个a)=&quot，a=11；n=3，a=121；…应该再设置一个中间变量，a=1；n=2,若如此

para s,n &&接收调用时传递来的参数，就是s和i fact=1 &&声明并赋值变量fact for j=1 to n &&建立循环1到n（n的大小就是主程序的i的大小）fact=fact*j &&将小于等于n的每个数相乘 next j &&循环尾 s=fact &&将fact的值赋值给s，以便主程序使用 retu &&子程序结束...

for ... next就是一对，中间就是要循环的语句。类似于if ... end if

在VFP编程中，要求求出非三倍数的奇数和，需确保数值在特定范围内。假设范围为一万以内，以下是参考代码：首先，设定变量n为10000，代表范围上限。接着，使用循环语句从1到n遍历每个数字。在循环内部，使用条件语句判断当前数字i是否为奇数（mod(i,2)=1）且不是三的倍数（mod(i,3)>0）。满足条件的...

CLEAR s=0 input "N=" to N for i=1 to N s=s+FACTOR(i)endfor ?"S=",s FUNCTION FACTOR(N)C=1 FOR M=1 TO N C=C*M ENDFOR RETURN C ENDFUN

1、如果你只是要添加记录的话，用菜单命令“view》append mode”就可以在表中连续添加记录而不需要一次次的添加空记录了。2、如果是要连续加空记录的话，用循环语句试试吧～

clear input [n=] to n ? fact(n)return function fact param n if n=0 fact=1 else fact=n*fact(n-1)endif return(fact)

N10 =thisform.text1.value &&将需要转换的十进制数赋给变量N10C02='' &&保存二进制数字的串变量，开始为空do while N10>0 &&当输入的十进制数大于0时开始循环 N=mod(N10,2) &&求十进制数与2的模，即用十进制数除以2之后的余数 N10=int(N10/2) &&新的十进制，即使除...

USE 表2 FOR nLoop = 1 TO 100 SCATTER MEMVAR FIELD xh BLANK m.xh = "A2008" + PADL(ALLTRIM(STR(nLoop)), 3, "0")INSERT INTO 表2 FROM MEMVAR NEXT