用VFP编写程序

2、clear

"1到100之内的所有素数："

s=0

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))+space(2)

s=s+i

endif

endfor

"它们的和是：",s

3、clear

"1到1000之间所有奇数的和:"

s=0

for i=1 to 1000

if mod(i,2)<>0

s=s+i

endif

endfor

s

4、command1的click代码：

if ALLTRIM(thisformtext1value)="12345"andalltrim(thisformtext2value)="abcd"

messagebox("欢迎进入QQ世界")

else

messagebox("你的用户名或密码是错误的!")

endif

5、1）select from STUDENT where 入学成绩>500

2)select 学号,姓名,专业信息 from STUDENT where substr(alltrim(姓名),1,2)="李"

3)count for 性别="女" to mm

6、CLEAR

SET UDFPARMS TO REFERENCE &&地址传递

DIME AAA(10)

FOR i= 1 TO 10

input "请输入第"+ALLTRIM(STR(i))+"个数：" to AAA(i)

NEXT

=MySort(AAA,10) &&调用冒泡排序函数

i=1

"从大到小排序结果为："

do while i<=10

AAA(i) &&显示排完序后的数据

i=i+1

enddo

RETURN

冒泡排序函数

参数: pData: 传入数组, nCount:数组的大小

function MySort

para pData, nCount

for i=1 to nCount

for j=nCount to i+1 step -1

if pData(j)>pData(j-1)

iTemp = pData[j-1]

pData(j-1) = pData[j]

pData(j) = iTemp

endif

endfor

endfor

endfunc

看到你这问题，实在没什么可值得编写的。

假定10分钟内，两个都踩不完这25个球的话，就是两个白痴。。

程序设定25个球都踩完。

前提：不知道谁踩得多，谁踩得少，那就是随机的了。

程序如下：

set talk off

a=1 &&计算甲人结果

b=1 &&计算乙人的结果

x=2

do while x<100

if x=2orx=3orx=5orx=7

m=int(rand()10) &&产生10以内的随机数

if m/2＝int(m/2) &&如果是偶数

a=ax

else

b=bx

endif

else

if x/2=int(x/2)orx/3=int(x/3)orx/5=int(x/5)orx/7=int(x7) &&满足任意个则不为质数

x=x+1

else

m=int(rand()10) &&产生10以内的随机数

if m/2＝int(m/2) &&如果是偶数

a=ax

else

b=bx

enidf

x=x+1

enidf

endif

enddo

input "甲报的乘积数字：" to c

input "乙报的乘积数字：" to d

do case

case a=candb!=d

"甲胜利，乙败"

case a!=candb=d

"乙胜利，甲败"

case a=candb=danda>c

"甲乙都对，甲大，甲胜"

case a=candb=danda<c

" 甲乙都对，乙大，乙胜"

endcase

set talk on

retu

求1+3+5+7+9+11+这样的奇数之和若累加数大于500时, 则结束累加

set talk off

clear

local n,i

n=0

for i=1 to 500 step 2

n=n+i

endfor

n

编程序求出100到800之间同时满足除4余1和除5余3条件的数的个数

set talk off

clear

local n

n=0

for i=100 to 800

if i%4=1andi%5=3

n=n+1

endif

endfor

n

编程序求出1000到2000之间同时满足除3余2和除5余3条件的数的个数。

set talk off

clear

local n

n=0

for i=1000 to 2000

if i%3=2andi%5=3

n=n+1

endif

endfor

n

编程序求出3000到5000之间同时满足除3余2和除5余3条件的数的个数。

set talk off

clear

local n

n=0

for i=3000 to 5000

if i%3=2andi%5=3

n=n+1

endif

endfor

n

求能被3整除且至少有一位数字为5的三位数的个数。

set talk off

clear

local a,b,c,n

n=0

FOR i=100 to 999

a=val(substr(ALLTRIM(str(i)),1,1))

b=val(substr(ALLTRIM(str(i)),2,1))

c=val(substr(ALLTRIM(str(i)),3,1))

if i%3=0and(a=5orb=5orc=5)

n=n+1

endif

ENDFOR

n

编写程序，求10!

set talk off

clear

local n

n=1

for i=1 to 10

n=in

endfor

n

编写程序，s=1+1/2+1/3+…+1/99，保留两位小数

SET TALK OFF

CLEAR

s=0

FOR i=1 TO 99

s=s+1/i

ENDFOR

ROUND(s,2)

求出只要能被2，7，9之一整除的1000以内的正整数的个数

set talk off

clear

n=0

for i=1 to 1000

if i%2=0ori%7=0ori%9=0

n=n+1

endif

endfor

n

求出只要能被2，7，9之一整除的800以内的正整数的个数

set talk off

clear

n=0

for i=1 to 800

if i%2=0ori%7=0ori%9=0

n=n+1

endif

endfor

n

求出只要能被2，7，9之一整除的600以内的正整数的个数

set talk off

clear

n=0

for i=1 to 600

if i%2=0ori%7=0ori%9=0

n=n+1

endif

endfor

n

编程序求出1到100之间同时满足除3余2和除4余2条件的数的和

set talk off

clear

n=0

for i=1 to 100

if i%3=2andi%4=2

