VF程序设计经典例题1.docx
《VF程序设计经典例题1.docx》由会员分享，可在线阅读，更多相关《VF程序设计经典例题1.docx（21页珍藏版）》请在冰点文库上搜索。
VF程序设计经典例题1
1.求园的面积（要求判断半径是否合理）
Clea
Inpu‘r=’tor
Ifr>0
S=3.14*r*r
s
Else
’半径错误！
’
Endif
2.求分段函数Y的值
Clea
Inpu‘x=’tox
Ifx>0
Y=2*x+5
Else
Ifx=0
Y=x
Else
Y=abs（x）
Endif
Endif
y
3.输入一个百分制成绩判断其等级（优/良/中/及格/不及格）
Clea
Inpu‘cj=’tocj
Docase
Casecj>=90
’优’
Casecj>=80
’良’
Casecj>=70
’中’
Casecj>=60
’及格’
Orth
’不及格’
Endcase
4.输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）
Clea
Inpu‘请输入处理几个人的成绩：
’ton
Fori=1ton
Inpu‘cj=’tocj
Docase
Casecj>=90
’优’
Casecj>=80
’良’
Casecj>=70
’中’
Casecj>=60
’及格’
Orth
’不及格’
Endcase
endfor
5.求S＝1+2+3......+100
C
lea
S=0
Fori=1to100
S=s+i
Endfor
s
6.求S＝1×2×3......×100
Clea
p=1
Fori=1to100
p=p*i
Endfor
p
7.求S＝1+3+5......+99
Clea
S=0
Fori=1to99step2
S=s+i
Endfor
s
8.求S＝1－2+3－4......－100
Clea
S=0
Fori=1to100
S=s+（-1）^（i+1）*i
Endfor
s
9.求S＝1+1/2+2/3+3/5......前10项之和
Clea
S=0
A=1
B=1
Fori=1to10
S=s+a/b
T=a
A=b
B=t+b
Endfor
s
10.求S＝1！
+2！
+3！
......+10！
Clea
S=0
P=1
Fori=1to10
P=p*i
S=s+p
Endfor
s
11.对学生表中所有入学成绩≥650分的学生免去贷款
Clea
Use学生
Scanfor入学成绩>=650.and.贷款否=.t.
Repl贷款否with.f.
Endscan
Use
12.
******************
******************
******************
******************
输出图形
Clea
Fori=1to4
Forj=1toi
’*’
Endfor
Endfor
Clea
Fori=1to4
Forj=1to4-i
’’&&有一个空格
Endfor
Forj=1to2*i-1
’*’
Endfor
Endfor
Clea
Fori=1to4
Forj=1to4-i
’’&&有一个空格
Endfor
Forj=1toi
’*’
Endfor
Endfor
13.判断一个整数是否素数
Clea
Inpu‘x=’tox
Fori=2tox-1
Ifmod（x,i）<>0
Loop
Else
Exit
Endif
Endfor
Ifi>x-1
x,’是素数’
Else
x,’不是素数’
Endif
14.判断十个整数是否素数
Clea
Forj=1to10
Inpu‘x=’tox
Fori=2tox-1
Ifmod（x,i）<>0
Loop
Else
Exit
Endif
Endfor
Ifi>x-1
x,’是素数’
Else
x,’不是素数’
Endif
Endfor
15.找出两个数的大数和小数
Clea
Inpu‘x=’tox
Inpu‘y’toy
Ifx>y
x,’大’,y,’小’
Else
y,’大’,x,’小’
Endif
16.找出三个数的最大数和最小数
Clea
Inpu‘x=’tox
Inpu‘y’toy
Inpu‘z’toz
Ifxt=x
x=y
y=t
Else
Ifxt=x
x=z
z=t
endif
endif
ifyt=y
y=z
z=t
endif
x,’是最大数’,z,’是最小数’
17.找出十个数的最大数和最小数
Clea
Dimea（10）
Fori=1to10
Inputoa（i）
Endfor
Max=a
（1）
Min=a
（1）
Fori=2to10
IfmaxMax=a（i）
Else
Ifmin>a（i）
Min=a（i）
Endif
Endif
Endfor
max,min
18.找出2×3矩阵中的最大数和最小数
clea
dimea（2,3）
fori=1to2
forj=1to3
input‘a（‘+str（I,2）+’,’+str（j,2）+’）=’toa（I,j）
endfor
endfor
max=a（1,1）
min=a（1,1）
fori=1to2
forj=1to3
ifmaxmax=a（I,j）
else
ifmin>a（I,j）
min=a（I,j）
endif
endif
endfor
endfor
’max=’,max,’min=’,min
19.对三个整数从大到小排序
Clear
Input‘a=’toa
Input‘b=’tob
Input‘c=’toc
IfaT=a
A=b
B=t
Else
Ifat=a
A=c
c=t
endif
endif
IfbT=b
A=c
c=t
endif
a,b,c
20.对十个整数从大到小排序（用选择法和起泡法两种方法）
选择法:
Clear
Dimea（10）
Fori=1to10
Inputtoa（i）
Endfor
Fori=1to9
Max=a（i）
Num=i
Forj=i+1to10
Ifmaxmax=a（j）
Num=j
Endif
Endfor
Ifi<>num
t=A（i）
a（i）=a（num）
a（num）=t
Endif
Endfor
Fori=1to10
a（i）,''
Endfor
起泡法：
Clear
Dimea（10）
Fori=1to10
Inputtoa（i）
Endfor
Fori=1to9
Forj=1to10-i
Ifa（j）t=A（j）
a（j）=a（j+1）
a（j+1）=t
Endif
endfor
Endfor
Fori=1to10
a（i）,''
Endfor
21.输出Fibonacci（斐波那契）数列的前十项
Clear
Dimea（10）
a
（1）=1
a
（2）=1
Fori=3to10
a（i）=a（i-1）+a（i-2）
Endfor
Fori=1to10
A（i）
Endfor
22.输出杨辉三角的前十行
Clear
Dimea（10,10）
Fori=1to10
A（I,1）=1
A（I,i）=1
Endfor
Fori=3to10
Forj=2toi-1
A（I,j）=a（i-1,j）+a（i-1,j-1）
Endfor
Endfor
Fori=1to10
Forj=1toi
A（I,j）
Endfor
Endfor
23.对2×3矩阵转置
Clea
Dimea（2,3）,b（3,2）
fori=1to2
forj=1to3
inputtoa（I,j）
endfor
endfor
fori=1to3
forj=1to2
b（I,j）=a（j,i）
endfor
endfor
fori=1to3
forj=1to2
b（I,j）
Endfor
endfor
24.求三位数中的所有水仙花数（即指一个三位数,其各位数字立方和等于该数本身）
Clea
forx=100to999
a=int（x/100）
b=mod（int（x/10）,10）
c=mod（x,10）
ifx==a*a*a+b*b*b+c*c*c
x
Endif
endfor
25.求100以内的所有完数（即一个数恰好等于除它本身外的所有因子之和）
Clea
fori=3to100
s=0
forj=1toi-1
ifmod（i,j）==0
s=s+j
endif
endfor
ifi==s
i
endif
endfor
26.已知三角形的三边（从键盘输入），求其面积（S^2=p（p-a）（p-b）（p-c）,p=（a+b+c）/2）
Clear
input'a='toa
input'b='tob
input'c='toc
ifa+b>canda+c>bandb+c>a
p=（a+b+c）/2
s=sqrt（p*（p-a）*（p-b）*（p-c））
s
else
'三边不能组成三角形'
Endif
27.求二元方程的根（分三种情况：
两个不等实根，两个相等实根，无实根）
clea
inpu'a='toa&&a<>0
inpu'b='tob&&b<>0
inpu'c='toc
i=b*b-4*a*c
ifi<0
"方程无实根!
"
else
ifi==0
r=（-b）/（2*a）
"方程有两个相等实数根:
",r
else
x1=（-b+sqrt（i））/（2*a）
x2=（-b-sqrt（i））/（2*a）
"方程有两个不相等实数根:
",x1,x2
endif
endif
28.输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列）（例：
25984→48952）
clea
dimea（5）
inputob
a
（1）=int（b/10000）
a
（2）=mod（int（b/1000）,10）
a（3）=mod（int（b/100）,10）
a（4）=mod（int（b/10）,10）
a（5）=mod（b,10）
fori=1toint（5/2）
t=a（i）
a（i）=a（6-i）
a（6-i）=t
endfor
c=a
（1）*10000+a
（2）*1000+a（3）*100+a（4）*10+a（5）
b,c
29.找出一个3x3矩阵的“鞍点”，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）
clea
dimea（3,3）
flag=.t.
fori=1to3
forj=1to3
input'a（'+str（I,2）+','+str（j,2）+'）='toa（i,j）
endfor
endfor
fori=1to3
max=a（i,1）
col=1
forj=2to3
ifmaxmax=a（i,j）
col=j
endif
endfor
min=a（1,col）
row=1
fork=2to3
ifmin>a（k,col）
min=a（k,col）
row=k
endif
endfor
ifmax==min
a（row,col）,'是鞍点，在',row,'行',col,'列'
flag=.f.
endif
endfor
ifflag==.t.
'无鞍点'
endif
30.求S（n）=a+aa+aaa+...+aaa....aaa（其中有n个a）之值，a是一个数字，n和a由键盘键入（例如：
2+22+222+22222+22222，此时n=5）
clea
inpu'a='toa
inpu'n='ton
s=0
t=a
fori=1ton
s=s+t
t=a+t*10
endfor
s
31.把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?
?
?
13
clea
s=0
fora=11to100
?
?
forb=11to50
?
?
?
?
forc=11to20
?
?
?
?
?
?
ifa+2*b+5*c=100
?
?
?
?
?
?
?
?
s=s+1
?
?
?
?
?
?
endif
?
?
?
?
endfor
?
?
endfor
next
s
32.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。
?
?
?
1534
clea
dimef（10）
f
（1）=1
f
（2）=4
f（3）=10
s=0
forn=4to10
f（n）=2*f（n-1）+2
s=f（n）
endfor
s
33.已知S1=1,S2=1+2,S3=1+2+4,S4=1+2+4+8,S5=1+2+4+8+16，…，编制一个程序求S=S1+S2+S3+S4+S5+…+S20的值。
?
?
?
2097130
clea
dimef（20）
f
（1）=1
f
（2）=2
f（3）=4
s=0
q=0
forn=1to20
?
?
f（n）=2^（n-1）
?
?
s=s+f（n）
?
?
q=q+s
?
?
endfor
?
?
q?
?
?
升级会员 