VF程序设计复习资料最新修订.docx

VF程序设计复习资料最新修订.docx

《VF程序设计复习资料最新修订.docx》由会员分享，可在线阅读，更多相关《VF程序设计复习资料最新修订.docx（27页珍藏版）》请在冰豆网上搜索。

VF程序设计复习资料最新修订

第二部分结构化程序设计语句和算法

一、顺序结构

程序设计的命令：

1.变量的赋值

变量=表达式

2.变量的输入

INPUT提示信息TO变量

3.表达式的输出

？

表达式

表示在当前光标的下一行输出；

?

?

表达式

表示在当前光标位置输出；

算法：

1.求园的面积

Clear

Input“r=”tor

S=3.14*r^2

?

”园的面积是：

”,s

Return

2.交换任意两个变量的值

Clear

Input“x=”tox

Input“y=”toy

t=x

x=y

y=t

?

x

?

y

RETURN

二、选择结构

2.1IF语句

IF条件

命令序列A

ELSE

命令序列B

ENDIF

如果命令序列B为空，则ELSE与命令序列B可以省略。

算法：

1.判断闰年

Clear

Input“y=”toy

If（y%4=0andy%100<>0）ory%400=0

?

”yes”

Else

?

”no”

endif

return

2.求3个数的最大值

Clear

Input“x=”toX

Input“y=”toY

Input“z=”toZ

Ifx>y

maxnum=x

else

maxnum=y

endif

ifmaxnum

maxnum=z

endif

?

maxnum

3、判断一个数是否是水仙花数。

clear

input"m="tom

x=int（m/100）

y=int（（m%100）/10）

z=m%10

ifx^3+y^3+z^3=m

?

”yes”

else

?

”no”

endif

return

三、循环结构

程序设计的命令：

1.Dowhile条件

循环体

Enddo

2.For循环变量=初值TO终值STEP步长

循环体

Endfor

其中步长为1时，STEP1可以省略。

并且步长可以为正，也可以为负，步长为正时循环条件时循环变量<=终值，而步长为负时循环条件>=终值。

程序：

1.

s=1+2+3…+100

Clear

i=1

s=0

Dowhilei<=100

s=s+i

i=i+1

Enddo

?

s

return

2.将上例用for语句实现

Clear

s=0

Fori=1to100

s=s+i

endfor

?

s

Return

3.求1-100奇数的和。

Clear

s=0

Fori=1to100step2

s=s+i

endfor

?

s

Return

4.求1-100偶数的和。

Clear

s=0

Fori=2to100step2

s=s+i

endfor

?

s

Return

5.求s=1-1/2+1/3-1/4+....+1/100

clear

s=0

fori=1to100

s=s+1/i*（-1）^（i+1）

endfor

?

s

Return

6.求N!

=1×2×3×4…×N

Clear

Input“n=”ton

t=1

Fori=1ton

t=t*i

endfor

?

f

return

7.求s=1!

+2!

+……+n!

（即求阶乘之和）

clear

input"n="ton

s=0

t=1

fori=1ton

t=t*i

s=s+t

endfor

?

"s=",s

Return

8.计算s=1!

+1/2!

+1/3!

……+1/n!

（即求阶乘之和）

用一重循环实现

clear

input"n="ton

s=0

t=1

fori=1ton

t=t*i

s=s+1/t

endfor

?

"s=",s

return

9.计算s=1!

+1/2!

+1/3!

……（要求1/n!

<10-6为止）

clear

s=0

t=1

i=1

dowhile1/t>=10^（-6）

s=s+1/t

i=i+1

t=t*i

endfor

?

"s=",s

return

10.计算s=1!

-1/2!

+1/3!

-1/4!

……（要求1/n!

<10-6为止）

clear

s=0

t=1

i=1

dowhile1/t>=10^（-6）

s=s+1/t*（-1）*（i+1）

i=i+1

t=t*i

endfor

?

"s=",s

Return

11.计算s=x/1!

-x2/2!

+x3/3!

……（要求xn/n!

<10-6为止）

Clear

Input“x=”tox

s=0

t=1

i=1

dowhilex^i/t>=10^（-6）

s=s+（x^i/t）*（-1）*（i+1）

i=i+1

t=t*i

endfor

?

"s=",s

return

12.要求以5个为一组输出1-100的所有整数。

Clear

c=0

fori=1to100

?

?

i

ifi%5=0

?

Endif

endfor

return

13.要求以5个为一组输出1-100中所有能被3整除的整数。

