t=0
for i=1 to 10
s=1
for k=1 to i
s=s*k
endfor
t=t+s
endfor
?t
可以复制，结果是4037913
Lparameters N
Local R
If N > 1
R = N*Fn(N-1)
Else
R = 1
Endif
Return R
T = 0
For i = 1 To 10
T = T + Fn(i)
EndFor
? T本回答被网友采纳
s=1
For i=1 To 10
s=s*i
T=T+s
Endfor
?T
问几个VF的程序题 谢谢大家了
分支1, int(x\/2)=x\/2 能被2整除, 就是偶数, 这时s1=s1+x\/2, 就是每次s1都变成x\/2的累加.x是偶数:2,4,6,8,10,12,14,16,18,20, 除以2相加,结果是1+2+3+4+5+6+7+8+9+10=55 分支2, mod(x\/3)=0 能被3整除,x的值有3,6,9,12,15,18, 但是要排除分支1的情况,即...
VF编写简易计算器
将文本框控件的“Alignment”属性设置为“1-Right Justify”，将其字号设为“三号”，将“Text”属性设置为空（“”）。步骤4：依次将命令按钮控件的“Caption”属性设置为“1”、“2”、“3”、“4”、“5”、“6”、“7”、“8”、“9”、“0”、“.”、“+”、“-”、“*”、“\/”...
怎么用VF编一个关于用户名和密码的程序?
if a==""n=messagebox("请输入用户名",4+32,"学生管理系统登陆")do case case n=6 thisform.text1.value=""thisform.text1.setfocus case n=7 thisform.release endcase else if b==""n=messagebox("请输入密码",4+32,"学生管理系统登陆")do case case n=6 thisform.text2.value="...
用vf求s=1+3+5+7+9+...,求s不大于9000的最大值
我用c语言来演示，你自己转换vf就可以了 main(){ int a = 1；int sum = 0;int Number = 9000;for (；sum<=Number;a=a+2){ sum=sum+a;} printf("The number's Sum < 9000 is : %d",sum);}
vf程序 从键盘输入一个数n,求s=1!+4!+7!+11!+……+n!的和
你题目有问题吧, 看前面貌似每个相差3, 但是7后面怎么是11呢?我现在按照相差3来弄 s=1!+4!+7!+10!+13!+...参考代码:clear input "请输入n的值:" to n s=0 for i=1 to n step 3 x=1 for j=2 to i x=x*j endfor s=s+x endfor ?s ...
VF编程 “1+3+5+...+99的和”
clear set talk off s=0 for i=1 to 99 step 2 s=s+i endfor ?"+3+5+...+99=",s set talk on return
使用VF编写程序:求如下各多项式之和,并将各个和的值显示出来.S0=1+2...
题目比较好，我的方法有点笨。我觉得用循环和数组比较好，一下子想不到。clear store 0 to s0,s1,s2,s3,s4,s5,s6,s7,s8,s9 for i=1 to 10 s0=s0+i s1=s1+i*2 s2=s2+i*3 s3=s3+i*4 s4=s4+i*5 s5=s5+i*6 s6=s6+i*7 s7=s7+i*8 s8=s8+i*9 s9=s9+i*10 endfor ...
VF中如何计算字串
长度为4的子串有：prog,rogr,ogra,gram 共4个 长度为5的子串有：progr,rogra,ogram 共3个 长度为6的子串有：progra,rogram 共2个 长度为7的子串有：program 共1个 所以子串的数目为：1+7+6+5+4+3+2+1=29 懂了？？？
在vf中编程s=1+1\/2+2\/3+3\/5+4\/8+5\/12+6\/17+7\/23+8\/30+9\/38怎么算
s=1n=1for i = 1 to 9s = s + i\/(n+1)n=n+iendfor 家里没按vf 用vb给你截个图(为了方便显示效果 我改了下代码 vf的话你直接用上面的就行了)
急啊!高分!懂VF的进!!一个VF小实验!
游戏:用剪刀把图画纸剪成一个适当宽度的纸条,然后用胶水把纸条的二端粘在一起,形成一个圆环状的纸环。把纸环放在桌子上,然后用吸管对准纸环的斜上方吹气,此时,你会发现纸环它根本不会听你的话,它不但没有被吹跑,反而滚向吸管。12、泡泡魔术 用一支吸管可以吹出二个泡泡,大的泡泡会越变越大,而小的泡泡会...
