2013顺序结构程序设计实验.doc

VF 程序设计实验顺序结构程序设计实验3例1：显示两条口号，看清楚第一条口号后按任意键再显示第二条口号。SET TALK OFFCLEAR12,28 SAY “欢迎使用湖南城市学院图书管理系统！”WAIT “”12,28 SAY “欢迎使用湖南城市学院邮政管理系统！”WAIT “”SET TALK ONRETURN例2：输入2个数据到变量a、b中，然后交换2个变量的内容再显示出来。SET TALK OFFCLEARINPUT “a=” TO aINPUT “b=” TO b ? “a,b:”, a, b t = a a = b b = t ? “a,b:”, a, bSET TALK ONRETURN例3：显示今天是星期几。 SET TALK OFF CLEAR c=“日一二三四五六” ? “今天是星期”+SUBSTR(c,dow(DATE()*2-1,2)例4：编程求圆的周长。根据输入的半径值，计算出相应的圆的周长。 SET TALK OFF CLEAR INPUT “请输入圆的半径：” TO R L=2*3.1416*R 10,10 SAY “圆的周长是：”+STR(L,6,3) SET TALK ONRETURN例5：编程求长方形面积。从键盘输入两个任意正数，求以两数为边长的长方形面积。SET TALK OFFCLEARINPUT “长方形一边的长为：” TO AINPUT “长方形另一边的长为：” TO BS=A*B? “长方形的面积为：” , SSET TALK ONRETURN例6：编程，根据从键盘输入的半径值，计算出相应的圆的面积。 set talk off clear input “请输入圆的半径：” to r s=3.1416*r*r 10,10 say “圆的面积是：”,s set talk onreturn例7：从键盘输入一个三位数，求出其百位、十位、个位数字。set talk offclearinput “请输入一个三位数：” to xb=int(x/100) & 求出百位数字 s=int(mod(x,100)/10) & 求出十位数字 & s=int(x/10)%10 & 另一种方法求出十位数字 g=mod(x,10) & 求出个位数字 ?“x的百位、十位、个位数字分别为:”,b,s,gset talk onreturn例8：把输入的任意3位数整数的每一位数字分别输出来，并求它们的和。SET TALK OFFCLEAINPUT 请输入一个3位整数: TO MX=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?SSET TALK ONRETURN例9：把输入的任意4位数整数的每一位数字分别输出来，并求它们的和。另外，再把这个4位整数转化成它的倒置整数输出(1234倒置为4321)。SET TALK OFFCLEAINPUT 请输入一个4位整数: TO ia=int(i/1000) b=int(i/10