n=n+i

endif

endfor

n

编程序求出1到500之间同时满足除3余2和除4余2条件的数的和

set talk off

clear

n=0

for i=1 to 500

if i%3=2andi%4=2

n=n+i

endif

endfor

n

求[105，625]间能同时被7和11整除的自然数之和

set talk off

clear

n=0

for i=105 to 625

if i%7=0andi%11=0

n=n+i

endif

endfor

n

求[1000，6000]间能同时被7和11整除的自然数之和

set talk off

clear

n=0

for i=1000 to 6000

if i%7=0andi%11=0

n=n+i

endif

endfor

n

编写程序，求200到800之间素数的个数

set talk off

CLEAR

LOCAL i,j,n

n=0

FOR i=200 to 800

FOR j=2 TO INT(SQRT(i))

IF i%j=0

EXIT for

ENDIF

ENDFOR

IF j>INT(SQRT(i))

n=n+1

ENDIF

ENDFOR

n

编写程序，求600到900之间素数的个数

set talk off

CLEAR

LOCAL i,j,n

n=0

FOR i=600 to 900

FOR j=2 TO INT(SQRT(i))

IF i%j=0

EXIT for

ENDIF

ENDFOR

IF j>INT(SQRT(i))

n=n+1

ENDIF

ENDFOR

n

编写程序，求600到900之间素数的和

set talk off

CLEAR

LOCAL i,j,n

n=0

FOR i=600 to 900

FOR j=2 TO INT(SQRT(i))

IF i%j=0

EXIT for

ENDIF

ENDFOR

IF j>INT(SQRT(i))

n=n+i

ENDIF

ENDFOR

n

编写程序，求200到800之间素数的和

set talk off

CLEAR

LOCAL i,j,n

n=0

FOR i=200 to 800

FOR j=2 TO INT(SQRT(i))

IF i%j=0

EXIT for

ENDIF

ENDFOR

IF j>INT(SQRT(i))

n=n+i

ENDIF

ENDFOR

n

计算S=3!+5!+7!++N!，求直到S>=680000为止的奇数N。

SET TALK OFF

CLEAR

LOCAL s,n

s=0

n=1

DO WHILE s<680000

n=n+2

s=s+nn(n)

enddo

n

FUNCTION nn

LPARAMETERS n

LOCAL t

t=1

FOR i=1 TO n

t=ti

ENDFOR

RETURN t

ENDFUNC

s=1!+2!+3!++n! 当s大于61000时结束累加，求n

SET TALK OFF

CLEAR

LOCAL s,n

s=0

n=0

DO WHILE s<=61000

n=n+1

s=s+nn(n)

enddo

n

FUNCTION nn

LPARAMETERS n

LOCAL t

t=1

FOR i=1 TO n

t=ti

ENDFOR

RETURN t

ENDFUNC

素数即是质数。用VFP编程求解如下：

clear

set talk off

" 3到100以内的素数有："

s=0

for i=3 to 100

x=0

for j=3 to i-1

if i/j=int(i/j)

x=1

endif

endfor

if x=0

i

s=s+i

endif

endfor

" 3到100以内的素数的和是：",s

set talk on

cancel

程序中使用函数int(i/j)是否整除，进行判别。同理也可使用mod(i/j)=0。

郭敦顒回答：

100-999之间的素数是：

101、103、107、109、113、127、131、137、139、149、151、157、163、167、173、179、181、191、193、197、199、211、223、227、229、233、239、241、251、257、263、269、271、277、281、283、293、307、311、313、317、331、337、347、349、353、359、367、373、379、383、389、397、401、409、419、421、431、433、439、443、449、457、461、463、467、479、487、491、499、503、509、521、523、541、547、557、563、569、571、577、587、593、599、601、607、613、617、619、631、641、643、647、653、659、661、673、677、683、691、701、709、719、727、733、739、743、751、757、761、769、773、787、797、809、811、821、823、827、829、839、853、857、859、863、877、881、883、887、907、911、919、929、937、941、947、953、967、971、977、983、991、997 共143个

10的模就是10的倍数：按要求必大于70，应可能为80、90、100、110、…

个位数为：0、1、2、3、4、5、6、7、8、9

10位数（字）为：0、1、2、3、4、5、6、7、8、9

它们之和可以构成素数的是1、3、7、9、11、13、17、19、

所以100-999之间个位数与十位数之和与10的模（之总和）等于百位数，且该数是素数的，它们的集合就是上面所列的全部素数共143个。

clear

"1到100之间的素数为："

s=0

for i=2 to 100

flag=0

for j=2 to int(sqrt(i))

if i/j=int(i/j)

flag=1

exit

endif

endfor

if flag=0

i

s=s+i

endif

endfor

"它们的和是：",s

return

clear

s=0

for i=1 to 99

s=s+(-1)^(i-1)i(i+1)

endfor

"12-23+34-45+……+99100="+alltrim(str(s))

以上就是关于用VFP编写程序全部的内容，包括:用VFP编写程序、vfp编程题，有一点怪 用vfp编写程序。踩气球游戏：地上放着25个气球，每个气球上都有编号，编号是100以内、VFP程序的题目，帮帮忙啦等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！