vf大题练习必看

1 ）用VF编写程序求200以内所有奇数的和
clear
s=0
for i=1 to 200 step 2
s=s+i
endfor
?"200以内所有奇数的和:",s
2）编写程序求300以内所有偶数的和。

clear
s=0
for i=2 to 300 step 2
s=s+i
endfor
?s
3 ）使用VF编写一个输出3~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
或者
clear
for n=3 to 100 step 2
for i=2 to n/2
if mod(n,i)=0
exit
endif
endfor
if i>n/2
?n
endif
return
4）编写程序求(4!+7!)*3!。

clear
s=0
t=1
for i=1 to 4 step 1
t=t*i
endfor
s=s+t
t=1
for i=1 to 7
t=t*i
endfor
s=s+t
t=1
for i=1 to 3
t=t*i
endfor
s=s*t
?s
return
5 ）从键盘输入15个数，求其中最大数与最小数的差。

clear
i=15
dime a(i)
for n=1 to 15
? "第",n,"个数据:"
input "请输入数字后按回车键：" to a
if n=1
b=a(1)
c=a(1)
else
if a(i)>b
b=a(i)
else
if a(i)<c
c=a(i)
endif
endif
endfor
? "最大的数是：",b
? "最小的数是：",c
? "最大数与最小数的差是：",b-c
6 ）VF编写程序计算1！+2！+3！+ (10)
clear
s=0
for i=1 to 10
k=1
for j=1 to i
k=k*j
endfor
s=s+k
endfor
?"1！+2！+3！+....+10！=",s
7）求100以内所有能被3整除的整数的和
clear
s=0
for i=1 to 100
if i%3=0
s=s+i
endif
endfor
?"100以内所有能被3整除的整数的和是：",s 8.3!+8!+11!的和
clear
s=0
t=1
for i=1 to 3 step 1
t=t*i
endfor
s=s+t
t=1
for i=1 to 8
t=t*i
endfor
s=s+t
t=1
for i=1 to 11
t=t*i
endfor
s=s+t
?s
return
9 )编写程序求下面的分段函数Y的值
当x<2时，y=x;
当2<=x<=10时y=2x;
当x>10时y=-3x;
解：clear
input "请输入x的值：" to x
do case
case x<2
y=x
case x>=2 and x<=10
y=2x
case x>10
y=-3*x
endcase
?"y的值是：",y
10) VF编写程序找出输入8个数中的最小数
clear
input"请输入一个数:"to x
store x to min
for i=2 to 8
input"请输入一个数:"to x
if x<min
min=x
endif
endfor
?min
return
11)VFP写程序统计3-200之间的素数个数
SuShuGe=0 &&素数个
for sushu=3 to 200
SuShuFt=.t.
for aa=2 to SuShu-1
if mod(SuShu,aa)=0
SuShuFt=.f.
exit
endif
endfor
if SuShuFt
?SuShu
SuShuGe=SuShuGe+1
endif
endfor
?'个数',SuShuGe
12)VFP写程序统计3-200之间的素数个数及所有素数之和
SuShuHe=0 &&素数和
SuShuGe=0 &&素数个
for sushu=3 to 200
SuShuFt=.t.
for aa=2 to SuShu-1
if mod(SuShu,aa)=0
SuShuFt=.f.
exit
endif
endfor
if SuShuFt
?SuShu
SuShuGe=SuShuGe+1
SuShuHe=SuShuHe+SuShu
endif
endfor
?'个数',SuShuGe
?'合计',SuShuHe。