Clear

c=0

fori=1to100

ifi%3=0

?

?

i

c=c+1

ifc%5=0

?

Endif

endif

endfor

return

14.判断某个数是否是素数。

（除了1和它本身之外不能被任何一个整数所整除的自然数叫质数，又称为素数。

）

设置变量f用于记录是否为素数，

flag=.t.表示是素数；

flag=.f.表示不是素数。

程序：

clear

input"m="tom

flag=.T.

fori=2tom-1

ifm%i=0

flag=.F.

exit

endif

endfor

ifflag=.T.

?

"yes"

else

?

"no"

endif

return

15.输出100-1000以内的所有素数，并计算这些素数之和。

要求：

输出时按照每行5个数据方式输出。

clear

s=0

n=0

form=100to1000

flag=.t.

fori=2tom-1

ifm%i=0

flag=.f.

exit

endif

endfor

ifflag=.t.

?

?

m

c=c+1

ifc%5=0

?

endif

s=s+m

endif

endfor

?

"s=",s

return

16.输出100—999之间的所有的水仙花数。

所谓水仙花数是指一个3位数，其每位数字的立方和等于它本身。

clear

form=100to999

x=int（m/100）

y=int（（m%100）/10）或者y=int（m/10）%10

z=m%10

ifx^3+y^3+z^3=m

?

m

endif

endfor

return

17.求fibnocsi数列。

fibnocsi数列即：

数列第1个数为1，第2个数1，第3个数是第1、2两个数之和，以后的每个数都是其前两个数之和，要求输出这个数列的前20项。

（直接用数组）

clear

f1=1

f2=1

?

?

f1，f2

fori=3to20

f=f2+f1

?

?

f

f1=f2

f2=f

endfor

return

18.求两个数的最大公约数。

算法：

采用辗转相除法：

m除以n，得余数r；如果r不等于0，则将n赋予m，r赋予n，再用m除以n，得余数r；依次类推，直到r＝0为止，此时的n就是最大公约数。

Clear

Input"m="tom

Input"n="ton

r=m%n

dowhiler<>0

m=n

n=r

r=m%n

enddo

?

n

Return

最大公倍数：

M和n的乘积除以最大公约数就是最小公倍数。

Clear

Input"m="tom

Input"n="ton

x=m

y=n

r=m%n

dowhiler<>0

m=n

n=r

r=m%n

enddo

?

x*y/n

Return

18.穷举法：

百钱买百鸡问题。

假设用100元买了100只鸡，如果公鸡5元一只，母鸡3元一只，小鸡3只1元，如果买的鸡中公鸡、母鸡、小鸡都有，问到底有各有多少只鸡？

clear

forx=1to19

fory=1to33

z=100-x-y

ifz%3=0and5*x+3*y+z/3=100

?

x,y,z

endif

endif

endfor

endfor

return

19.设计1个程序，要求是：

（1）在键盘上输入1个不小于3的自然数N（例输入10），求出其不到第N个自然数中奇数之和，并输出结果

（2）输出1到第N自然数中所有质数的个数

clear

input"n="ton

s=0

c=0

ifn>=3then

fori=1ton-1step2

s=s+i

endfor

?

s

fori=2ton

flag=.T.

forj=2toi-1

ifi%j=0

flag=.F.

exit

endif

endfor

iff=.T.

c=c+1

endif

endfor

?

c

endif

return

四、一维数组

1、定义：

dim数组名（长度）

dima（10）

2、引用：

数组名（下标）

a

（1）,a

（2）,a（3）

下标从1开始引用，并且下标可以是常量、变量和表达式。

a（i），a（i+1）

3、一维数组的赋值和输出

1）利用键盘给数组元素赋值

dimena（10）

fori=1to10

input"输入数据：

"toa（i）

endfor

return

2）利用rand（）函数给数组元素赋值

随机产生10个两位整数

dimena（10）

fori=1to10

a（i）=int（rand（）*（80））+10

Endfor

4、一维数组的输出

fori=1to10

?

?

a（i）

Endfor

例子：

1、从键盘上输入10个数，求其平均值。

Clear

Dimea（10）

S=0

Fori=1to10

S=s+a（i）

Endfor

?

s/10

Return

2、将具有n个元素的一维数组的值按逆序重新存放。

clear

input"n="ton

dimena（n）

fori=1ton

input"输入数据：

"toa（i）

endfor

fori=1toint（n/2）

t=a（i）

a（i）=a（n-i+1）

