2013顺序结构程序设计实验

《2013顺序结构程序设计实验》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VF程序设计实验顺序结构程序设计实验4VF程序设计实验例1：显示两条口号，看清楚第一条口号后按任意键再显示第二条口号。SETTALKOFFCLEAR@12,28SAY“欢迎使用湖南城市学院图书管理系统！”WAIT“”@12,28SAY“欢迎使用湖南城市学院邮政管理系统！”WAIT“”SETTALKONRETURN例2：输入2个数据到变量a、b中，然后交换2个变量的内容再显示出来。SETTALKOFFCLEARINPUT“a=”TOaINPUT“b=”TOb?“a,b:”,a,bt=aa=bb=t?“a,b:”,a,bSETTALKONRETURN例3：显示

2、今天是星期几。SETTALKOFFCLEARc=“日一二三四五六”4VF程序设计实验?“今天是星期”+SUBSTR(c,dow(DATE())*2-1,2)例4：编程求圆的周长。根据输入的半径值，计算出相应的圆的周长。SETTALKOFFCLEARINPUT“请输入圆的半径：”TORL=2*3.1416*R@10,10SAY“圆的周长是：”+STR(L,6,3)SETTALKONRETURN例5：编程求长方形面积。从键盘输入两个任意正数，求以两数为边长的长方形面积。SETTALKOFFCLEARINPUT“长方形一边的长为：”TOAINPUT“长方形另一边

3、的长为：”TOBS=A*B?“长方形的面积为：”,SSETTALKONRETURN例6：编程，根据从键盘输入的半径值，计算出相应的圆的面积。settalkoffclearinput“请输入圆的半径：”tors=3.1416*r*r@10,10say“圆的面积是：”,ssettalkonreturn4VF程序设计实验例7：从键盘输入一个三位数，求出其百位、十位、个位数字。settalkoffclearinput“请输入一个三位数：”toxb=int(x/100)&&求出百位数字s=int(mod(x,100)/10)&&求出十位数字&&s=int(x/10)

4、%10&&另一种方法求出十位数字g=mod(x,10)&&求出个位数字?“x的百位、十位、个位数字分别为:”,b,s,gsettalkonreturn例8：把输入的任意3位数整数的每一位数字分别输出来，并求它们的和。SETTALKOFFCLEAINPUT"请输入一个3位整数:"TOMX=INT(M/100)&&百位Y=INT((M-X*100)/10)&&十位*Z=M-X*100-Y*10&&个位Z=M%10&&个位S=X+Y+Z?X,Y,Z?SSETTALKONRETURN例9：把输入的任意4位数整数的每一位数字分别输出来，并求它们的和。另外，再把这个4

5、位整数转化成它的倒置整数输出(1234倒置为4321)。4VF程序设计实验SETTALKOFFCLEAINPUT"请输入一个4位整数:"TOia=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10s=a+b*10+c*100+d*1000?sSETTALKONRETURN4