VF程序设计基础知识

1、李琪 2012年11月,VF程序设计,一、VF程序的组成,常量与变量 表达式 函数 特殊语句,一、VF程序的组成,常量与变量,常量：数值型：整数、小数 字符型：汉字、字母、数字 逻辑型：.T. .F. .Y. .N.,注： 1、在写函数的时候字符型要用“” 将内容括起来 2、逻辑型数据的两个黑点不能少,一、VF程序的组成,注： 1、store只能给字符型变量赋值。,变量 名称：a,b等字母与数字的组合。 赋值：= 或 store.to,需要先知道s和n的初值,例：a=10 ; a=a ; a=计算机 store abcd to a,例：a=1 b=2 求s=a+b s=1 n=1求s=s+n

2、n=n+1 s=s*n,一、VF程序的组成,表达式,表达式由运算符、常量、变量构成,注：1、逻辑运算符中的 . 不能少。,算术运算符：,* / %,+-,关系运算符：,=,=,逻辑运算符：.not. (!) .and. .or.,字符或者字符串相加,一、VF程序的组成,函数,数值型： abs() 例：abs(-9); abs(5),注：1、多个函数参数用 , 隔开。,sqrt() sqrt(9); sqrt(4*4),pi(),int() int(4.3) ; int(123/10) ; int(123/100),mod() mod(5,3); mod(123,10); mod(123,100

3、) int(123/10)%10; int(123%100)/10),max() min(),一、VF程序的组成,函数,注：1、多个函数参数用 , 隔开。,字符型： len(abcd) ; len(计算机) lower(A) ; upper(a) left(abcd,1); right(abcd,2) substr(abcdef,2,3) space(5) asc(0) ;asc(A) str(1,2) ; str(2*5,3),一、VF程序的组成,函数,随机数的产生： rand() 例：rand()%99+1 rand()%(终值-初值+1)+初值 求：随机产生一个二位数。,一、VF程序的组

4、成,语句,输入语句: input：input“请输入一个数”to a accept: accept“请输入字符串”to a,输出语句：？ 换行输出 ？同行输出,常用命令：clear cancel exit set talk on (cancel前) set talk off (clear前),二、程序设计,顺序程序设计 选择结构程序设计 循环结构程序设计 数组,二、VF程序的设计,顺序程序,1、求圆面积 set talk off clear input“请输入圆的半径”to r s=pi()*r2 ? “此园的面积为：”，s set talk on cancel,二、VF程序的设计,顺序程序,

5、2、长方形的面积 set talk off clear input“请输入长：”to a input“请输入宽：”to b s=a*b ? “此长方形的面积为：”，s set talk on cancel,二、VF程序的设计,顺序程序,3、解一元二次方程 set talk off clear input“a=”to a input“b=”to b input“c=”to c p=-b/(2*a) q=sqrt(b2-4*a*c)/(2*a),x1=p-q x2=p+q ? “第一个根为：”，x1 ?“第二个根为：”,x2 set talk on cancel,二、VF程序的设计,选择结构,1、

6、if 选择,条件,语句1,注：条件只有一个，要么成立要么不成立,基本格式： if 条件 语句1 else 语句2 endif,条件,条件,条件,条件,条件,成立,条件,条件,条件,条件,条件,条件,条件,条件,不成立,语句2,条件,二、VF程序的设计,选择结构,1、if 选择,条件1,成立,注：条件要么成立要么不成立,嵌套格式： if 条件1 语句1 else if 条件2 语句2 else 语句3 endif endif,语句1,语句2,不成立,条件2,语句3,成立,不成立,二、VF程序的设计,选择结构,2、do case选择,条件1,成立,注：do case中出要列出所有的条件。多个条件,

7、格式： do case case 条件1 语句1 case 条件2 语句2 case 条件3 语句3 otherwise 语句n endcase,语句1,语句2,条件2,语句n,成立,条件n,成立,二、VF程序的设计,选择程序,1、闰年的判断,成立,输出 是闰年,不成立,输出 不是闰年,闰年条件,set talk off clear input“请输入一个年份：” to y if y%4=0.and.y%100!=0.or.y%400=0 ? y,“是闰年。” else ? y,“不是闰年。” endif set talk on cancel,判断条件： y%4=0.and.y%100!=0.

8、or.y%400=0,（4年闰，百年不闰，四百年又闰）,二、VF程序的设计,选择程序,1、水仙花数,成立,输出 是水仙花,不成立,输出 不是水仙花,水仙花条件,个位： 3=123%10,十位： 2=int(123%100)/10) 2=int(123/10)%10,123,百位： 1=int(123/100),（三位数拆数问题）,个位： z=n%10,十位： y=int(n%100)/10) y=int(n/10)%10,n=xyz,百位： x=int(n/100),1、水仙花数,判断条件：x3+y3+z3=n,set talk off clear input“请输入一个三位数：” to n

9、x= int(n/100) y=int(n%100)/10) z=n%10 if x3+y3+z3=n ? n,“是水仙花数。” else ? n,“不是水仙花数。” endif set talk on cancel,、if 选择,x0,成立,嵌套格式： if 条件1 语句1 else if 条件2 语句2 else 语句3 endif endif,fx=-(x2),fx=0,不成立,x=0,fx=x2,成立,不成立,1、分段函数,set talk off clear input 请输入x的值:to x if x0 fx=-(x2) else if x=0 fx=0 else fx=x2 en

10、dif endif ? fx=,fx set talk on cancel,1、分段函数,、do case选择,x0,成立,fx=-(x2),fx=0,x=0,fx=x2,成立,otherwise,成立,set talk off clear input请输入x的值：to x do case case x0 fx=-(x2) case x=0 fx=0 otherwise fx=x2 endcase ?所求值为：,fx set talk on cancel,格式： do case case 条件1 语句1 case 条件2 语句2 otherwise 语句3 endcase,、if 选择,x=0

11、,嵌套格式： if 条件1 语句1 else if 条件2 语句2 else 语句3 endif endif,输入非法,25,x=100,YES,2、邮局收费,x=200,40,NO,x=300,50,80,YES,YES,YES,NO,NO,NO,set talk off clear input请输入里程数：to x if x=0 ?请输入正确里程数。 else if x=100 ? 需缴纳运输费25元。 else if x=200 ? “需缴纳运输费40元。” else if x=300 ?所需缴纳运输费50元。 else ? 所需缴纳运输费80元。 endif endif endif e

12、ndif set talk on cancel,、do case选择,输入非法,25,2、邮局收费,40,50,80,x=0,set talk off clear input请输入里程数：to x do case case x0 .and. x100 .and. x200 .and. x0 .and. x100 .and. x200 .and. x20就不再循环 n=20或n!=20就继续循环,s=0 n=1 do while n=20(或n！=21) s=s+n n=n+1 enddo,set talk off clear,? “表达式的值为：” ，s set talk on cancel,求、用do whlie求s=2+4+6+20,2、for循环,格式：初值 for 循环变量初值to 终值step 步长 循环体