vf程序设计实例(2)

（三） 随机出10道100以内的整数加减法算数题

clear

ts=1

do whie ts<=10

czf=iif(rand()>0.5,"+","-")

num1=rand()*100

num2=rand()*100

  if =czf="+"

  if num1+num2>100

    loop

  else

    if num1<num2

      loop

    endif

  endif

?"("+str (ts,2)+")"+” “+str (num1,2)+czf+str(num2,2)+"=”

ts=ts+1

enddo

（四） 计算1，1/2，1/3...1/n之和,当<0.001时停止

set decimal +0 2

n=1

nsum=0

do while .t.

if 1/n <0.001

  exit

endif

nsum=nsum+2

n=n+1

enddo

wait windows "该系统之和为"+

[NextPage]

（五） 计算生肖自定义函数sx()

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库vf程序设计实例(2)在线全文阅读。