a（n-i+1）=t

endfor

fori=1ton

?

?

a（i）

endfor

return

3、从键盘输入10个数，从中找出最大和最小的数，以及它们的位置。

求最小数和其位置：

clear

dimena（10）

fori=1to10

input"输入数据：

"toa（i）

endfor

minx=a

（1）

p=1

fori=2to10

ifminx>a（i）

minx=a（i）

p=i

endif

endfor

?

minx

?

p

Return

求最大数和其位置：

clear

dimena（10）

fori=1to10

input"输入数据：

"toa（i）

endfor

maxx=a

（1）

p=1

fori=2to10

ifmaxx

maxx=a（i）

p=i

endif

endfor

?

maxx

?

p

Return

5、请随机产生10两位整数，并从小到大排序并显示输出。

（冒泡法排序）

clear

dimea（10）

fori=1to10

a（i）=int（rand（）*90）+10

?

?

a（i）

endfor

fori=1to9

forj=1to10-i

ifa（j）>a（j+1）

t=a（j）

a（j）=a（j+1）

a（j+1）=t

endif

endfor

endfor

fori=1to10

?

a（i）

endfor

return

4、随机产生10个两位整数，按由小到大的顺序排列并显示输出。

（选择法排序）

clear

dimea（10）

fori=1to10

a（i）=int（rand（）*90）+10

?

?

a（i）

endfor

fori=1to9

minx=a（i）

p=i

forj=i+1to10

ifminx>a（j）

minx=a（j）

minp=j

endif

endfor

ifminp<>i

t=a（minp）

a（minp）=a（i）

a（i）=t

endif

endfor

fori=1to10

?

a（i）

endfor

return

6、随机产生20个20-99之间的整数，先按照每行5个数据方式输出，再进行升序排列，再按照每行5个数据方式输出

clear

dimea（20）

fori=1to20

a（i）=int（rand（）*80）+20

?

?

a（i）

ifi%5=0

?

endif

endfor

fori=1to19

forj=1to20-i

ifa（j）>a（j+1）

t=a（j）

a（j）=a（j+1）

a（j+1）=t

endif

endfor

endfor

fori=1to20

?

?

a（i）

ifi%5=0

?

endif

endfor

return

7、（对字符串排序处理）有5个英文单词，分别为：

Word，Excel，Powerpoint，Type，Angle，要求设计出如下程序：

（1）在键盘上输入数N（本例输入5），把英文单词放入名为a大小为N的数组中

（2）显示出X数组中的英文单词

（3）对数组中的英文单词从小到大排序

（4）显示出排序后X数组中英文单词

clear

input"请输入字符串总个数：

"ton

dimena（n）

fori=1ton

input"请依次输入字符串：

"toa（i）

endfor

fori=1ton

?

a（i）

endfor

fori=1ton-1

forj=1ton-i

ifa（j）>a（j+1）

t=a（j）

a（j）=a（j+1）

a（j+1）=t

endif

endfor

endfor

fori=1ton

?

a（i）

endfor

return

8、查找算法（顺序查找）

算法：

顺序查找是一种最简单的查找方法。

从第1个元素到最后1个元素，或者从最后1个元素到第1和元素逐个进行比较，直至找到为止。

题目：

随机产生10个20-99的整数，待用户输入要查找的数据后，在10个数据中查找，找到显示“yes”，没有找到显示“no”

clear

dimea（10）

fori=1to10

a（i）=int（rand（）*100）

?

?

a（i）

Endfor

input"x="tox

flag=.f.

fori=1to10

ifa（i）=x

flag=.t.

exit

endif

endfor

ifflag=.t.

?

"yes"

Else

?

”no”

Endif

Return

9、有序数列的插入算法。

算法：

先将数列排好序，再将要插入的数据从数列中最后一个元素开始比较，如果数列中的元素大于待插入数据，则将数列中的数据后移，如果小于待插入数据则停止比较；然后再将待插入数据放入比它小的数据的后面。

请编写1程序实现如下功能：

（1）从键盘输入数N（如输入10），再从键盘分别输入10个数值型数据到名为a大小为N+1的数组中;

（2）对数组中的数据从小到大排序并显示排序后的结果；

（3）从键盘输入一个数据k，将k插入到数组a中并保持数组a的有序性。

（4）显示插入后数组中的N+1个元素。

clear

input"n="ton

dimea（n+1）

fori=1ton

input"依次输入数据：

"toa（i）

endfor

fori=1ton-1

