VF程序设计基础知识

李琪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’toa例：a=1b=2求s=a+bs=1n=1求s=s+nn=n+1s=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)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+1rand()%(终值-初值+1)+初值求：随机产生一个二位数。一、VF程序的组成语句输入语句:input：input“请输入一个数”toaaccept:accept“请输入字符串”toa输出语句：？换行输出？？同行输出常用命令：clearcancelexitsettalkon(cancel前)settalkoff(clear前)二、程序设计顺序程序设计选择结构程序设计循环结构程序设计数组二、VF程序的设计顺序程序1、求圆面积settalkoffclearinput“请输入圆的半径”tors=pi()*r^2?“此园的面积为：”，ssettalkoncancel二、VF程序的设计顺序程序2、长方形的面积settalkoffclearinput“请输入长：”toainput“请输入宽：”tobs=a*b?“此长方形的面积为：”，ssettalkoncancel二、VF程序的设计顺序程序3、解一元二次方程settalkoffclearinput“a=”toainput“b=”tobinput“c=”tocp=-b/(2*a)q=sqrt(b^2-4*a*c)/(2*a)x1=p-qx2=p+q?“第一个根为：”，x1?“第二个根为：”,x2settalkoncancel二、VF程序的设计选择结构1、if选择条件语句1注：条件只有一个，要么成立要么不成立基本格式：if条件语句1else语句2endif条件条件条件条件条件成立条件条件条件条件条件条件条件条件不成立语句2条件二、VF程序的设计选择结构1、if选择条件1成立注：条件要么成立要么不成立嵌套格式：if条件1语句1elseif条件2语句2else语句3endifendif语句1语句2不成立条件2语句3成立不成立二、VF程序的设计选择结构2、docase选择条件1成立注：docase中出要列出所有的条件。多个条件格式：docasecase条件1语句1case条件2语句2case条件3语句3otherwise语句nendcase语句1语句2条件2语句n成立条件n成立二、VF程序的设计选择程序1、闰年的判断成立输出是闰年不成立输出不是闰年闰年条件settalkoffclearinput“请输入一个年份：”toyify%4=0.and.y%100!=0.or.y%400=0?y,“是闰年。”else?y,“不是闰年。”endifsettalkoncancel判断条件：y%4=0.and.y%100!=0.or.y%400=0（4年闰，百年不闰，四百年又闰）二、VF程序的设计选择程序1、水仙花数成立输出是水仙花不成立输出不是水仙花水仙花条件个位：3=123%10十位：2=int((123%100)/10)2=int(123/10)%10123百位：1=int(123/100)（三位数拆数问题）个位：z=n%10十位：y=int((n%100)/10)y=int(n/10)%10n=xyz百位：x=int(n/100)1、水仙花数判断条件：x^3+y^3+z^3=nsettalkoffclearinput“请输入一个三位数：”tonx=int(n/100)y=int((n%100)/10)z=n%10ifx^3+y^3+z^3=n?n,“是水仙花数。”else?n,“不是水仙花数。”endifsettalkoncancel①、if选择x0成立嵌套格式：if条件1语句1elseif条件2语句2else语句3endifendiffx=-(x^2)fx=0不成立x=0fx=x^2成立不成立1、分段函数settalkoffclearinput'请输入x的值:'toxifx0fx=-(x^2)elseifx=0fx=0elsefx=x^2endifendif?fx=,fxsettalkoncancel1、分段函数②、docase选择x0成立fx=-(x^2)fx=0x=0fx=x^2成立otherwise成立settalkoffclearinput请输入x的值：toxdocasecasex0fx=-(x^2)casex=0fx=0otherwisefx=x^2endcase?'所求值为：',fxsettalkoncancel格式：docasecase条件1语句1case条件2语句2otherwise语句3endcase①、if选择x=0嵌套格式：if条件1语句1elseif条件2语句2else语句3endifendif输入非法25x=100YES2、邮局收费x=20040NOx=3005080YESYESYESNONONOsettalkoffclearinput请输入里程数：toxifx=0?请输入正确里程数。elseifx=100?需缴纳运输费25元。elseifx=200?“需缴纳运输费40元。”elseifx=300?所需缴纳运输费50元。else?所需缴纳运输费80元。endifendifendifendifsettalkoncancel②、docase选择输入非法252、邮局收费405080x=0settalkoffclearinput'请输入里程数：'toxdocasecasex=0?请输入正确里程数。casex0.and.x=100?所缴纳运输费25元。casex100.and.x=200?所缴纳运输费40元。casex200.and.x=300?所缴纳运输费50元。otherwise?所缴纳运输费80元。endcasesettalkoncancelx0.and.x=100x100.and.x=200x200.and.x=300otherwise二、VF程序的设计循环结构1、dowhile循环初始值结束yesno解题步骤：1、找初始2、找运行条件3、找变化体格式：dowhile运行条件变化体enddo例如：dowhile没吃饱吃enddo注意：先执行后判断(直到不满足运行条件时结束)变化体运行条件yes1、dowhile循环①、求s=1+2+3+…+20n方法一：clears=1+2+3+4+5+6+7+8+9+10+11+12+13+14+15+16+17+18+19+20？scancel思考：如果不是20而是很大的一个数呢？方法二：用dowhlie循环分析：循环变量n=n+1n的初始值是1，终值是20s=s+n，s的初值是0直到n20就不再循环n=20或n!=20就继续循环01361015..21012345..20sn+++++++=======s=0n=1dowhilen=20(或n！=21)s=s+nn=n+1enddosettalkoffclear?“表达式的值为：”，ssettalkoncancel求、用dowhlie求s=2+4+6…+202、for循环格式：初值for循环变量初值to终值step步长循环体next例、求s=1+2+3+…+20步长为1可以省略step例、求s=1+3+5+…+21例、用for求s=2+4+6…+20写出完整程序for循环要给出循环变量的终值，若题目没有终值则用dowhile循环例、用for求s=1+2+3…+100s=0fori=1to20s=s+inexts=0fori=1to21step2s=s+inext