VF编程题库.docx

VF编程题库.docx

《VF编程题库.docx》由会员分享，可在线阅读，更多相关《VF编程题库.docx（20页珍藏版）》请在冰豆网上搜索。

VF编程题库

第六章程序设计编程题

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

Clea

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

Ifx

t=x

x=y

y=t

Else

Ifx

t=x

x=z

z=t

endif

endif

ify

t=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

Ifmax

Max=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

ifmax

max=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

Ifa

T=a

A=b

B=t

Else

Ifa

t=a

A=c

c=t

endif

endif

Ifb

T=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

Ifmax

max=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）

Clea

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

ifmax

max=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