forj=1ton-i

ifa（j）>a（j+1）

t=a（j+1）

a（j+1）=a（j）

a（j）=t

endif

endfor

endfor

fori=1ton

?

a（i）

endfor

input"k="tok

fori=nto1step-1

ifa（i）>k

a（i+1）=a（i）

else

exit

endif

endfor

a（i+1）=k

fori=1ton+1

?

a（i）

endfor

return

10、有序序列删除操作

算法：

先将数列排好序,再从第一个元素开始，找到后将待删除数据后面的数据依次前移。

请编写1程序实现如下功能：

（1）从键盘输入数N（如输入10），再从键盘分别输入10个数值型数据到名为a大小为N+1的数组中;

（2）对数组中的数据从小到大排序并显示排序后的结果；

（3）从键盘输入一个数据k，在数组a中查找x，找到则将数组中的该元素删除，并保持数组a的有序性,并显示删除后数组中的N-1个元素；

clear

input"输入n="ton

dimea（n）

fori=1ton

input"依次输入数据：

"toa（i）

endfor

fori=1ton-1

forj=1ton-i

ifa（j）>a（j+1）

t=a（j+1）

a（j+1）=a（j）

a（j）=t

endif

endfor

endfor

fori=1ton

?

a（i）

next

input"k="tok

flag=.f.

fori=1ton

ifa（i）=k

flag=.t.

exit

endif

endfor

ifflag=.t.

forj=i+1ton

a（j-1）=a（j）

endfor

fori=1ton

?

a（i）

next

else

?

"没有需要删除的数据！

"

endif

return

五、函数

1、函数的定义

Func函数名

Para参数表

函数体

return表达式

2、函数的调用

函数名（参数表）

3、相关程序（可以将前面所讲程序改为由函数来实现）

1）求半径为r的园的面积（带参数）。

input"r="tor

s=myfunc（r）

?

"s=",s

Return

funcmyfunc

parar

returnpi（）*r*r

2）累加求和。

S=1+2+3+。

。

。

+n

clear

input"n="ton

?

"和为：

",myfunc（n）

return

funcmyfunc

paran

s=0

fori=1ton

s=s+i

next

returns

3）求n！

clear

input"n="ton

?

"阶乘为：

",myfunc（n）

funcmyfunc

paran

f=1

fori=1ton

f=f*i

next

returnf

4）求S=1!

+2!

+3!

+….+N!

。

要求n！

由函数实现

clear

input"n="ton

s=0

fori=1ton

s=s+myfunc（i）

next

?

"s=",s

Return

funcmyfunc

parai

f=1

forj=1toi

f=f*j

next

returnf

5）用函数求s=a+aa+aaa+……

（a和n由键盘输入）

如：

a=2,n=3

S=2+22+222

t=0*10+2=2

t=2*10+2=t*10+2=22

t=22*10+2=222=t*10+2

因此：

t=t*10+2，初始t=0

Clear

Input"a="toa

Input"n="ton

S=myfunc（a,n）

?

s

Return

funcmyfunc

Paraa,n

S=0

t=0

Fori=1ton

t=t*10+a

s=s+t

endfor

returns

6）复习材料2中练习1，程序设计第2小题求cos（x）

cos（x）=1-x^2/2!

+x^4/4!

-x^6/6!

+……直到最后一项的绝对值小于10^（-8）。

方法1：

不采用函数，cos（x）看作s=s+t,t=x^n/n!

t的初始值为1

clear

input"x="tox

s=1

t=2

i=2

d=-1

dowhilex^i/t>=10^（-8）

s=s+x^i/t*d

i=i+2

t=1

forj=1toi

t=t*j

next

d=-d

enddo

?

s

方法2：

将x^n/n!

用函数myfunc实现

clear

input"x="tox

s=1

i=2

d=1

dowhilemyfunc（x,i）>=10^（-8）

s=s+myfunc（x,i）*d

d=-d

i=i+2

enddo

?

s

Return

funcmyfunc

parax,i

t=1

forj=1toi

t=t*j

next

returnx^i/t

7）复习材料2中练习1程序设计最后一题，用梯形法求定积分，要求用函数实现

clear

input"n="ton

a=0

b=pi（）/2

?

”计算结果=”myfunc（a,b,n）

Return

funcmyfunc

paraa,b,n

h=（b-a）/n

s=0

fori=1ton

s=s+sin（a+i*h）

next

s=（h/2）*（sin（a）+2*s-sin（b））

returns