跪求VF编写一个程序计算1到100的乘积?
s = 1
for i = 1 to 50
s = s * i
next i
messagebox("1-50的乘积为：" + allt(str(s)))
clear
for i=0 to 50
a=i%10
b=(i-a)/10
if a*b<a+b
??i
endif
endfor
太多，做一个。其余如果你能付费，可全部帮你做起。
、
编写程序，求四位数的偶数中，所有各位数字之和是
15
的倍数的数的和。
（
1592376
）
Set talk of
S=0
For i=1000 to 9998 Step 2
A=int(i/1000)
B=int((i-a*1000)/100)
C=int((i-a*1000-b*100)/10)
D=mod(i,1000)
If mod((a+b+c+d),15)=0
S=s+i
End if
End for
?
S
Set talk on
Return
1-1
、
编写程序，求三位数的偶数中，所有各位数字之和是
15
的倍数的数的和。
(20454)
1-2
、
编写程序，求三位数的奇数中，所有各位数字之和是
15
的倍数的数的和。
(19731)
1-3
、
编写程序，求三位数的奇数中，所有各位数字之和是
12
的倍数的数的个数。
(38)
1-4
编写程序，求四位数的奇数中，所有各位数字之积（且不为
0
）是
60
的倍数的数的和。
(3456254)
1-5
编写程序，求满足下列条件的所有四位数
ABCD
的个数，该四位数是
8
的倍数，且
A+B=B+C
，即第
1
位数加上第
2
位数等于第
2
位数加上第
3
位数。
(110)
2
、
编写程序，
求
1
到
5000
之间的能被
5
整除的前若干个偶数之和，
当和值大于
500
时退出，
输出该和值。
（
550
）
Set talk off
S=0
i=2
Do while s<=500
If mod(i,5)=0
S=s+i
End if
End do
?
S
Set talk on
Return
2-1
编写程序，已知：
S=2+4+8+16+32+
„，求
S
不大于
2500
的最大值。
(2046)
Set talk off
S=0
i=2
clear
s=1
for i=1 to 100
s=s*1
endfor
?s
return
是用vb吗？
vf输入1-100内的所有奇数和、偶数和、质数和程序?
print("1-100内所有质数的和为：", prime_sum)第一个for循环求1-100内的所有奇数和，步长为2，从1开始遍历到101，每次将奇数累加到odd_sum变量中。第二个for循环求1-100内的所有偶数和，步长为2，从2开始遍历到101，每次将偶数累加到even_sum变量中。第三个for循环求1-100内的所有质数和，从...
跪求VF编写一个程序计算1到100的乘积?
(20454)1-2 、编写程序，求三位数的奇数中，所有各位数字之和是 15 的倍数的数的和。(19731)1-3 、编写程序，求三位数的奇数中，所有各位数字之和是 12 的倍数的数的个数。(38)1-4 编写程序，求四位数的奇数中，所有各位数字之积（且不为 0 ）是 60 的倍数的数的和。(3456254)1-5 编...
用VF编写程序代码:
回答：1、select 设备的名称,启用日期 from 设备表 where 价格 >10000 2、Use SB copy to D:\\SB2 Fields 编号,名称 3、Replace 价格 With 价格+50,部门 with 55 for 设备类型=主要设备 4、 select * from 设备表 where 设备类型="非主要设备" Delete 5、select * from 设备表 order by...
求用VF写个循环语句啊 编写一个程序,文件名为:prog1.prg,输入3个数,找...
clear dime a(3)a = 0 for i = 1 to 3 input "请输入第" + alltrim(str(i)) + "个数" to a(i)endfor m = a(1)for i = 2 to 3 if a(i) > m then m = a(i)endif endfor ? "最大的数是：", m return
用VF编写一个程序:输入密码“AAA”,输入三次错误退出!
简单的程序,代码如下:clea pas=space(3)a=0 do while .t.4,4 say '输入密码:' get pas read if uppe(pas)='AAA'clea 6,4 say '欢迎!'wait retu else a=a+1 if a=3 8,4 say '连续三次错误,退出系统!'retu endif 6,4 say '密码错误,重新输入'endif enddo ...
用VF怎么编下面的几个程序?
cstr=""cx=""input "汉字字符串等" to m n=LEN(m)for i=1 to n\/2 cx=substr(m,2*i-1,2)cstr=cx+cstr endfor ?cstr 汉字字符输入需要加引号，英文半角 "汉字字符输入需要加引号"测试通过了,只输入汉字哟
求VF编程代码(急用)
use cj.dbf do while !eof()input "输入学号:" to m &&m的输入格式必须与学号字段一致，如果学号为字符型，那么输入加引号 if vartype(m)=vartype(学号)go top locate for m=学号 else ?"数据格式输入错误，请重新输入!"loop endif if found()nadd=语文+数学+英语 ?"平均分为：",nadd\/3...
求高手写写简单的vf程序
for i=1000 to 9999 i=i+1 a=int(i\/1000)b=int(i\/100)c=mod(b,10)d=int(i\/10)e=mod(d,100)f=mod(i,1000)s=a+c+e+f if int(s\/25)=0 ? s endif endfor for i=1 to n s=i*(i+1)if s>720 ? s endif endfor for i=1 to 100 if int(i\/3)=0.or.int(i\/...
请用vf编一个简单的程序,比如机场航班信息查询或者考试成绩查询之类的...
set talk off CLEAR USE 机场信息表.dbf go top LOCATE for 航班号="zh0001"IF .not. found()messagebox( "没有这个航班！" )ELSE DO WHILE .NOT.EOF()? "航班："+str(航班号)continue display ENDDO endif set talk on 仅作参考。
vfp编写一个简单的程序
clear dime a[30]a[1]=1 a[2]=1 for i=3 to 30 a[i]=a[i-1]+a[i-2]endfor ?a[30]set talk on cancel 很久没有搞VF了，不知道源程序对不对算法思想还是这样的，我VF还是三年前过前的，以前的编程基础很好，不过对VF的语法不是很记得了！上面程序如果对格式有误你自己更正下！算...
坚虹六味：[答案] clear s=0 ?＂1到100之间的素数为:＂ for i=2 to 100 x=0 for j=2 to i-1 if i/j=int(i/j) x=1 endif endfor if x=0 ?alltrim(str(i))+＂ ＂ s=s+i endif endfor ?＂它们的和是:＂,s
戚墅堰区19518707788： 用vf编程求1到100之间的素数 - ？
坚虹六味： dime a(30) &&建立一个存放素数的数组 m=2 &&素数的个数 a(1)=1 a(2)=2 for i=3 to 100m=m+1a(m)=i &&先假设这个数是素数for n=2 to i-1 &&在小于这个数中找因数if mod(i,n)=0 &&如果不是素数m=m-1 &&把这个数覆盖掉exitendifendfor endforfor p=1 to m &&显示这些素数 ??a(p) endfor
戚墅堰区19518707788： 求助 用 VF 计算1到100之间所有偶数的和我看到了一个语句,类似这样,我不懂VF 但想知道每一句是什么意思?这个请问应该怎么改才能实现这样的效果呢... - ？
坚虹六味：[答案] SET TALK OFF **关掉人机对话,就是屏幕不显示运行结果 N=2 **赋值语句 S=0 **赋值语句 DO WHILE N
戚墅堰区19518707788： 用VF编写程序计算1 - 100之间奇数之和 (在线求解) - ？
坚虹六味： 举例1-100.判断是否奇数 是奇数,则计入sam 否则,跳到下个举例数 如此,完成1-100的举例 取出sam里的数 print
戚墅堰区19518707788： 急求,用VF编程:试用主、子程序调用的方法,编写一个求100之内所有素数的程序. - ？
坚虹六味： CLEAR FOR m=3 TO 100 STEP 2 n=INT(SQRT(m)) FOR i=3 TO n IF MOD(m,i)=0 EXIT ENDIF ENDFOR IF i>n ??m ENDIF ENDFOR
戚墅堰区19518707788： 如何用VF编写 求1到100的素数?？
坚虹六味： clear for i=100 to 1000 for j=2 to int(sqrt(i)) if i%j=0 exit endif endfor if j>=int(sqrt(i)) ?i,＂是素数＂ else ?i,＂不是素数＂ endif endfor
戚墅堰区19518707788： 用VF程序求出1到100的自然数的奇偶数的和 - ？
坚虹六味： 第一种:set talk on clear s1=0 s2=0 for i =1 to 100 step 2 s1=s1+i endfor for j=2 to 100 step 2 s2=s2+j endfor?＂所有奇数和为:＂,s1?＂所有偶数和为:＂,s2 SET TALK off 第二种:set talk on clear s1=0 s2=0 FOR i =1 TO 100 IF mod(i,2)0 s1=s1+i ELSEs2=s2+i ENDIF endfor?＂所有奇数和为:＂,s1?＂所有偶数和为:＂,s2 SET TALK off
戚墅堰区19518707788： VF题:编写一个程序,计算s=1+2+3+ +100,并求出1 - 100之间偶数的和 该怎么写?感谢 - ？
坚虹六味：[答案] s=0 k=0 for i=1 to 100 s=s+i if i%2=0 k=k+i endif endfor ?＂s=1+2+3+ +100=＂,s ?＂1-100的偶数和:＂,k
戚墅堰区19518707788： 用vf怎么写一个1到100奇数之和?？
坚虹六味： s=0n=1 top=100 step=2do while n<=tops=s+nn=n+step enddo?＂0~100结果＂,s这样改一下,程序更专业~~~~
戚墅堰区19518707788： VF 编程 1加到100的和 的指令 简单的最好 - ？
坚虹六味： Dim a , b as intger a = 1 while a <=100 b = 0+a a = a+1 End
